---

Hallo

Gerade habe ein Beispeil von OpenDoc6 im API Hilfe ausprobiert.
Aber kommt wie immer eine schlechte Mitteilung syntaxfehler.

swApp.OpenDoc6 ("C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\2th_Versuch\Teil1.sldprt" , swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning)

Das ist mein syntax.

Bitte eure Hilfe.

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

---

Hallo joohwa,

Die Syntax sieht erst einmal korrekt aus. Aber leider sind das zu wenig Informationen, um eine vernuenftige Antwort zu geben.
- Welche Sprache verwendest Du?
- Welche Bibliotheken hast Du eingebunden?
- Woher kommen bei Dir die Konstanten
- Was ist genau Deine Fehlermeldung

Dann kann man Dir auch helfen, denke ich.

Gruss,

Ralph

------------------
PASCAM Ralph Müller
Softwareentwicklung

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

---

Hallo Joohwa,

mußt natürlich das Ergebnis der Operation einer Objektvariablen zuweisen.

Also ungefähr so :

Set swmodel = swApp.OpenDoc6("C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\2th_Versuch\Teil1.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning)

oder

Du läßt die Klammern weg.
dann sieht´s so aus :

swApp.OpenDoc6 "C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\2th_Versuch\Teil1.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning

Gruß Andreas

------------------

[Diese Nachricht wurde von Rigobert am 07. Mrz. 2006 editiert.]

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

---

Danke für deinen Hinweis. Ich habe es ausprobiert. aber funktioniert nicht.

Meine Programm ist Visual Basic 6.
---------------------------------------------------
Option Explicit

Dim swApp      As SldWorks.SldWorks

Dim fileerror  As Long

Dim filewarning As Long

Dim swDocPART As Long

Dim swOpenDocOptions_Silent As Long

Sub main()

Set swApp = Application.SldWorks

swApp.Visible = True

swApp.OpenDoc6 "C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\2th_Versuch\Teil1.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning

End Sub

------------------------------------------------------------

Das ist meine Programm.

Bitte noch mal eure Hinweis!

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

---

Hallo ,

der Trick ist nicht schlecht:

Du definierst die Systemvariablen neu damit haben sie dann den Wert 0 und nix läuft mehr.

Nimm diese beiden Zeilen raus

Dim swDocPART As Long

Dim swOpenDocOptions_Silent As Long

und dann sollte es funktionieren.

Gruß Andreas

------------------

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

---

wie du gesagt hast, schon probiert. aber bei swDocPART und swOpenDocOptions_Silent kommt eine Meldung

Fehler beim kompilieren
Variable nicht definiert.

so ist das.

Wie kann ich tun?

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

---

Du mußt bei den Verweisen des Projekts die Type Library einbinden.

bei mir heißt die SolidWorks 2006 Constant type library

Gruß Andreas

------------------

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

---

Wenn du die Library nicht hast, kannst du die Werte auch von Hand eingeben, in Deinem Fall sind sie beide  1.

Also :

swApp.OpenDoc6 "C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\2th_Versuch\Teil1.sldprt", 1, 1, "", fileerror, filewarning

ist natürlich nicht so elegant .

So jetzt sollte es aber klappen.
P.S.:
(nicht vergessen auf den [10] - Knopf rechts oben zu drücken,damit ich bei Ü-Bay mal mitbieten kann )

Gruß Andreas

------------------

[Diese Nachricht wurde von Rigobert am 08. Mrz. 2006 editiert.]

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

---

Danke für eure Hilfe

Ich habe so gemacht. und FUNKTIONIERT!!!
sehr freu

Gruss von Stuttgart
----------------------------------------------------

Option Explicit

Dim swApp      As SldWorks.SldWorks

Dim fileerror  As Long

Dim filewarning As Long

Sub main()

'Definition of constant

Const swDocPART = 1

Const swOpenDocOptions_Silent = 0

Set swApp = Application.SldWorks

swApp.Visible = True

swApp.OpenDoc6 "C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\Pulver.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning

End Sub

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

---

Hallo Joohwa,

Die Konstante swOpenDocOptions_Silent sollte eigentlich den Wert 1
haben, damit die Funktion auch so funktioniert wie in der Hilfe beschrieben:

swOpenDocOptions_Silent - Open document silently or not.

swOpenDocOptions_ReadOnly - Open document read only or not.

swOpenDocOptions_ViewOnly  -Open document view only or not.

swOpenDocOptions_RapidDraft - Convert document to RapidDraft format or not. (drawings only).

swOpenDocOptions_LoadModel - Load detached model upon opening document or not (drawings only).

swOpenDocOptions_AutoMissingConfig -  Open a drawing document with the silent option and if the drawings views contain references to a missing configuration, automatically use the most recently displayed configuration of that model.

Aber vielleicht ist das ja gar nicht so wichtig.
Mit meinen bescheidenen Englischkenntnissen steht da:

Öffnet ein Dokument im Hintergrund oder auch nicht.

Wenn der Wert also jetzt 0 statt 1 ist dann öffnet er das Dokument nicht im Hintergrund oder doch.

Viel Spaß noch...

Gruß Andreas

------------------

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

---

Hallo joohwa,

damit Du direkt die SolidWorks-Konstante verwenden kannst, musst du bis SolidWorks 2005 die Datei swconst.bas in dein Projekt einbinden. Ab SolidWorks 2006 muss in VBA unter Extras - Verweise  die SolidWorks 2006 Constant type library eingebunden sein. (Bei VB unter Projekt - Verweise).
Dann kannst du direkt die Konstanten aus der API-Hilfe für den jeweiligen Befehl verwenden.

Gruß
Marc

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

---

Danke euch~~

Ich habe alles probiert. funktioniert jetzt~~

Gruss aus Stuttgart

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