我請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))
  )
)

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

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

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

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

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

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

謝謝蘋果爸分享，工作常需要~

謝謝分享

看YT過來的 謝謝分享

謝謝分享

工作上幫助很大，謝謝分享!!

感谢。

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))
  )
)



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

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

謝謝蘋果爸與各位的分享

這個在使用爆炸圖還滿常用到的
感謝蘋果爸的分享