[求助]麻煩版主改一下lisp

siiling16

我有lisp是自動畫沉頭的,但是程式是分段的

煩請版主可否改成輸入指令後再選擇沉頭大小

lisp源碼

(defun c:c3()
       (setq cmd(getvar "cmdecho"))
       (setvar "cmdecho" 0)
       (setq p1(getpoint "\n選擇擺放位置:"))
       (while (/= p1 nil)
       (command "circle" "none" p1 2)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")
       (command "circle" "none" p1 3.5)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")  
      
       (setq p1(getpoint "\nselect a point:")))
       (setvar "cmdecho" cmd)
)

(defun c:c4()
       (setq cmd(getvar "cmdecho"))
       (setvar "cmdecho" 0)
       (setq p1(getpoint "\n選擇擺放位置:"))
       (while (/= p1 nil)
       (command "circle" "none" p1 2.5)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")
       (command "circle" "none" p1 4)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")  
      
       (setq p1(getpoint "\nselect a point:")))
       (setvar "cmdecho" cmd)
)

(defun c:c5()
       (setq cmd(getvar "cmdecho"))
       (setvar "cmdecho" 0)
       (setq p1(getpoint "\n選擇擺放位置:"))
       (while (/= p1 nil)
       (command "circle" "none" p1 3)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")
       (command "circle" "none" p1 5)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")  
      
       (setq p1(getpoint "\nselect a point:")))
       (setvar "cmdecho" cmd)
)

(defun c:c6()
       (setq cmd(getvar "cmdecho"))
       (setvar "cmdecho" 0)
       (setq p1(getpoint "\n選擇擺放位置:"))
       (while (/= p1 nil)
       (command "circle" "none" p1 3.5)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")
       (command "circle" "none" p1 6)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")  
      
       (setq p1(getpoint "\nselect a point:")))
       (setvar "cmdecho" cmd)
)

(defun c:c8()
       (setq cmd(getvar "cmdecho"))
       (setvar "cmdecho" 0)
       (setq p1(getpoint "\n選擇擺放位置:"))
       (while (/= p1 nil)
       (command "circle" "none" p1 4.5)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")
       (command "circle" "none" p1 7)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")  
      
       (setq p1(getpoint "\nselect a point:")))
       (setvar "cmdecho" cmd)
)

(defun c:c10()
       (setq cmd(getvar "cmdecho"))
       (setvar "cmdecho" 0)
       (setq p1(getpoint "\n選擇擺放位置:"))
       (while (/= p1 nil)
       (command "circle" "none" p1 5.5)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")
       (command "circle" "none" p1 8)
       (command "change"(ENTLAST) "" "p"  "C" "6" "")  
      
       (setq p1(getpoint "\nselect a point:")))
       (setvar "cmdecho" cmd)
)

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

siiling16

謝謝版主熱情回答!!太感謝了

siiling16

可以再麻煩版主一下,可否按照沉頭一下改成螺絲孔的lisp

一樣是1.螺絲孔大小及中心位置輸入,

要有 M4 M5 M6 M8 M10 M12 M16 M30 M33

麻煩版主一下 !!

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

siiling16

版主 本人使用好像出現錯誤

錯誤: 損壞的引數類型: numberp: nil

請版主再幫忙檢查一下

twingo18

參考看看

yoyoho

(DEFUN C:TT1 ( / PB M H V P0 MI PO1 PT1 PT2 PT3 PT4 OLDL OLDOS)
(SETQ PB (GETPOINT "Base point 基准点 :")
      H (GETDIST "\nCoordinate of hor  水平座标 H = ")
      V (GETDIST "\nCoordinate of vert 垂直座标 V = ")
      M (GETDIST "\nDiameter of bolt  螺栓直径 M = ")
      PO (LIST (+ (CAR PB) H) (+ (CADR PB) V))
      MI (* M 0.85)
      PO1 (POLAR PO 1.0472 (* M 0.5))
      PT1 (POLAR PO 0 M) PT2 (POLAR PO PI M)
      AL1 (* (/ PI 2) 3) AL2 (/ PI 2)
      PT3 (POLAR PO AL1 M) PT4 (POLAR PO AL2 M)
      OLDL (GETVAR "CLAYER")  OLDOS (GETVAR "OSMODE"))
(SETVAR "BLIPMODE" 0) (SETVAR "CMDECHO" 0) (SETVAR "OSMODE" 0)
(COMMAND "LAYER" "M" "BLO" "" "CIRCLE" PO "D" MI
      "LAYER" "M" "THI" "" "ARC" PO1 "C" PO "A" 270
      "LAYER" "M" "CEN" "" "LINE" PT1 PT2 "" "LINE" PT3 PT4 "")
(SETVAR "CLAYER" OLDL)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)

434939575

ZZXXQQ  超级版主.超级hao版主