AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
我請CHATGPT幫我寫了一個"序號球"程式碼 Ioaoe110我請CHATGPT幫我寫了一個"序號球"程式碼 2020-310我請CHATGPT幫我寫了一個"序號球"程式碼 Oiu15010我請CHATGPT幫我寫了一個"序號球"程式碼 2020-211我請CHATGPT幫我寫了一個"序號球"程式碼 Ia15010我請CHATGPT幫我寫了一個"序號球"程式碼 Aizyao10我請CHATGPT幫我寫了一個"序號球"程式碼 Uos15010我請CHATGPT幫我寫了一個"序號球"程式碼 BPl3tjj我請CHATGPT幫我寫了一個"序號球"程式碼 Ziao1510
我請CHATGPT幫我寫了一個"序號球"程式碼 Oo-2-110我請CHATGPT幫我寫了一個"序號球"程式碼 Zuoiy_10我請CHATGPT幫我寫了一個"序號球"程式碼 Aizyao11我請CHATGPT幫我寫了一個"序號球"程式碼 Iyb_1510我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe1-111我請CHATGPT幫我寫了一個"序號球"程式碼 Uos15011我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe2da10我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe2da11我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe10

我請CHATGPT幫我寫了一個"序號球"程式碼

+7
鄧韻伶
shyrchu
yuann's
DoveW
EVONNE
Tiger&蘋果爸
hongren24
11 posters

向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 hongren24 2024-01-03, 15:11

小弟之前請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
hongren24
一般會員
一般會員

文章總數 : 6
年齡 : 27
來自 : 高雄
職業 : 景觀
愛好 :
個性 :
使用年資 : 3年
使用版本 : 2017
經驗值 : 816
威望值 : 0
注冊日期 : 2021-12-29
男 巨蟹座 鼠

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 Tiger&蘋果爸 2024-01-03, 21:25


這回我使用微軟 Bing 改良完善 LSP 程式 真的比 ChatGPT 還強


ChatGPT 4版 真的太強大💪
程式碼的錯誤機率大大下降😁

補充:
下回與 Bing 互動及如何引導寫程式,將專屬分享給【蘋果爸愛觀眾】頻道會員。

👇程式下載(回覆可見網址):


👇專屬B會員免回文直接下載

[專屬分享]號碼球程式
https://www.autocad-tw.com/t28502-topic

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
我請CHATGPT幫我寫了一個"序號球"程式碼 Sesa2011 我請CHATGPT幫我寫了一個"序號球"程式碼 Youtub11 我請CHATGPT幫我寫了一個"序號球"程式碼 Oiea2011 我請CHATGPT幫我寫了一個"序號球"程式碼 Oe20011 我請CHATGPT幫我寫了一個"序號球"程式碼 Fbi20011 我請CHATGPT幫我寫了一個"序號球"程式碼 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21021
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88054
威望值 : 16849
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 EVONNE 2024-01-03, 22:20

謝謝蘋果爸分享,工作常需要~
EVONNE
EVONNE
初級會員
初級會員

文章總數 : 105
年齡 : 55
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 5083
威望值 : 36
注冊日期 : 2011-07-18
藍鵲329號
女 天秤座 猴

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 DoveW 2024-01-04, 11:09

謝謝分享
DoveW
DoveW
一般會員
一般會員

文章總數 : 27
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 446
威望值 : 0
注冊日期 : 2023-04-11
男 摩羯座 猴

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 yuann's 2024-01-04, 14:58

看YT過來的 謝謝分享
yuann's
yuann's
一般會員
一般會員

文章總數 : 10
年齡 : 32
來自 : 台北
職業 : 結構工程師
愛好 : 看電影
個性 : 隨和
使用年資 : 5
使用版本 : 2019
經驗值 : 932
威望值 : 6
注冊日期 : 2021-10-05
男 白羊座 羊

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 shyrchu 2024-01-04, 15:48

謝謝分享
shyrchu
shyrchu
專屬會員
專屬會員

文章總數 : 18
年齡 : 48
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : LT2024
經驗值 : 344
威望值 : 6
注冊日期 : 2023-05-28
男 處女座 兔

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 感謝分享

發表 由 鄧韻伶 2024-01-04, 22:10

工作上幫助很大,謝謝分享!!
鄧韻伶
鄧韻伶
一般會員
一般會員

文章總數 : 20
年齡 : 39
來自 : 台中
職業 : 待業
愛好 :
個性 :
使用年資 : 2
使用版本 : 2012
經驗值 : 3981
威望值 : 24
注冊日期 : 2013-07-16
女 處女座 鼠

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 感谢

發表 由 aromild 2024-01-06, 15:03

感谢。
aromild
aromild
一般會員
一般會員

文章總數 : 38
年齡 : 51
來自 : 日本
職業 : 設計
愛好 : CAD
個性 : GOOD
使用年資 : 10
使用版本 : 2020
經驗值 : 1742
威望值 : 6
注冊日期 : 2020-01-09
男 金牛座 鼠

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 aromild 2024-01-06, 15:36

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
aromild
一般會員
一般會員

文章總數 : 38
年齡 : 51
來自 : 日本
職業 : 設計
愛好 : CAD
個性 : GOOD
使用年資 : 10
使用版本 : 2020
經驗值 : 1742
威望值 : 6
注冊日期 : 2020-01-09
男 金牛座 鼠

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 rickyyang 2024-01-06, 19:27

感謝大大無私的分享,感謝您

____________________________________________________________________________________
我請CHATGPT幫我寫了一個"序號球"程式碼 Ioaoe110 我請CHATGPT幫我寫了一個"序號球"程式碼 Zuoiy_10 我請CHATGPT幫我寫了一個"序號球"程式碼 2020-211 我請CHATGPT幫我寫了一個"序號球"程式碼 Aizyao11 我請CHATGPT幫我寫了一個"序號球"程式碼 Iyb_1510
我請CHATGPT幫我寫了一個"序號球"程式碼 Aizyao10 我請CHATGPT幫我寫了一個"序號球"程式碼 BPl3tjj.png 我請CHATGPT幫我寫了一個"序號球"程式碼 Ziao1510 我請CHATGPT幫我寫了一個"序號球"程式碼 Oo-2-110 我請CHATGPT幫我寫了一個"序號球"程式碼 Oooa_110
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 190
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 15
使用版本 : AutoCAD 2023
經驗值 : 4289
威望值 : 36
注冊日期 : 2014-11-11
我請CHATGPT幫我寫了一個"序號球"程式碼 Acadad10 男 射手座 馬

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 ji2342 2024-01-22, 20:05

不可多得的LSP,謝謝蘋果爸無私分享

____________________________________________________________________________________

ji2342
ji2342
中級會員
中級會員

文章總數 : 115
年齡 : 54
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 5889
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

我請CHATGPT幫我寫了一個"序號球"程式碼 Empty 回復: 我請CHATGPT幫我寫了一個"序號球"程式碼

發表 由 masao_8 2024-01-22, 22:08

謝謝蘋果爸與各位的分享
masao_8
masao_8
一般會員
一般會員

文章總數 : 46
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
經驗值 : 947
威望值 : 84
注冊日期 : 2022-06-03
男 水瓶座 雞

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
我請CHATGPT幫我寫了一個"序號球"程式碼 Ioaoe110我請CHATGPT幫我寫了一個"序號球"程式碼 2020-310我請CHATGPT幫我寫了一個"序號球"程式碼 Oiu15010我請CHATGPT幫我寫了一個"序號球"程式碼 2020-211我請CHATGPT幫我寫了一個"序號球"程式碼 Ia15010我請CHATGPT幫我寫了一個"序號球"程式碼 Aizyao10我請CHATGPT幫我寫了一個"序號球"程式碼 Uos15010我請CHATGPT幫我寫了一個"序號球"程式碼 BPl3tjj我請CHATGPT幫我寫了一個"序號球"程式碼 Ziao1510
我請CHATGPT幫我寫了一個"序號球"程式碼 Oo-2-110我請CHATGPT幫我寫了一個"序號球"程式碼 Zuoiy_10我請CHATGPT幫我寫了一個"序號球"程式碼 Aizyao11我請CHATGPT幫我寫了一個"序號球"程式碼 Iyb_1510我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe1-111我請CHATGPT幫我寫了一個"序號球"程式碼 Uos15011我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe2da10我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe2da11我請CHATGPT幫我寫了一個"序號球"程式碼 Aoe10