[求助]為什麼不會照順序執行

(defun c:vb(/)
(command "PLINE")
(getpoint "\n指定偏移物件:")
(command "OFFSET")
)
請問各位先進為什麼這樣寫他雖然有執行pline這個指令
但不會讓我完成pline而是直接往下執行

我不太懂這支程式想做什麼

但有幾個問題

1.(command "PLINE")            指令沒有給引數 自然無法完成
2.(getpoint "\n指定偏移物件")   getpoint指定的點應該用變數裝起來 才能做後續應用 例如: (setq p1 (getpoint "\n指定偏移物件"))
3.getpoint 是用來指定點 如果要指定物件 應該使用ssget選取集

LuZongTing 寫到:(defun c:vb(/)
 (command "PLINE")
 (getpoint "\n指定偏移物件:")
 (command "OFFSET")
 )
請問各位先進為什麼這樣寫他雖然有執行pline這個指令
但不會讓我完成pline而是直接往下執行

(command "PLINE") 這邊就只是執行pline指令而已 但你沒要求他做啥 或許你可以用getpoint 給兩點 然後再跑PLINE指令 畫線
getpoint 是叫你點取一點 他取得那點最標 應該不是拿來指定偏移物件用

雖然不確定你要的程式是否是這樣

(defun c:AX1()
(setvar "cmdecho" 0)
(command "LINE" pause pause "")
(setq sel1 (ssget "L"))
(setq XA (getdist "距離"))
(command "OFFSET" XA sel1 pause)
(prin1)
)
執行先畫一條線 (點取兩點)
然後取得剛剛畫到的線
輸入偏移距離
使用偏移 (自動選取線以及輸入剛剛的偏移距離) 只需點取偏移方向