---

Hallo,

gibt es eine Möglichkeit einen Auswahlsatz an einen „Sendcommand“ Befehl zu übergeben?

Set aws2 = ThisDrawing.SelectionSets.Add("sr22")
aws2.AddItems Satz
ThisDrawing.SendCommand "_explode" aws2

Ich erstelle einen neuen Auswahlsatz.
Füge diesem die Objekte zu, die sich im Feld „Satz“ befinden.
Dann möchte ich die Objekte des Auswahlsatzes mit „ThisDrawing.SendCommand "_explode"“ auflösen, aber das funktioniert so natürlich nicht.
Wie kann ich die Objekte des Auswahlsatzes an die ACAD-Befehlszeile übergeben.?
Vielen Dank für Eure Hilfe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Theo,

Schau mal hier.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

_Explode verhält sich im Script und in command-Aufrufen so, dass jeweils nur ein Objekt aufgelöst werden kann. Es reicht also, das entsprechende Object als ENAME-Type zu übergeben.

------------------
  - 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

---

hi,

wieso nicht einzeln explodieren? (auch in beug auf deine message 'explodieren nicht gleichmaessig skalierter bloecke')

dim tEnt as AcadEntity
for each tEnt in aws2
  on error resume next
  dim tModSpEntMaxCount as Integer
  tModSpEntMaxCount = ThisDrawing.ModelSpace.Count  'wir merken uns damit,
                                  'ab wo die explodierten elemente stehen
  tEnt.Explode      'ich gehe davon aus, dass hier nur blockref's stehen
  if Err.Number <> 0 then
      'dann den weg ueber sendcommand
      err.clear
      call ThisDrawing.SendCommand("_explode" & vbcr & "(handent """ & tEnt.Handle & """)" & vbcr)
  end if
  if (Err.Number = 0) and (ThisDrawing.ModelSpace.Count > tModSpEntMaxCount) then
      'da jetzt die taetigkeiten, die du mit den explodierten teilen machen willst
  endif
next

VORSICHT: ist nur so geschrieben, tippfehler, klammerfehler, anfuehrungszeichenfehler, logikfehler(?)koennen enthalten sein. aber den weg sollte es dir zeigen.

- alfred -

---

Hallo Alfred
Danke, das war die Lösung. Funktioniert einwandfrei.
Ich hab zwar mit Lisp auch schon ein bisschen probiert, aber da wäre ich selber nicht drauf gekommen.
Wie kann ich mich erkenntlich zeigen. Was hat es mit diesen Units auf sich.
Sorry ich bin hier noch sehr neu.

Gruß, Theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Betreffs Unities ....

------------------
  - 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