---

Hallo Zusammen,

ich versuche gerade mich in die Macroprogrammierung mittels CATScript und Visual Basic einzuarbeiten. Hierzu habe ich das Buch zur Macro Konstruktion als Hilfsmittel.

Zu Beginn habe ich einfach mal etwas rumgespielt und bereits das erste Problem. Ich habe ein catvba projekt erzeugt und eine Userform angelegt.
Mittels klick auf einen Commandbutton möchte ich die in der catia.cad.de downloadsection verfügbare Prozedur zum ausblenden der Ebenen eines Dokuments ausführen.
Meine Subroutine sieht folgendermaßen aus:
----
Private Sub CommandButton1_Click()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search ".Ebene;Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

End Sub
----

Beim compilieren der Routine kommt nun folgende Fehlermeldung schon für den Ausdruck:
Dim productDocument1 As Document

--> User defined Type not defined

Im CATScript ist das Macro lauffähig aber unter VB bekommen ich eben diese Fehlermeldung.
Würde mich sehr freuen wenn mir hierzu jemand helfen könnte...

Gruß und lieben Dank, Mimi

PS: Theoretisch würde mir auch die Möglichkeit langen ein CATScript beim Click auf den Button auszuführen....

[Diese Nachricht wurde von Mimi am 26. September 2003 editiert.]

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

---

Hallo Mimi!

Versuch es mal mit:
Dim productDocument1 As ProductDocument

oder
Dim productDocument1

Gruss
Jan

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

---

Super, recht herzlichen Dank... im VB muss mal die AS deklarationen in diesem Fall weglassen, dann geht es.

Der funktionsfähige Code lautet dann also:

---
Private Sub CommandButton1_Click()

Dim productDocument1
Set productDocument1 = CATIA.ActiveDocument

Dim selection1
Set selection1 = productDocument1.Selection

selection1.Search ".Ebene;Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1

End Sub
--

Eigentlich logisch das selbe Problem gabs ja auch im Thread:
http://ww3.cad.de/foren/ubb/Forum137/HTML/000196.shtml

Nochmals herzlichen Dank... Problem gelöst

MFG Mimi

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