---

Hallo,
diese objektorienterte Programmierweise ist für mich allein mit der Hilfe nicht durchschaubar.
Ich bekomme schon das initialisieren nicht hin.

Bsp.: Ich möchte das GetType aus dem ModelDoc2 nutzen als Makro

----------------------
Dim swApp As Object
Dim swModel As Object
Dim swType As Object
Dim retval As Long

Sub main()

Set swApp = Application.SldWorks  'SolidWorks verwenden
Set swModel = swApp.ActiveDoc      'ActivesModell verwenden
Set swMdoc2 = swModel.ModelDoc2    'ModelDoc2 Objekt verwenden; Ist hier der Fehler?

retval = swMdoc2.GetType()        'Methode GetType aus oben definierten Objekt verwenden
                                  'und in retval ablegen
MsgBox (retval)                    'Rückgabewert aus Gettype ausgeben

End Sub

Was mache ich verkehrt? Was habe ich noch nicht verstanden?
In einigen Beispielen fand ich beim Deklarieren der Variablen teilweise folgende Ausdrücke

Bsp.: ''dim swapp as sldworks.sldworks''
Sind beide Wege möglich und ich spare mir so einfach nur das setzen der Objekte?

Ronny

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

---

Bin auch kein Profi Programmierer, daher von mir nur zwei Anfänger Tips die mir sehr geholfen haben.

1. Du kannst auch Makros aufnehmen und diese dann anschauen, das hilft oft weiter.
2. Grundsätzliche VisualBasic kenntnisse sind sehr sehr sinnvoll. Es gibt zB vb2005 Express für umsonst,und nen Haufen Hilfe im internet oder als Buchform wie VB grundsätzlich funktioniert.

Habe leider kein Zeit mir dein Problem anzuschauen, mit meinen Kenntnissen dauert das leider betimmt wieder zu lange. Aber vllt. helfen dir ja mein Vorschläge weiter.

viele Grüße Andy

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

---

Warum 2x das Model-Object bestimmen?

Code:

---

Sub main()

Set swApp = Application.SldWorks  'SolidWorks verwenden
Set swModel = swApp.ActiveDoc      'ActivesModell verwenden
' Set swMdoc2 = swModel.ModelDoc2    'ist überflüssig, das ModelObject hast du schon in swModel

retval = swModel.GetType()        'Methode GetType aus oben definierten Objekt verwenden
                                  'und in retval ablegen
MsgBox (retval)                    'Rückgabewert aus Gettype ausgeben

End Sub

---

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...

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

---

Wenn du das Late Binding benutzt (siehe Forumssuche), musst du deinem Programm beibringen, welche Werte .getType annehmen kann.

Füg mal in die Variablendeklarationen dies ein:

Const swDocPART = 1
Const swDocASSEMBLY = 2
Const swDocDRAWING = 3

Gruß,
Piet

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

---

Hallo,
aber woher weiß dann SolidWorks welches GetType() es verwenden soll? Diese Methode gibt es doch auch bei anderen Objekten.

Gruß Ronny

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

---

hi,

ja aber die Methode gehört zum Objekt und ist keine Funktion.

Wenn du "Early Binding" (dim swapp as sldworks.sldworks) benutzt weiß das Programm es schon während des kompilierens.
Es gibt dir auch eine Fehlermeldung aus, wenn die Methode nicht existiert. Wenn du einen Punkt nach dem Objekt eintippst schlägt dir der Editor auch alle möglichen Methoden und Member vor.

Beim "Late Binding" wird das Objekt erst zur Laufzeit definiert/erzeugt. Somit wird beim kompilieren nicht überprüft ob die Methode für das Objekt existiert (wie auch). 

Ich arbeite auch immer mit der Option "Option explicit" (einfach in die erste Zeile schreiben). Damit zwingst du dich selber alle Variablen zu definieren/deklarieren.

Gruß Oliver

------------------
Software nach Maß für Ihr CAD-System
www.ib-knepper.de

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

---

Hallo,
ok, ich nehme mal an, wenn ich bei "late binding" die Konstanten nicht definiere, nimmt er die aus der Lib, auf welche die aktuelle SWX Session verweisst? Ist ja kein selbstständiges Programm.

Nochmal zu meinem Bsp. Irgendwie habe ich das Gefühl, ich bin nahe dran am Verständniss, aber es ich brauche noch einen Schupps.

Dim swApp As Object
Dim swModel As Object
Dim swDim As Object
Dim retval As Long

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
retval = swModel.GetType()
MsgBox (retval)

Soweit ok, auch wenn mir das mit den Methoden noch etwas unklar ist.
Nun noch ein anderes GetType im Makro aus ModelDoc2.Dimension
wie muß ich das definieren, das ich da rankomme?
Irgendwie komme ich auch mit der VB Hilfe und VB Forum nicht dahinter.

Set swDim = ?????                'schon viel probiert und ständig
                                  'andere Fehler
retval = swDim.GetType()
MsgBox (retval)
End Sub

Gruß Ronny

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

---

bitte versuche es erstmal mit "early binding" und "option explicit".
ich denke, der kompiler wird dir dann schon den ein oder anderen schupps geben.

gruß oliver

------------------
Software nach Maß für Ihr CAD-System
www.ib-knepper.de

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

---

Wäre vielleicht ganz hilfreich, wenn du uns sagen würdest, was du eigentlich machen willst. Wenigstens grob

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...

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

---

Hallo,
mir geht es hier einfach nur um das Grundverständnis für das Arbeiten mit Objekten und Methoden bzw. wie ich auf diese zugreifen kann.
Mein wissen von Assembler und Pascal hilft mir hier nicht wirklich weiter und ich scheine zu blöd zu sein, die Hilfe bzw. anderes Tutorial richtig zu interpretieren.
Deshalb hier das einfache Bsp. etwas weiter oben.
Leider helfen mir Meldungen wie "Objekt nicht definiert" etc. nicht weiter.
Mir fehlt sozusagen die Grammatik für VBA 

Gruß Ronny

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

---

Da hilft nur probieren, fragen, suchen, lesen, probieren...

http://ww3.cad.de/cgi-bin/ubb/for umdisplay.cgi?action=topics&forum=VBasic+/+vb.net+/+vbs++/+wsh&number=110&DaysPrune=1000&LastLogin=&mystyle=
http://runtime-basic.net/Visual-Basic
http://www.visual-basic5.de/vbnet/sor11/soranzei.htm
http://www.vbarchiv.net
http://www.vb-fun.de/vb/index.htm
http://www.activevb.de

...und viele viele andere...

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...

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

---

"Objekt nicht definiert" ist doch schon mal eine Ansage und verweist auf einen konkreten Fehler: Prüfe jetzt die Zeile, in der das Auftritt (debuggen) ganz penibel, ob Du jede Variable und jedes Objekt deklariert hast und ob Du es auch mittels SET-Befehl schon gefüllt hast.
Du scheinst an die Bemaßungen heranzuwollen. Da mußt Du Dich durch die Objekthierarchie bewegen und Dir jeweils den nächsten Ansprechpartner - ein Objekt holen. Wenn Du Dich in SW gut auskennst, verstehst Du auch die Objekte besser. In der API-Hilfe werden für jedes Objekt die Eigenschaften und Methoden, die Du an ihnen anwenden kannst, beschrieben. Und die Objekthierarchie kannst Du auch grafisch sehen. Das nächste Übergeordnete ist normalerweise das, das Dir das Untergeordnete mit einer seiner Methoden geben kann. Du mußt Dich nur durchhangeln. Es klingt erstmal verwirrend, daß die alle gleich heißen - aber genau das ist gut so. So weißt Du gleich beim nächsten auch wieder, wie Du an den Typ kommst.
Bemaßungen sind noch dazu unterschiedlich in Teil/BG und Zeichnung. Zuerst brauchst Du die SolidWorksSitzung, dann das aktive Dokument und das untersuchst Du nach Typ und verzweigst für jede Dokumentart. So kommst Du dann an jedes Maß und deren Typ:
Ist Deine Abfrage fertig, mußt Du hier im Beispiel jeweils das nächste Maß, Feature, DisplayDimension, Ansicht, Teil, Blatt usw. (i.d.R. die Methode GetNext) holen...
Guck Dir für den Anfang am besten die API-Beispiele alle an und versuche zu verstehen, was da in welchen Schritten passiert. DerMakroRekorder taugt leider nicht allzuviel, besser ist da schon die Journaldatei als Tipgeber. Viel Erfolg!

Teil:

Set Feature = Teil.FirstFeature
    While Not Feature Is Nothing
        Set theDispDimen = Feature.GetFirstDisplayDimension
        While (Not theDispDimen Is Nothing)
            Set thedimen = theDispDimen.GetDimension
            If thedimen.GetToleranceType= ...
In der Baugruppe machst Du eine Traverse über alle Teile (dafür gibts Beispiele) und wendest bei jedem ansonsten die Routine fürs Teil an.

Zeichnung:
    Set swDraw = SwApp.ActiveDoc
    NumShts = swDraw.GetSheetCount
    For i = 1 To NumShts         ' blind zum ersten Blatt
        swDraw.SheetPrevious
    Next i
    For i = 1 To NumShts         ' alle Blätter durchwühlen
        Set swView = swDraw.GetFirstView   ' und jede Ansicht
        While Not swView Is Nothing           
            Set swDispDim = swView.GetFirstDisplayDimension
            While Not swDispDim Is Nothing
                Set Dimension = swDispDim.GetDimension
                If Dimension.GetToleranceType = ...

Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?]

[Diese Nachricht wurde von Lutz Federbusch am 31. Jan. 2008 editiert.]

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

---

Wenn ich bei der Makroprogrammierung auf einen Befehl stoße, der bestimmte Konstanten verlangt, oder zurückgibt, dann suche ich nach passenden Enumerationen in der entsprechenden swconst.bas. Die findest du auf Stefans Hilfeseite am Ende der Tabelle:
http://solidworks.cad.de/mm_index.htm

Piet

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