Fügen Sie das Zentrum eines festen oder Bereichs mit Multiselektion ein

[fabang]

Hey, Leute, ich bin seit ein paar Jahren nicht hier. Ich setze mein Problem auf.
auf dem Netz fand ich diese Lispe, die Auswahl eines festen oder Bereichs, zieht einen Kreis "rot" in der Position seines Mittelstücks.
bis hier alles in Ordnung ist, entsteht mein Problem aus der Tatsache, dass ich mehr solide zusammen wählen muss, aber das kleine Programm macht mich zu einer Zeit solide wählen.
Ich beziehe mich auf jemanden, der die Lispe modifizieren und die Auswahl nicht nur auf ein Objekt, sondern auf mehr Objekte erweitern kann.
unter Ich decke das ganze Programm ab, das vielleicht nützlich zu jemandem zurückkehren kann.
bye und danke:


;cog3d - zieht die Mitte eines festen oder Gebiets
;
(defun c:cog3d ( / ent coords objent-vl)
(vl-load-com)
(Setvar "cmdecho" 0)
(nicht (setq objent (car (entsel "\nselect solid 3d oder Region: "))))
)
(kein Mitglied (setq ent (cdr) (assoc 0 (entget objent)))) (region)))
(sing)
(Strcat "\n [schlafen] nicht gültig - " ent)
)
(nicht (setq objent (car (entsel "\nselect solid 3d oder Region: "))))
)
)
(setq objent-vl (vlax-ename->vla-object objent))
(setq coords (vlax-get objent-vl "centroid"))
(Befehl "Circle"-Koorden (/ (getvar "viewsize") 50);
(Befehl "_.chprop" "_l" "_col" "1"")
(princ (strcat "\nbaricentro:\nx=" (rtos(car coords) " y=" (rtos(cadr coords))))
(Setvar "cmdecho" 1)
(Principles)
)
(princ "cadstudio cog3d Befehl geladen")
(Principles)

 

[fabang]

... alles ruhig? Kann mir niemand helfen?

 

[GP.]

;cog3d - zieht die Mitte eines festen oder Gebiets

(Defunc c:cog3d (/ sel n ent)
(vl-load-com)
(f)
(sing)
(princ "\nselect solid 3d oder Region: "
(setq sel (ssget '(0). "3dsolid,region"))
)
(Repeat (setq n (sslength sel))
(setq ent (vlax-ename->vla-object (ssname sel (setq n (1-n)))))
(sing)
(Liste)
(cons 0 "circles")
(cons 10 (vlax-get ent "centroid")
(cons 40 (/ (getvar "viewsize") 50)
(cons 621)
)
)
)
(Alert "kein gültiges Objekt (solid/region) ausgewählt. "
)
)

 

[GP.]

würde ich alles stillen?