---

Dokument1.pdf

Hallo,
hab immer noch ein Problem mit der Deklaration von meinen Variablen. Will die global deklarieren, damit sie auch in meinen Funktionen noch gültig sind. Ich hab inzwischen im Internet gelesen, dass man die dann nicht mit 'Dim' sondern mit 'Private' deklarieren muss. Allerdings ist mir die Stelle im Code noch nicht wirklich klar.
Wenn ich sie vor das Sub CATMAin() schreib, kommt die erste Fehlermeldung
Wenn ich sie ins Sub CATMain () schreib, kommt die zweite Fehlermeldung (da mag er das Wort 'Private' nicht) und
Wenn ich sie vor eine function schreib, kommt die dritte Fehlermeldung...
Gruß Betty

Kann mir jemand einen Tipp geben? Hab echt schon ne Weile im Internet gesucht.

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

---

Die Private oder Public Deklarationen setzt du vor dem Code, der mit dem Eintrittspunkt "Sub CATMain() beginnt

Bsp:

Public STRINGFILE As String

Private NEWSHEET As Boolean

Sub CATMain ()

.... [hier dein Code]

End Sub

------------------
Grüße aus dem Rheinland

Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

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

---

Hab es inzwischen rausbekommen: Die Deklaration der Variablen kommt vor das Sub (wie oben schon geschrieben), die Wert-Zuweisung - da muss man erstmal draufkommen - steht trotzdem immer im Sub.
Das klingt jetzt für die richtigen Programmierer wahrscheinlich recht logisch. Für die Einsteiger ist es das (anscheinend) nicht. Also entschuldigt die Frage...
Gruß Betty

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

---

Hallo Bettina,

also kurz zu den Deklarationen:

Dim deklariert eine Variable innerhalb einer Prozedur z.B. innerhalb der CATMain)
Private deklariert eine Variable global für diese Library (z.B. in CATvba innerhalb eines Moduls. Zugriff von allen Prozeduren des Moduls)
Public deklariert eine Variable für die gesamte Library (z.B. in CATvba innerhalb eines Projekts (Library). Zugriff von allen Prozeduren aller Module der Library)

Jetzt zu deinem Problem. Hier mal ein kurzes Beispielscript wo welche Deklaration zu stehen hat

Code:

---

Public myPublicVar as String
Private myPrivateVar as String

Sub CATMain()
  Dim myInternVar as String
  myInternVar = "interne Variable...nur in CATMain verfügbar"

  myPublicVar = "globale Variable...in allen Prozeduren verfügbar"

  myPrivateVar = "globale Variable...in allen Prozeduren verfügbar"

  Test()
End Sub

Sub Test()
  'Funktioniert nicht (sobald du außerhalb der CATMain kommst wird der Inhalt der Variablen gelöscht btzw. ist nicht verfügbar)
  If myInternVar = "" then
    '...
  End If

  'Funktioniert da die Variable zwar in der CATMain "gefüllt" wurde aber in allen Prozeduren verfügbar ist
  If myPublicVar = "" then
    '...
  End If

  'Funktioniert da die Variable zwar in der CATMain "gefüllt" wurde aber in allen Prozeduren verfügbar ist
  If myPrivateVar = "" then
    '...
  End If

End Sub

---

Kopiere mal den ganzen Code in den VB-Editor und lass alle drei Variablen überwachen. Jetzt machst du ein Step-byStep debugging und schaust was mit den Variablen passiert.

=> Innerhalb der CATMain werden alle Variablen "gefüllt". Sobald du aber aus der CATMain in die Prozedur "Test" springst wird der Inhalt der Variable (myInternVar) nicht mehr Verfügbar sein. Sie ist also leer und du kannst sie nicht vergleichen. Der Inhalt der beiden anderen Varaibeln hingegen bleibst verfügbar weil sie in allen Prozeduren mit dem selben Inhalt existieren.

[EDIT] Puh viel zu spät dran...aber immer noch schneller wie Ruebe  [/EDIT]

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

   

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

---

Moin,
auch wenn ACAD-VBA drübersteht, die basics sind für uns alle gleich. Schau also hier mal rein KLICK. So ziemlich in der Mitte ist der Part mit den Variablen, deren Deklariation, Gültigkeitsbereich, Lebenszeit und die Sache mit Static, Const, Option explicit usw.

HTH

PS: ok, bißchen spät dran gewesen, sorry, vielleicht hilft's aber trotzdem mit dem Tutorial, ich laß die AW also stehen.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Eine Frage zu globalen Variablen.
Ich benutze veschiedene Skripte, welche von einer Funktion nacheinander aufgerufen werden.

Sieht etwa so aus:
Sub CATmain ()
Params(0) = ProgramHome
Params(1) = InputMain
Params(2) = OutputMain
Params(3) = Matlab
E = CATIA.SystemService.ExecuteScript (ProgramHome, catScriptLibraryTypeDirectory, "CabCAT_Shell.catvbs" , "CATmain", Params)
E = CATIA.SystemService.ExecuteScript (ProgramHome, catScriptLibraryTypeDirectory, "CabCAT_OHS.catvbs" , "CATmain", Params)
E = CATIA.SystemService.ExecuteScript (ProgramHome, catScriptLibraryTypeDirectory, "CabCAT_MakeSplit.catvbs" , "CATmain", Params)
'E = CATIA.SystemService.ExecuteScript (ProgramHome, catScriptLibraryTypeDirectory, "CabCAT_PC_Window.catvbs" , "CATmain", Params)
'E = CATIA.SystemService.ExecuteScript (ProgramHome, catScriptLibraryTypeDirectory, "CabCAT_Parameter.catvbs" , "CATmain", Params)
End Sub

Ich kann nun mit dem Befehl "Public" leider keine globalen Variablen setzen, jedenfalls gelingt es mir nicht. Gibt es eine Möglichkeit eine Information außer durch die Übergabevariable "Params" zu transportieren?

Danke für Tipps, weitere Fragen zum Programm gerne an mich.

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

---

Hallo,

wenn die genannte Skripte nicht unbedingt in einzelne Dateien sein sollen, dann kannst du die Datenübergabe auch über globale Variablen machen.
Daten an externe Skripte kann man nur über die Art wie du es geschrieben hast übergeben.
Es ist aber keine schöne Art der Programmierung, da man so leicht Fehler machen kann, die sehr schwer zu finden ist (eine globale Variable wird irgendwo gesetzt, wo es nicht sein sollte und auch nicht erwartet wird). Geschickter ist die Übergabe als Argumente.

Gruß,
Zoltan

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

---

Hallo,

IMHO geb ich Zoltan da vollkommen recht. Manchmal lässt es sich einfach nicht vermeiden bzw. ist sogar dienlich für de Übersichtkeit wenn man eine globale Variable setzt aber in den meisten Fällen sind Übergabeargumente wesentlich sinnvoller (die Fehler werden einfach schneller gefunden und es ist IMHO logischer aufgebaut, da die Variable in der Übergabe selber deklariert wird (hier wird sie ja auch benötigt und nicht irgendwo im Script))

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Danke.
Ich habe es über die Übergabe-Parameter gemacht. Das ist in der Tat der sauberste Weg.
Die Skripte müssen aus Gründen der Übersichtlichkeit in verschiedene Dateien, sonst hat man fix 1000 Zeilen Code und scrollt sich die Fingerkuppen blutig.

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

---

Kann man manche Klasse nicht "Public" deklarieren?

Ich möchte im Module Klassen deklarieren da ich sie in mehreren Forms und Subs nutze. Mit der Selection habe ich allerdings ein Problem. Vom Module aus starte ich meine erste UserForm in der die Selection noch deklariert ist. Starte ich von der UserForm meine nächste ist die Selection nicht mehr deklariert.

Code:

---

Public Bauteil As Part
Public USel As Selection
Public Test As Integer

Sub CATMain()

  Set Bauteil = CATIA.ActiveDocument.Part
  Set USel = CATIA.ActiveDocument.Selection

  Test = 2

  UserForm1.Show

End Sub

Private Sub CommandButton_Click()

  'Code Beispiele
  MsgBox Test 'geht
  Set Wzk3D = Bauteil.HybridShapeFactory 'geht
  USel.Clear 'geht

  UserForm1.Hide
  UserForm2.Show

End Sub

Private Sub CommandButton_Click()

  MsgBox Test 'geht
  Set Wzk3D = Bauteil.HybridShapeFactory 'geht
  USel.Clear 'geht nicht

End Sub

---

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

---

Keine Variablen und schon gar nicht Public im Forumlar definieren.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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