教學課程
加入贊助
聯絡我們
我請CHATGPT幫我寫了一個"序號球"程式碼
+23
雲菲爾德
wu200090
糖糖的主人
winnie
黃智偉
a8822063
WillChen199903
bondtrd71
ko499111788
ryan0106
kimi27
wuwubaibai
masao_8
ji2342
rickyyang
aromild
鄧韻伶
shyrchu
yuann's
DoveW
EVONNE
Tiger&蘋果爸
hongren24
27 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共2頁)
我請CHATGPT幫我寫了一個"序號球"程式碼
由 hongren24 2024-01-03, 15:11
主題回顧 :
小弟之前請CHATGPT幫我寫了一個 序號球的程式碼
就是可以接續編號的球，
但是字一直無法在圓心上，
看來是某種代溝，
發上來讓大家看看能否更好，第一次發文若有不合規範或有誤還請見諒，也請不吝跟我說，謝謝各位前輩。
小弟之前請CHATGPT幫我寫了一個 序號球的程式碼
就是可以接續編號的球，
但是字一直無法在圓心上，
看來是某種代溝，
發上來讓大家看看能否更好，第一次發文若有不合規範或有誤還請見諒，也請不吝跟我說，謝謝各位前輩。
- 代碼:
(defun c:CB (/ pt size font_size count)
(setq count 1)
(setq size (getreal "\nEnter circle size: "))
(setq font_size (getreal "\nEnter font size: "))
(while
(setq pt (getpoint "\nSelect position for serial number ball or [Enter to exit]: "))
(if (not pt)
(exit)
)
(command "_circle" pt size "")
(setq text_position (polar pt (/ pi 4) size)) ; Place text at a quarter distance from the circle center
(setq text_position (list (car text_position) (+ (cadr text_position) (* 0.5 font_size)) 0)) ; Adjust text position
(command "-text" text_position font_size 0 (itoa count))
(setq count (+ count 1))
)
)
hongren24- 一般會員
- 文章總數 : 12
年齡 : 28
來自 : 高雄
職業 : 景觀
愛好 : 無
個性 : 無
使用年資 : 3年
使用版本 : 2017
經驗值 : 1128
威望值 : 15
注冊日期 : 2021-12-29
回復： 我請CHATGPT幫我寫了一個"序號球"程式碼
由 chunglove 2024-09-25, 08:33
前些時間也有試過，但是對LISP語法不熟，並且是在AUTOCAD 2024 LT版使用，所以在YT看到影片後，下載來看看語法且學習。謝謝分享
chunglove- 一般會員
- 文章總數 : 2
年齡 : 53
來自 : 新北市
職業 : 消費機構設計
愛好 : 攝影
個性 : 內斂
使用年資 : 20
使用版本 : 2024 LT
經驗值 : 2820
威望值 : 0
注冊日期 : 2017-03-13
EIDOS AB- 一般會員
- 文章總數 : 3
年齡 : 44
來自 : 台中
職業 : 待業
愛好 : 爬山
個性 : 樂觀
使用年資 : 初學
使用版本 : 2013
經驗值 : 398
威望值 : 0
注冊日期 : 2023-11-02
virage7676- 一般會員
- 文章總數 : 30
年齡 : 47
來自 : 台中市北屯區
職業 : 自由業
愛好 : 慢跑
個性 : 寡言
使用年資 : 10
使用版本 : CAD2006
經驗值 : 4624
威望值 : -9
注冊日期 : 2012-08-04
回復： 我請CHATGPT幫我寫了一個"序號球"程式碼
由 brucecad 2024-11-15, 19:55
來測試看看AI的功力
感謝分享
真棒
感謝分享
真棒
____________________________________________________________________________________
brucecad- 初級會員
- 文章總數 : 65
年齡 : 50
來自 : Hsinchu
職業 : engineer
愛好 : book
個性 : nice
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 3795
威望值 : 6
注冊日期 : 2015-05-03
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共2頁)
這個論壇的權限：
您 無法 在這個版面回復文章