Auswahl mehrerer Objekte

[Angelo2449]

Hallo alle,
mit der Funktion "entsel" wählen Sie ein Element, jetzt habe ich das Problem, eine Gruppe von Elementen auszuwählen (katstraler Extrakt in dxf)
, wie ich arbeiten kann, um die gesamte Gruppe auszuwählen, wobei die Möglichkeit besteht, die Eigenschaften zu extrahieren :

 (Setq-Extrakt nil)
(sing)
(= Extrakt nil)
(Setq-Extrakt (entsel "\nselect-Extrakt aus Georeferencing : "))
)

(princ "\n")
(Princextrakt)
(princ "\n")

(setq und1 (entget (Autoextrakt)))
(setq en1 (cdr -1 ed1)
(Auszug en1 3)

grazie.

 

[rpor66]

mit ssget, suchen im Netz, finden Beispiele aller Arten.

die Begriffsgruppen können Verwirrung erzeugen, Sie verstehen nicht, ob Sie eine Reihe von Einheiten meinen oder sich auf Gruppen in Autocad beziehen, die durch den Gruppenbefehl erstellt wurden; besser angeben.

Bye

 

[Angelo2449]

Ich las ein wenig, ich denke, das Problem wird gelöst, indem zunächst einen Block aller Elemente ausgewählt werden.
Jetzt müssen Sie die entsprechenden Anweisungen schreiben.
Danke.

 

[Cristallo]

Was meinst du mit Extrakt?
eine Reihe von verschiedenen Wesen zwischen ihnen? (Architekten, Texte, Linien, Kreise usw.)
oder homogen in einigen Eigenschaften (Farbe, Schicht, Linie)
Wenn Sie keinen gemeinsamen Punkt haben, können Sie sie nicht über ssget auswählen, es sei denn, Sie setzen sie irgendwo in der Zeichnung, wo es keine anderen Wesen gibt und eine Ssget-Auswahl mit Fenster.

 

[Angelo2449]

Danke allen,
Ich habe mit diesem Programm einen Block geschaffen:

(refun c:creablocco (/ sset tell ent_get ent_get ent_get blk)
(princ "\n selezioni gli oggetti da raggruppare in blockco anonimo: ')
(setq sset (ssget))
(wenn sset (progn)
(Zwischenruf)
'(0 'Block')
'(2 . '*u')
(70.1)
„(10 0,0 0,0 0,0)
(setq tell 0)
(setq ent)
(while ent
(setq ent_get (entget ent))
(falls (/= (cdr (assoc 0 ent_get)) "Polyline")(progn
(setq ent_getu)
(Tentdel-Pfropf)
(entmake ent_getu)
(Prog.)
(setq entu ent
ent_getu (cdr ent_get)
(while (/= (cdr (assoc 0 ent_getu)) "seqend")
(setq ent_getu (cdr (entget entu))
(entmake ent_getu)
(setq entu (entnext entu))
),
(Tentdel-Pfropf)
)
), wenn
(setq tell (+ tell 1))
(setq ent)
)
(setq blk (entmake (list '(0 . "endblk"))))
(entmake)
(cons 2blk)
„(10 0,0 0,0 0,0)
);
), wenn
(princ "\n il gruppo è stato creato")
(princ)
)
(princ)

Wählen Sie dann den erstellten Block und tun Sie alles.