U-TURN
(defun c:u-turn ()
(setq old_cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq st (getpoint "\n Pick Point :")
p1 (list (car st)(+(cadr st)0.50))
p2 (list (+(car p1)0.35)(cadr p1))
p3 (list (car p2)(-(cadr p2)0.25))
p4 (list (car p3)(-(cadr p3)0.25))
)
(command "_pline" st "W" "0.10" "" p1 "A" p2 "L" p3 "W" "0.30" "0.00" p4 "")
(setvar "cmdecho" old_cmdecho)
(princ)
);end
ไม่มีความคิดเห็น:
แสดงความคิดเห็น