---

Ich habe ein kleines Programm geschrieben, das die in der aktuellen Zeichnung an markierten Texten (einzeilige) Änderungen an der Zeichenfolge vornehmen soll. Es funktioniert auch wie gedacht. Das Problem besteht aber darin, daß das nur der Fall ist, wenn ich das Programm aus dem VBA-Editor heraus starte (F5). Starte ich das Programm von AutoCAD über Menü Makro ... erkennt das Programm die Markierungen nicht. Warum?
---------------------------------------------------
Sub TeilZkErsetzen()
Dim ii As Long, n As Integer, ZKalt As String, ZKneu As String
Dim TextObjekt As AcadText, Auswahl As AcadSelectionSet, AuswahlObjekt As AcadEntity

Set Auswahl = ThisDrawing.PickfirstSelectionSet 'enthält die in der Zeichnung markierten Objekte
If Auswahl.Count = 0 Then
  MsgBox "Es sind keine Texte in der Zeichnung markiert. Also mache ich nichts."
  Exit Sub
End If

Load frmZeichenErsetzen
frmZeichenErsetzen.Show 1
If frmZeichenErsetzen.Caption = "AbbruchAbbruch" Then
  Unload frmzeichensetzen
  Set frmZeichenErsetzen = Nothing
  Exit Sub
End If
ZKalt = frmZeichenErsetzen.txtAlt.Text
ZKneu = frmZeichenErsetzen.txtNeu.Text
For Each AuswahlObjekt In Auswahl
  'MsgBox AuswahlObjekt.ObjectName
  If AuswahlObjekt.ObjectName = "AcDbText" Then
    'Hier erfolgt jetzt die eigentliche Bearbeitung
    AuswahlObjekt.TextString = Replace(AuswahlObjekt.TextString, ZKalt, ZKneu, 1)
  End If
Next AuswahlObjekt
End Sub

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

---

Hi,

weil aus Dialog Makro das PickFirstSelectionSet gekillt wird.

Ich weiss es jetzt nicht, probier mal Dein Makro so aufzurufen:

-vbarun TeilZkErsetzen

Lass mich wissen, wenn das nicht geht, ich hatte das schon mal gelöst und muss 'nur' suchen.

- alfred -

------------------
www.hollaus.at

---

Hi Alfred!
Es geht so leider auch nicht. Ich habe der Vollstädigkeit halber mir den Befehl in ein Menü gelegt. Sobald ich den Menübutton drücke wird die Markierung aufgehoben.

Also weiter mit Versuch und Irrtum

Gruß Günter

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

---

Hi,

OK, ein wenig Suche und ich kam auf dieses:

(vla-runmacro (vlax-get-acad-object) "TeilZkErsetzen")

- alfred -

------------------
www.hollaus.at

---

Wenn ich dies in der Befehlszeile eintippe bekomme ich die Fehlermeldung: "no function definition: VLAX-GET-ACAD-OBJECT"

Damit bin ich erstmal am Ende meines VLisp-Lateins. Besser gesagt habe ich bisher mit VLisp noch nichts gemacht. Ausgehend von Deinem Vorschlag habe ich jetzt erstmal angefangen mir in der Hilfe das Kapitel VLISP näher anzuschauen. Aber wie gesagt bis jetzt ohne praktisch verwertbare Erkenntnisse.
Ich gehe doch richtig in der Annahme, daß es sich um Vlisp handelt. Oder?

Günter

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

---

Hi,

(vl-load-com) vorher starten. 
Vergess ich leider immer wieder, weil's bei mir automatisch geladen wird.

- alfred -

------------------
www.hollaus.at

---

Es hat geklappt. Es gibt aber meiner, diesbezüglich geringen,  Erfahrung nach noch zu bemerken, daß der VBA-Editor geöffnet sein muß und das VBA-Projekt geladen sein.

Danke Alfred

Gruß Günter

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

---

Hi,

ich verstehe, dass das DVB-Projekt geladen sein muss, yes, das musst Du schon vorher machen.

Aber dass der VBA-Editor geöffnet sein muss, das glaub ich mal nicht. 
Es kann vielleicht sein, dass Du beim Aufruf den DVB-Dateinamen mitübergeben musst, aber die Notwendigkeit des geladenen VBA-IDE?

(vla-runmacro (vlax-get-acad-object) "XX.dvb!TeilZkErsetzen")

Sollte das bei Dir tatsächlich reproduzierbar sein, dann bitte Systeminfo eintragen, damit ich ev. daraus Rückschlüsse ziehen kann.

- alfred -

------------------
www.hollaus.at