(defun c:inmp (/ ss en ed p10 p11 mp)
(while (and (setq ss (ssget '((0 . "LINE"))))
(= (sslength ss) 1))
(setq en (ssname ss 0)
ed (entget en)
p10 (cdr (assoc 10 ed))
p11 (cdr (assoc 11 ed))
mp (mapcar '(lambda (a b) (* (+ a b) 0.5)) p10 p11))
(command "_.INSERT" "test" mp 1 1 (/ (* (+ (* pi 0.5) (angle p10 p11)) 180.0) pi)))
(prin1))
-大卫
页:
1
[2]