(defun c:sdf() (command "osnap" "nod,end,cen") (command "layer" "m" "200" "c" "6" "" "") (setq p1 (getpoint "\n请输入第一个点(0,0):")) (setq p2 (getpoint p1 "\n请输入第二个点(0,0):")) (setq p3 (getpoint p2"\n请输入第三个点(0,0):")) (command "osnap" "off") (setq s (distance p1 p2)) (setq p4 (polar p3 (angle p2 p1) s)) (command "pline" p1 "w" 0 0 p2 p3 p4 "c" "") )
|