Anpassung Gruppe mit größeren geschlossenen polylinearen Größe und Oberflächentexten mit nur einem Klick (mehrfache Auswahl)

[Mano63]

Guten Morgen.
Ich schuf einen Block (Namen post2021, v.H.) mit Einschränkungen, die auf diese Weise funktionieren (siehe Bilder unten):
Betrieb "a" - Auswahl des Blockes wird oben rechts hervorgehoben, zieht auf den entsprechenden Scheitel der größten Polylinie (immer oben rechts) und der Block passt sich an die Größe der größeren Polylinea an (Speichern der Texte besteht aus Datenfeldern, die Größe und Oberfläche melden).in der Praxis, mit Flugzeugen mit Hunderten von Polylinien:
1 - mit einer Lispe stelle ich den post2021 Block in der geometrischen Mitte jeder Polylinie vor, die meine Planimetrie bevölkert (Befehl, der den Block in allen Polylinien mit einer einzigen Auswahl einführt)
2 - Ich wiederhole die Operation "a" für jede im Design enthaltene Polylinie

Ich bitte Sie um Ihre Hilfe (mit einem Flöz Ihrer Schöpfung) um Anpassungen mit einer einzigen Operation durchzuführen.
Ich denke, nützlich, wenn die Blöcke eingefügt werden (Punkt 1) explodieren sie alle mit speziellem Deckel (von denen ich habe) in Gruppen. Gruppen sind so gebunden, dass alle Elemente "die Bewegung der in ihnen enthaltenen Polylinea verfolgen.
der Befehl, den ich Sie bitten sollte, so zu machen, dass die vier Vertiken der inneren Polylinea zur Gruppe überlagert werden, um die vier Vertiken der größten Polylinea (Stimme der Polylinea der Gruppe mit Gipfel der größeren Polylinea näher). die anderen Elemente der Gruppe folgen der Polylinie der Gruppe selbst.

einfaches Konzept, vielleicht komplexere Erklärung... Wenn jemand verstanden und versucht, mir zu helfen, danke ich ihm im Voraus.

Anhang anzeigen 6353535

 

[GP.]

Blöcke einsetzen, in Gruppen verwandeln und Dann Probieren Sie diese Lispe.
mit all diesen Zwängen ist die Operation sehr langsam, so habe ich die Auswahl der zu behandelnden Rechtecke vorgesehen, aber Sie können immer t (alle) auf Anfrage der Auswahlobjekte eingeben.
Eine einzelne Lippe ausgehend von der Einfügung der Blöcke würde schnellere Ergebnisse liefern, da bei jedem Einsatz die Identifikatoren des Rechtecks und des eingesetzten Blocks bereits kennen würden, während nun die Routine alle auf der "track"-Schicht geschlossenen Polylinien durchsucht und dann in jedem nachsucht, wenn geschlossene Polylinien (so müssen die Blöcke bereits explodiert werden) auf der "post"-Schicht sind.
Ich hoffe, es funktioniert, weil die Zeit, sie anzupassen, fehlt.

(Defun c:test)
(setq pks)
(setvar 'pickstyle 0)
(princ "\selezionare and retttangoli da trattare")
(setq poly (ssget '(0 . "lwpolyline") (8 . "traccia") (-4 . "&=") (70 . 1))))
(Repeat)
(setq r2 (ssname poly (setq n (1-n)))))
(setq v_r2 (Karte 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x)))))))
(setq r1 (ssget "_wp" v_r2 '((0. "lwpolyline") (8 . "post") (-4 . "&=") (70.1)))))
(wenn und r1 (= 1)
(Progn)
(Setq r1 (Name r1 0))
(setq v_r1 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))))))
(setq p_or (cadr v_r1))
(setq p_dest)
(Auto)
(vl-sort v_r2
Lambda (x1 x2)
(<)
(Entfernung p_or (Liste)
(Abstand p_or (Liste)
)
)
)
)
)
(entmod (subst 10 p_dest) (cons 10 p_or) (entget r1))
)
)
)
(setvar 'pickstyle pks)
(princ)
)

 

[Mano63]

Danke!!!
muss ich Gruppen oder Polylinien in ihnen auswählen?
... Ich lasse diese Nachricht:

 

[Mano63]

Tut mir leid, gp.
Jetzt verstehe ich. Ich muss die Rechtecke auswählen, denen sich Gruppen anpassen müssen. versuchen mit 3 Rechtecken funktioniert der Befehl perfekt auf 2:Jetzt versuche ich mehr. .

Danke noch mal!

 

[Mano63]

. . . Wählen Sie eine größere Menge funktioniert sowieso auf alle außer 1, aber wenig Materie, das große ist getan!Danke 1000!

 

[GP.]

boh, ich weiß nicht, warum auf einem Rechteck (was dann der erste ist, dass der Lisp-Prozess) nicht funktioniert.
Am Ende kehren Sie den Befehl zurück und versuchen, nur das zu überprüfen.

 

[Mano63]

Schon gut. das eigentliche Problem, unten, sind alle diese Blöcke / Gruppen mit je 27 Zwängen. für eine Planimetrie mit 160 Rechtecken max 15 min (und ich würde sagen, es ist okay - meine Kollegen nicht weniger als 2 h!). Ich habe die ganze Zeit Kaffee, oder?
Danke.
Marsch