---

Hallo liebe Community,

stoße (mal wieder) etwas an meine Grenzen und hoffe auf eure Hilfe.

Folgender Sachverhalt:

Ich habe eine intelligente Komponente mit einem intelligentem Feature, dieses soll via VBA in eine bereits geöffnete Baugruppe eingefügt werden und dann auch direkt das intelligente Feature gestartet werden.

In der API-Hilfe habe ich ein Beispiel gefunden, aber dieses funktioniert selbst bei der Beispiel-Baugruppe nicht     

Über Hilfe und Anregungen bin ich dankbar     

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

---

Hallo wemasb,

was funktioniert denn bei dem Beispiel aus der Hilfe nicht?
Wo soll denn die Reise hingehen?
Soll das Beispiel funktionieren, oder was funktioniert bei Deiner intteligenten Komponente nicht?

Bis demnäx
Ralf

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

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

---

Hallo Ralf,

danke für die schnelle Antwort.

Das Beispiel aus der API-Hilfe sieht folgendermaßen aus:

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssy As SldWorks.AssemblyDoc
Dim tmpPath As String
Dim tmpObj As SldWorks.ModelDoc2
Dim boolstat As Boolean
Dim swcomponent As SldWorks.Component2
Dim AssemblyTitle As String
Dim errors As Long
Dim warnings As Long

Sub Main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    ' Get title of assembly document
    AssemblyTitle = swModel.GetTitle
    boolstat = True

    Dim strCompModelname As String
    strCompModelname = "Bearing.sldprt"

    ' Because the component resides in the same folder as the assembly, get
    ' the assembly's path and use it when opening the component
    tmpPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\"))

    ' Open the component
    Set tmpObj = swApp.OpenDoc6(tmpPath + strCompModelname, swDocPART, 0, "", errors, warnings)

    ' Check to see if the file is read-only or cannot be found; display error
    ' messages if either
    If warnings = swFileLoadWarning_ReadOnly Then
        MsgBox "This file is read-only."
        boolstat = False
    End If

    If tmpObj Is Nothing Then
        MsgBox "Cannot locate the file."
        boolstat = False
    End If

    'Re-activate the assembly so that you can add the component to it
    Set swModel = swApp.ActivateDoc2(AssemblyTitle, True, errors)
    Set swAssy = swModel

    ' Add the component to the assembly document
    ' Print the component name to the Immediate Window
    Set swcomponent = swAssy.AddSmartComponent(strCompModelname, 0, 0.13, -0.1)
    Debug.Print swcomponent.Name2
    Set swcomponent = swAssy.AddSmartComponent(strCompModelname, 0, 0.13, -0.42)
    Debug.Print swcomponent.Name2
    Set swcomponent = swAssy.AddSmartComponent(strCompModelname, 0, 0.13, 0.49)
    Debug.Print swcomponent.Name2

    swModel.ClearSelection2 (True)

End Sub

Bei dem letzten Schritt, dem einfügen der Komponente liegt der Fehler. Zunächst wird nichts eingefügt und beim Debug.Print geht er ins Debuggen, swcomponent bleibt irgendwie leer (swcomponent = Nothing).

Ich hatte die Hoffnung, dass ich das Beispiel für meine Zwecke benutzen könnte 

Im Endeffekt möchte ich, dass eine intelligente Komponente in meine Baugruppe eingefügt wird und das intelligente Feature direkt ausgeführt wird.

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

---

Hallo,

ich glaube die Beispielkomponente ist noch keine Intelligente Komponente sondern muss erst zu einer gemacht werden, hier wird wohl davon ausgegangen das vorab das Beispiel aus dem Lehrbuch zur Erstellung intelligenter Komponenten gemacht wurde.

Aber leider funktioniert das Beispielmakro auch nicht wenn man die Beispielkomponente zu einer intelligenten gemacht hat.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Hallo Bernd,

du hast recht, das Teil Bearing.sldprt war noch gar keine intelligente Komponente 

Und mit dem zweiten Punkt hast du auch recht, selbst wenn ich es zu einer mache, passiert in dem Beispielmakro nichts 

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

---

Platte-BG.zip

Hallo hab dir eine Zip (AVI)gemacht. Wieso brauchst du VB ? geht mit SW auch
Gruß
Nobbi

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

---

Hallo Nobbi,

das Intelligente Komponenten beim normalen Einfügen funktionieren ist klar nur er braucht es aus welchen Gründen auch immer eben automatisiert.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Hi Ehrenmitglied
das einfügen geht automatisch (konzentrisch + deckungsgleich) mit dem gleichen Teil und unterschiedlichen Durchmesser aus der Bibliothek muss nur die Länge wählen
Gruß Nobbi

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

---

Hallo Nobbi,

es geht hier um SmartComponent und nicht "nur" um SmartMate.

@wemasb

Wie es scheint hat noch niemand den API Befehl AddSmartComponent unter VBA wirklich benutzen können, zumindest gibt es auch einigee Themen dazu im SolodWorks-API Forum die nicht gelöst wurden bzw. die dann auf AddComponent4 und AddMate3 ausgewichen sind.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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