XLINE運用

XLINE運用

(prompt "\n**<用途:建構=垂直線,VV>**")
(command "_.xline" "v" pause "")

(prompt "\n**<用途:建構=水平線,HH>**")
(command "_.xline" "h" pause "")

(prompt "\n**<用途:兩點水平垂直交線,X4>**")
(setq pta (GETPOINT "\n 點選水平位置:"))
(setq ptb (GETPOINT pta "\n 點選垂直位置:"))
(command "_.xline" "h" pta "")
(command "_.xline" "v" ptb "")