Autolisp, sağlam veya bölgenin merkezini çizer....help

[fabang]

Hey, çocuklar, birkaç yıldır burada değildim. Problemimi yapıyorum.
Nette bu lisp'i sağlam veya bölge seçerek, merkezi konumunda bir çember çizerdim.
Her şey yolunda olana kadar, problemim birlikte daha sağlam seçmem gerektiği gerçeğinden ortaya çıkıyor, ancak küçük program bir anda sağlam seçmemi sağlıyor.
Lisp'i değiştirebilecek ve seçimi sadece bir nesneye değil daha fazla nesneye uzatabilecek birine atıfta bulunuyorum.
Aşağıda tüm programı kapıyorum, bu belki birine faydalı olabilir.
Ve teşekkürler:


;cog3d - sağlam veya bölgenin merkezini çizer
;
(defun c:cog3d ( / ent coords Targetnt-vl)
(vl-load-com)
(setvar "cmdecho" 0)
(O zaman (ortak hedefsiz değil (kar) (entsel "gerçekten 3d veya bölge: ")))))
)
(O zaman (belirli (setq ent (cdr) (anc 0 (entget Progressnt)) (3dsolid) (bölge)))
(sing)
(strcat "\n [Bleep] geçerli değil - " ent)
)
(O zaman (ortak hedefsiz değil (kar) (entsel "gerçekten 3d veya bölge: ")))))
)
)
(setq Targetnt-vl (vlax-ename->vla-object Targetnt))
(setq koords (vlax-get Targetnt-vl "centroid"))
(command "circle" coords ( / (getvar "viewsize") 50); bunu çizer.
(command "_.chprop" "_l" "_col" "1")
(princ (strcat "\nbaricentro:\nx=" (rtos(car coords) " y=" (rtos(cadr koords)" .
(setvar "cmdecho" 1) 1) 1)
(principles)
)
(princ "cadstudio cog3d komut yüklü")
(principles)