---

Hallo liebe VBA-Gemeinde,

ich habe folgendes Problem. Ich erstelle im drafting 4 Linien. Die sind als Line2D deklariert. dannach mache ich folgendes

  Code (VBA):
  Dim Mysel1 As Selection
  Dim Linst As VisPropertySet
 
  Set Mysel1 = CATIA.ActiveDocument.Selection
  Mysel1.Clear

  Mysel1.Add (MyLin1)
  Mysel1.Add (MyLin2)
  Mysel1.Add (MyLin3)
  Mysel1.Add (MyLin4) ' Hier gibt es das problem. Er gibt die fehlermeldung raus das er die " Object doesent support this property oder methode"
Wenn ich die zeile auskommentiere dann macht er brav das was er machen soll. Das problem tritt an später stelle in meinem Makro nochmal auf.

  Set Linst = Mysel1.VisProperties
  Linst.SetRealWidth 1, 1
  Mysel1.Clear

Wäre super wenn mir jemand sagen könnte was da das problem ist.

------------------
mfg
Udo

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

---

Hallo Liebe VBA-Gemeinde,

mein problem hat sich erledigt. Hatte eine falsche variablen Definition drin.

------------------
mfg
Udo

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