Punkte in die Mitte der Kreise einfügen

[arri]

(defun c:test (/ sset ssl)
(setq sset)
(Prog.)
(setq ssl (sslength sset))
(while> ssl 0)
(Befehl "_.point" (cdr) (alsc 10 (Entget))
sset (setq ssl (1- ssl))
),
;
), wenn
(Prinzip)
); defunWas?http://www.newsland.it/nr/browse/it.comp.software.cad/8820.html