我請CHATGPT幫我寫了一個"序號球"程式碼
+28
bondtrd
brucecad
virage7676
EIDOS AB
chunglove
雲菲爾德
wu200090
糖糖的主人
winnie
黃智偉
a8822063
WillChen199903
bondtrd71
ko499111788
ryan0106
kimi27
wuwubaibai
masao_8
ji2342
rickyyang
aromild
鄧韻伶
shyrchu
yuann's
DoveW
EVONNE
Tiger&蘋果爸
hongren24
32 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共2頁)
我請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
經驗值 : 1145
威望值 : 15
注冊日期 : 2021-12-29
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
這回我使用微軟 Bing 改良完善 LSP 程式 真的比 ChatGPT 還強
ChatGPT 4版 真的太強大💪
程式碼的錯誤機率大大下降😁
補充:
下回與 Bing 互動及如何引導寫程式,將專屬分享給【蘋果爸愛觀眾】頻道會員。
👇程式下載(回覆可見網址):更新修正STYLE設置字高0問題
指令名稱:CB11
👇專屬B會員免回文直接下載
[專屬分享]號碼球程式https://www.autocad-tw.com/t28502-topic
Tiger&蘋果爸 在 周一 2 12月 2024 - 15:09 作了第 1 次修改
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
leo98 and 黃智偉 like this post
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
謝謝蘋果爸分享,工作常需要~
EVONNE- 初級會員
- 文章總數 : 108
年齡 : 56
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 5384
威望值 : 36
注冊日期 : 2011-07-18
DoveW- 一般會員
- 文章總數 : 39
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 800
威望值 : 6
注冊日期 : 2023-04-11
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
看YT過來的 謝謝分享
yuann's- 一般會員
- 文章總數 : 10
年齡 : 33
來自 : 台北
職業 : 結構工程師
愛好 : 看電影
個性 : 隨和
使用年資 : 5
使用版本 : 2019
經驗值 : 1222
威望值 : 6
注冊日期 : 2021-10-05
shyrchu- 贊助會員
- 文章總數 : 128
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : AUTOCAD2024
經驗值 : 1164
威望值 : 48
注冊日期 : 2023-05-28
感謝分享
工作上幫助很大,謝謝分享!!
鄧韻伶- 一般會員
- 文章總數 : 21
年齡 : 40
來自 : 台中
職業 : 待業
愛好 : 無
個性 : 無
使用年資 : 2
使用版本 : 2012
經驗值 : 4276
威望值 : 24
注冊日期 : 2013-07-16
感谢
感谢。
aromild- 一般會員
- 文章總數 : 43
年齡 : 52
來自 : 日本
職業 : 設計
愛好 : CAD
個性 : GOOD
使用年資 : 10
使用版本 : 2020
經驗值 : 2060
威望值 : 6
注冊日期 : 2020-01-09
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
hongren24 寫到:小弟之前請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))
)
)
我用CHATGPT,三个回合,就放到圆圈里面了。
- 代碼:
(defun c:CB (/ pt size font_size count text_width text_height)
(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_str (itoa count))
(setq text_width (* (strlen text_str) font_size 0.7)) ; Adjusted approximate text width
(setq text_height (* font_size 0.7)) ; Adjusted approximate text height
(setq text_position (list (- (car pt) (/ text_width 2)) (- (cadr pt) (/ text_height 2)) 0)) ; Center text on circle
(command "-text" text_position font_size 0 text_str)
(setq count (+ count 1))
)
)
aromild- 一般會員
- 文章總數 : 43
年齡 : 52
來自 : 日本
職業 : 設計
愛好 : CAD
個性 : GOOD
使用年資 : 10
使用版本 : 2020
經驗值 : 2060
威望值 : 6
注冊日期 : 2020-01-09
黃智偉 and bondtrd like this post
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
感謝大大無私的分享,感謝您
rickyyang- 專屬會員
- 文章總數 : 196
年齡 : 46
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4607
威望值 : 36
注冊日期 : 2014-11-11
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
不可多得的LSP,謝謝蘋果爸無私分享
ji2342- 中級會員
- 文章總數 : 116
年齡 : 55
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 : 中
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 6182
威望值 : 50
注冊日期 : 2008-09-12
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
謝謝蘋果爸與各位的分享
masao_8- 初級會員
- 文章總數 : 72
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
積分 : 1
經驗值 : 1419
威望值 : 132
注冊日期 : 2022-06-03
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
這個在使用爆炸圖還滿常用到的
感謝蘋果爸的分享
感謝蘋果爸的分享
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4258
威望值 : 0
注冊日期 : 2014-04-18
kimi27- 一般會員
- 文章總數 : 29
年齡 : 50
來自 : 南投
職業 : 金屬建築
愛好 : 睡覺
個性 : 固執
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 3827
威望值 : 6
注冊日期 : 2014-11-03
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
工作很需要,謝謝蘋果爸
ryan0106- 一般會員
- 文章總數 : 42
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4609
威望值 : 0
注冊日期 : 2012-11-08
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
謝謝蘋果爸分享,感覺會蠻常用到的功能
ko499111788- 一般會員
- 文章總數 : 25
年齡 : 32
來自 : 台中
職業 : 板金繪圖
愛好 : 練字、喝咖啡
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1979
威望值 : 6
注冊日期 : 2019-11-07
ai真強阿
ai真強阿 使用的人更強 感謝分享
bondtrd71- 一般會員
- 文章總數 : 6
年齡 : 41
來自 : 台中
職業 : 繪圖
愛好 : 看小說
個性 : 安靜
使用年資 : 2
使用版本 : 2018、2021
經驗值 : 877
威望值 : 0
注冊日期 : 2022-08-10
WillChen199903- 一般會員
- 文章總數 : 27
年齡 : 25
來自 : 高雄市
職業 : 土木系學生
愛好 : 土木建築
個性 : 害羞
使用年資 : 2年
使用版本 : 2018
經驗值 : 1621
威望值 : 0
注冊日期 : 2020-11-07
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
工作需求 趕快回復下載測試看看 謝謝
a8822063- 一般會員
- 文章總數 : 21
年齡 : 31
來自 : 彰化
職業 : 製圖人員
愛好 : 待業
個性 : 溫和
使用年資 : 4個月
使用版本 : 2014
經驗值 : 2834
威望值 : 0
注冊日期 : 2017-06-11
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
真是讚!
如果要加上多重引線要怎麼改程式呢?
如果要加上多重引線要怎麼改程式呢?
黃智偉- 一般會員
- 文章總數 : 10
年齡 : 40
來自 : 高雄市楠梓區
職業 : 待業中
愛好 : 建模
個性 : 內向
使用年資 : 3個月
使用版本 : 2021
經驗值 : 300
威望值 : 0
注冊日期 : 2024-03-30
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
謝謝大大分享,讓AI幫忙寫程式真是太讚了
winnie- 一般會員
- 文章總數 : 98
年齡 : 44
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 10年
使用版本 : 2008
經驗值 : 5934
威望值 : 6
注冊日期 : 2009-11-25
CB10 測試問題
大大們好, CB10 測試 為什麼沒辦法排序數至出來呢 點出來一直0 不知道那裡的設定跑掉
不知是否指點一二下小弟... 以下 附測試檔案 與 影片
https://mega.nz/file/hBdRGbzQ#VmCLGtacjcnC8jgSfgicrH5yJS1BuscDL07nM_a2IOY
不知是否指點一二下小弟... 以下 附測試檔案 與 影片
https://mega.nz/file/hBdRGbzQ#VmCLGtacjcnC8jgSfgicrH5yJS1BuscDL07nM_a2IOY
a8822063- 一般會員
- 文章總數 : 21
年齡 : 31
來自 : 彰化
職業 : 製圖人員
愛好 : 待業
個性 : 溫和
使用年資 : 4個月
使用版本 : 2014
經驗值 : 2834
威望值 : 0
注冊日期 : 2017-06-11
糖糖的主人- 贊助會員
- 文章總數 : 65
年齡 : 27
來自 : 宜蘭
職業 : 工程師
愛好 : 看電影
個性 : 容易半途而廢
使用年資 : 一年
使用版本 : 2021
經驗值 : 1558
威望值 : 24
注冊日期 : 2021-07-30
回復: 我請CHATGPT幫我寫了一個"序號球"程式碼
謝謝分享,剛好圖面需要用到流水號
wu200090- 初級會員
- 文章總數 : 142
年齡 : 51
來自 : 高雄市
職業 : 沖,塑模設計
愛好 : 大自然,登山健行
個性 : 随和
使用年資 : 9
使用版本 : 2012
積分 : 2
經驗值 : 5748
威望值 : 163
注冊日期 : 2011-03-27
雲菲爾德- 贊助會員
- 文章總數 : 17
年齡 : 38
來自 : 新北市
職業 : 金屬工程
愛好 : 聽音樂
個性 : 沉默寡言
使用年資 : 4年
使用版本 : AutoCAD Mechanicl 2016
經驗值 : 3461
威望值 : 0
注冊日期 : 2015-09-07
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共2頁)
這個論壇的權限:
您 無法 在這個版面回復文章