ein paar Codezeilen zum ausprobieren (einzeln der Reihe nach) :
(setq a(ssget))
---
(sssetfirst a a)
---
(sssetfirst nil nil)
---
(setq B(ssget))
---
(sssetfirst b b)
---
(sssetfirst nil nil)
---
(if (and A B)
(progn
(setq C (ssadd))
(setq I -1)
(repeat (sslength A)
(ssadd (ssname A (setq I(1+ I))) C)
)
(setq I -1)
(repeat (sslength B)
(ssadd (ssname B (setq I(1+ I))) C)
)
)
)
---
(sssetfirst C C)
daraus kann man sich dann entsprechene Funktionen basteln, die dann Auswahlsätze Addieren, abziehen usw.
und für die Übergabe an ACAD-Befehle geht Variablenaufruf mit vorangestelltem ! z.B. so :
Befehl: KOPIEREN
Objekte wählen: !a
<Selection set: 61a>
4 gefunden
Objekte wählen:
Aktuelle Einstellungen: Kopiermodus = Einzeln
Basispunkt angeben oder [Verschiebung/mOdus/Mehrfach] <Verschiebung>: Zweiten
Punkt angeben oder <ersten Punkt der Verschiebung verwenden>:
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP