Acaddeki 3 Boyutlu noktalarımı merkez alarak 1 metre yarıçaplı çemberler oluşturmak istiyorum, mümkünse noktaları kaybetmeden. Bunun için paylaşacağınız bir Lisp var mıdır ?
(defun c:pc (/ a l m) (vl-load-com)
(if (setq a (vla-get-activedocument (vlax-get-acad-object))
l (ssget '((0 . "point"))))
(progn (vla-startundomark a)
(repeat (setq m (sslength l))
(entmake (list '(0 . "circle") (assoc 10 (entget
(ssname l (setq m (1- m))))) '(40 . 1))))
(vla-endundomark a)
)
) (prin1)
)
