[已解決]點圓自動畫中心線LISP 幫忙

以下是我自己寫的程式
點圓>自動取出圓心>取出半徑/5的長度>在半徑外額外加上/5的長度的距離>畫出中心線
但有時會跑出 中心線亂掉或者 沒額外長度出來
假如r100 畫出來的中心線長度就剛好200而以  成功的話應該事100/5=20   兩邊都會+20 變成240才對
但有時測試成功有時測試失敗 請大大幫忙解決問題 看我哪邊寫錯

代碼:

(defun c:mid()
(setvar "cmdecho" 0)
(setq mi (entsel "選取圓"))
(setq mid (entget (car mi)))
(setq exe (cdr (assoc 10 mid)))
(setq exe2 (car exe))           ;X
(setq exe3 (cadr exe))          ;Y
(setq exe4 (cdr (assoc 40 mid)));R
(setq exe5 (/ exe4 5))

(setq XXA (+ exe3 exe4))
(setq XXA2 (+ XXA exe5))
(setq XXA3 (list exe2 XXA2))

(setq XXB (+ exe2 exe4))
(setq XXB2 (+ XXB exe5))
(setq XXB3 (list XXB2 exe3))

(setq XXC (- exe2 exe4))
(setq XXC2 (- XXC exe5))
(setq XXC3 (list XXC2 exe3))

(setq XXD (- exe3 exe4))
(setq XXD2 (- XXD exe5))
(setq XXD3 (list exe2 XXD2))

(setq LINE_data (command "LINE" XXA3 XXD3 ""))
(setq LINE2_data (command "LINE" XXB3 XXC3 ""))
)
(prin1)

感謝大大幫忙
所以通常集點的都會有這種問題瞜?
想說怎有時候會怪怪的

請問是否有把物件鎖點 關掉 開啟的指令 像是F3那樣
想用(command "OSNAP") 卻不知從何下手

as920029as 寫到:請問是否有把物件鎖點 關掉 開啟的指令 像是F3那樣
想用(command "OSNAP")  卻不知從何下手

建議可以換個方式不關閉「物件鎖點」。
其實程式中好像並不需要把 OSMODE設為 0 (setvar "OSMODE" 0)
只要把 OSNAPCOORD設定為 1 之後，執行程式時會以程式輸入為主，就不會因為「物件鎖點」導致亂鎖點！

相關主題討論 >> [討論]已拒絕 AutoCAD 變數設定: "OSMODE" nil

十分感謝兩位大大幫忙
原本還打算用把鎖點全部取消 然後再重新設定...
但有其他更好的辦法 可以解決
小弟十分感謝

借花獻佛

代碼:

(defun c:mid()
(setvar "cmdecho" 0)
(setq OSC (getvar "osnapcoord"))  ;;記錄osnapcoord初始值
(setq mi (entsel "選取圓"))
(setq mid (entget (car mi)))
(setq exe (cdr (assoc 10 mid)))
(setq exe2 (car exe))          ;X
(setq exe3 (cadr exe))          ;Y
(setq exe4 (cdr (assoc 40 mid)));R
(setq exe5 (/ exe4 5))

(setq XXA (+ exe3 exe4))
(setq XXA2 (+ XXA exe5))
(setq XXA3 (list exe2 XXA2))

(setq XXB (+ exe2 exe4))
(setq XXB2 (+ XXB exe5))
(setq XXB3 (list XXB2 exe3))

(setq XXC (- exe2 exe4))
(setq XXC2 (- XXC exe5))
(setq XXC3 (list XXC2 exe3))

(setq XXD (- exe3 exe4))
(setq XXD2 (- XXD exe5))
(setq XXD3 (list exe2 XXD2))

(setvar "osnapcoord" 1)  ;;畫線前先將鎖點改成依程式鎖點
(command "LINE" XXA3 XXD3 "")
(command "LINE" XXB3 XXC3 "")
(setvar "osnapcoord" OSC)  ;;畫線後將osnapcoord值改回預設值
)
(prin1)

最後畫線不必用setq函數
也可以把程式美化如下:

代碼:

(defun c:mid()
(setvar "cmdecho" 0)
(setq OSC (getvar "osnapcoord"))  ;;記錄osnapcoord初始值

(setq mi (entsel "選取圓")
      mid (entget (car mi))
      exe (cdr (assoc 10 mid))
      exe2 (car exe)          ;X
      exe3 (cadr exe)          ;Y
      exe4 (cdr (assoc 40 mid));R
      exe5 (/ exe4 5)
)

(setq XXA (+ exe3 exe4)
      XXA2 (+ XXA exe5)
      XXA3 (list exe2 XXA2)
)

(setq XXB (+ exe2 exe4)
      XXB2 (+ XXB exe5)
      XXB3 (list XXB2 exe3)
)

(setq XXC (- exe2 exe4)
      XXC2 (- XXC exe5)
      XXC3 (list XXC2 exe3)
)

(setq XXD (- exe3 exe4)
      XXD2 (- XXD exe5)
      XXD3 (list exe2 XXD2)
)

(setvar "osnapcoord" 1)  ;;畫線前先將鎖點改成依程式鎖點
(command "LINE" XXA3 XXD3 "")
(command "LINE" XXB3 XXC3 "")
(setvar "osnapcoord" OSC)  ;;畫線後將osnapcoord值改回預設值
)
(prin1)

感謝大大指導...小弟學到很多
小弟學LISP= =不是正規管道學的...是上網四處找資料拼拼湊湊學的
所以很多地方不是很好請建量
目前還沒辦法達到可以美化到大大提供的那樣XD 但還是感謝大大幫忙美化