---

Hallo liebes Forum,

ich habe mit VBA einen Block eingefügt (Punkt, Richtung), der nur aus einer Multiführungslinie besteht.
Diesen hab ich gesprengt.

Und jetzt müsste ich diese Multiführungslinie auswählen, sodass die blauen Griffe sichtbar sind.
Optimal wäre, wenn dann noch der Griff am MText-Feld gleich an der Mouse hängen würde, damit ich die Schrift korrekt platzieren kann.

Wie kann lässt sich das programmieren?

Vielen Dank
für Eure Hilfe

------------------
Grüße aus München
Christian

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

---

Liebe Forum,

vielleicht habe ich meine Frage nicht genau genug formuliert.

Ich habe einen Block, der nur aus einer Multiline mit Textinhalt besteht per VBA eingefügt und gesprengt.
Jetzt würde ich gerne das, was von der Sprengung übrig bleibt, nämlich die Multilinie, auswählen und den Griff, der am Textfeld hängt an den Mousezeiger hängen, um dann eine neue Position für das Textfeld eingeben zu können. Der Strich am Textfeld soll dort bleiben wo er ist.

Wie kann ich auf die Objekte, die nach einer Sprengung aus einem Block entstehen, zugreifen bzw. diese auswählen?
Wie kann ich die Griffe sichtbar machen?
Und wie kann ich dann den "richtigen" Griff an den Mousezeiger hängen?

Stichpunkte würden mir schon weiterhelfen, dann kann ich selber weitersuchen.

------------------
Grüße aus München
Christian

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

---

Hallo Christian,

vermutlich liegt es daran, dass Dein Vorhaben nicht ganz banal ist und eine Lösung mit VBA fast unmöglich.
Kann mich daran erinnern dass ein ähnliches Vorhaben hier schon einmal diskutiert wurde, konnte aber den Beitrag noch nicht finden. Aber ich glaube damals mußte es dann über Lisp-code gelöst werden.

Außerdem ist es immer hilfreich eine Beispielzeichnung und den bisherigen Code zu haben. Ein Bild (Skizze) sagt manchmal mehr als eine unverständliche Erklärung. So ganz klar ist mir noch nicht was Du wirklich vor hast. Warum muß die Multilinie mit Griffen markiert sein während der Text am Mauszeiger verschoben wird?

Wenn Du den Block zerlegt hast, müßten die neuen Objekte die letzten Elemente der ModelSpace.item()-Liste sein
( ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1) = letztes Element )
In Deinem Fall also die letzten beiden Elemente.

Ebenfalls unklar ist die Linie die zum Text führen soll. Ist diese Linie eine Multilinie oder eine Multiführungslinie zum Text im Block? Deinem ersten Beitrag nach bin ich hier von einer normalen Führungsbemaßung ausgegangen ( AcadLeader mit AnnotationObject )

Grüße
Klaus 

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

---

Wenn der Block im Modellbereich explodiert werden sollte, dann kann man sich vor dem Explodieren den Wert ModelSpace.Count merken, dann EXPLODE durchführen und dann wiederum ModelSpace.Count heranziehen (der ja jetzt größer sein müsste). Nun hat man die Elemente im ModelSpace über den Index an der Hand.

Aber generell stimme ich zu, wenn es einen Block mit spezieller Ausführung gibt, und schon einen Code, wie der Block eingesetzt/explodiert wird, dann fällt eine Antwort jedenfalls leichter (und gezielter) aus, wenn man sich ansehen kann, was Du tatsächlich hast. Dann wird aus "Raten": "beraten" 

------------------


www.cars4fun.at

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

---

Zitat:

---

Original erstellt von Ingenieur Studio HOLLAUS:
Wenn der Block im Modellbereich explodiert werden sollte, dann kann man sich vor dem Explodieren den Wert ModelSpace.Count merken, dann EXPLODE durchführen und dann wiederum ModelSpace.Count heranziehen (der ja jetzt größer sein müsste).

---

Nur wenn der ehemalige Block mehr als ein Element enthält

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

---

Zitat:

---

Nur wenn der ehemalige Block mehr als ein Element enthält

---

Hängt von der Explode-Methode ab!
Schicke ich den Befehl _EXPLODE mittels SendCommand ==> dann hast Du recht, denn die ursprüngliche Blockreference wird dabei vernichtet.
Wird jedoch im Code BlRef.Explode (also die Methode .Explode für BlockRefernces) angewendet, bleibt die BlockReference erhalten! Und da dies die bevorzugte/saubere Variante ist, würde ich meinen, dass ModelSpace.Count nach ".Explode" größer wäre als vorher (Ausnahme: der Block selbst hat keine Elemente erhalten oder wir sprechen nicht von ModelSpace  ).

------------------


www.cars4fun.at

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

---

Seit wann ist das denn der Fall? Gerade getestet, Du hast recht der Block bleibt erhalten 
Ist mir bisher noch gar nicht aufgefallen aber ich benutze BlockRef.Explode eigentlich nie.
Wieder was dazu gelernt ...

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

---

Ist bei der entsprechenden VLisp-Funktion identisch geregelt, nur mal so am Rande erwähnt.

Quick&Dirty kann man halt die AutoCAD-Objektwahl nutzen, denke das war auch die oben erwähnte Richtung mit Lisp.
Denn die aufgelösten Objekte eines Explode-Vorganges sind alle im Auswahlsatz "Vorher" abgelegt.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Die Frage die sich mir schon die ganze Zeit stellt:
Warum wird ein Block eingefügt und gleich aufgelöst?

Kann man da nicht gleich die Führungslinie erstellen (2 x getPoint) und den Text als AnnotationObjekt programmintern dazufügen? Ob jetzt der Blockname anders ist oder der Textinhalt sollte doch keinen Unterschied machen ... (außer dass die Blocktabelle kleiner bleibt)

[Edit]
Wenn Du unbedingt Zugriff auf die Elemente eines aufgelösten Block brauchst, kannst Du auch über:

Code:

---

Dim ExplObjs as Variant
ExplObjs = oBlockRef.explode

---

diese in einer Item-Liste zur Verfügung haben
[/Edit]

[Diese Nachricht wurde von KlaK am 17. Jun. 2015 editiert.]

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

---

MFL.png

Liebes Forum,

vielen Dank für die Tipps.
Die Antwort warum ich den Block einfüge und gleich auflöse ist folgende.

Ich muss den Text der Mulitführungslinie an einem Objekt (Line, PL, Arc) ausrichten.
Und da weiß ich nicht, wie ich das machen soll.
Außerdem steht im Textfeld bereits der Text drin, den ich haben möchte und der Abstand des Textfeldes zum Objekt soll grundsätzlich gleich sein.
Deshalb ist der geringste Aufwand den Block mit der einen Multiführungslinie einzufügen, die Richtung anzugeben und ihn dann zu sprengen.
Da dann aber manchmal der Abstand des Textes zum Objekt nicht passt, muss ich händisch nachrücken können.
Dazu muss ich die gesprengte Multiführungslinie anklicken, dann den Griff und dann den Text verschieben.
Und die Aktionen würde ich gerne automatisieren, damit ich, falls die Position ok ist nur ESC drücken muss.

Das ganze wird von vielen einzelnen Subs erledigt.
Der Block wird mit "BlkRef.Explode" gesprengt und wir sprechen vom Modelspace.
Im anhängenden Bild ist vielleicht zu verstehen, was ich möchte.

Danke für's Mitdenken und hoffentlich BEraten.

------------------
Grüße aus München
Christian

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

---

Schon ein bisserl her dieses Thema, ich hatte da auch mal Fragen bzgl. Block sprengen in VBA, falls du das Problem immer noch hast: evtl hilft das hier weiter
http://forum.cad.de/foren/ubb/Forum259/HTML/002107.shtml

entgegen dem Anschein in diesem Thread, konnte ich mein Problem dann doch noch lösen (...und auch noch einige andere)
Mir hat v.a. geholfen, dass die Blockreferenz auch nach dem Sprengen immer noch vorhanden ist, ich hab' dann lediglich nachdem ich an die Informationen gekommen bin, dich gebraucht habe, die Objekte gelöscht, die keine Blockreferenz waren.
Die beim Sprengen erstellte Tabelle lässt sich mit der Eigenschaft .EntityType gezielt nach bestimmten Objekten durchsuchen. Einfach die Tabelle durchlaufen lassen und bei der richtigen Eigenschaft .EntityType abfragen. Meine Blöcke enthalten durchaus mehr als nur ein oder zwei Objekte, also funktioniert's auch bei komplexeren Fragestellungen

bei mir schaut das dann z.B. so aus

Code:

---

For Each oBlckRefP In oSSetRacksP
        varTab = oBlckRefP.Explode
        For i = LBound(varTab) To UBound(varTab)
            If varTab(i).EntityType = 19 Then ' Hier .EntityTpe angeben
                ...
                End If
            End If
        Next
        ' explodierte Elemente löschen
        For i = LBound(varTab) To UBound(varTab)
            varTab(i).Delete
        Next i
        varTab.Delete
        varTab.Erase
        ...
        Exit For
    Next

---

P.S.: Codeschnipsel nicht vollständig

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

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

---

Naja ich würd den Text und das Referenzobjekt auslesen (Selectionset)
Anhand der Einfügepunkte von den Elementen lässt sich mit mäßigem Mathematischen Aufwand der gewünschte Referenzpunkt ermitteln.

Bei der Linie sind das STARTPOINT und ENDPOINT.
Bei nem ARC ist es CENTER(point?)

Nun würd ich für uralt ACAD einen Dynablock mit Textattribut machen bei dem sich die Position des Führungspfeil anordnen lässt.
(Diesen dann einfügen)

Für neuere Versionen einen MLEADER prorammtechnisch erstellen.

Den Text hast du ja ausgelesen, den kann man somit in das ganze als Attributinhalt oder Text einpflegen.
So keine Fehler aufgetaucht sind das alte Textobjekt löschen.

Bischen rustikal aber einfach 

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< for sale !

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