(defun c:ii ()
(setvar "cmdecho" 0)
(setq point_ss (ssget '((0 . "point"))))
(setq i 0)
(repeat
(sslength point_ss)
(setq en(ssname point_ss i))
(setq a1(entget en))
(setq a2(cdr(assoc 10 a1)))
;;以下開始就一直搞不好，有時可以有時只會畫長度0的線
(setq x1(polar a2 pi 2.5))
(setq x2(polar x1 0 5))
(setq y1(polar a2 (* pi 1.5) 2.5))
(setq y2(polar y1 (* pi 0.5) 5))
(command "line" x1 x2 "")
(command "chprop" "l" "" "c" "2" "")
(command "line" ...
↧