---

Hallo API Spezialisten,
meine Probleme scheinen nicht enden zu wollen, also
bitte ich nochmal um eure Hilfe.
Wie kann ich den Rückgabewert der API Funktion CreateCircleByRadius2
in VB auswerten.
In der API Hilfe steht dazu folgendes:

Return:
(LPDISPATCH) retval
Pointer to the dispatch object of the circle that was created

Grüße Reinhard

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

---

Hallo Reinhard,

das bedeutet, dass du ein Objekt zurückbekommst, über das du dann den neuen Lreis weiter ansprechen kannst. Dazu mußt du eine Objektvariable deklarieren und diese dann mit Set zuweisen. Könnte so aussehen:

Code:

---

Private Sub Main()
   
    Dim swApp As Object
    Dim Part As Object
    Dim Kreis As Object

    Set swApp = Application.SldWorks

    Set Part = swApp.ActiveDoc
   
    ' um das Schnappen an Fangpunkten oder Gittern auszuschalten
    Part.SetAddToDB (True)
    ' dann den Kreis machen
    Set Kreis = Part.CreateCircleByRadius2(0.1, 0.1, 0.1, 0.02)
    ' jetzt ist Kreis der Objektzeiger zu dem neuen Kreis, damit
    ' kann man jetzt was mit dem Kreis anfangen, wenn nötig
   
    Part.SetAddToDB (False)
   
End Sub

---

Ich hoffe, du kommst damit weiter.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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