四条射线代码，能否化简一下
(apply 'mapcar (cons '(lambda(o p) (vla-addline (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))) o p))(mapcar '(lambda (z ) (mapcar '(lambda(x) (setq x (* pi x))(vlax-3d-point (mapcar '(lambda (y) (* z y)) (list (cos x)(sin x))))) '(0.25 0.75 1.25 1.75))) '(3 10))))http://bbs.mjtd.com/forum.php?mod=image&aid=102330&size=300x300&key=a506055132059650&nocache=yes&type=fixnone
(defun c:tt (/ p)
(while (setq p (getpoint "\n请注明点 : "))
(foreach x '(0.25 0.75 1.25 1.75)
(entmakex
(cons '(0 . "LINE") (mapcar ''((a b) (cons a (polar (trans p 0 1) (* pi x) b))) '(10 11) '(3 10)))
)
)
)
(princ)
)
谢谢!分享程序!!!
页:
[1]