---

Hallo VBA-Bastler!

habe Probleme mit dem SelectionManager. ich will in einer ANSICHT auf die Benutzerdefinierten Eigenschaften des MARKIERTEN EINZELTEILS zugreifen (SWX gibt den Namen im Tooltip zurück). Die Auswahl gibt mir aber nur die Ansicht selbst zurück (Type = 12) und nicht die Komponente. API-Hilfe gibt gute Beispiele darüber, wie man die Komponenten (Baugruppe/ Einzelteile) in einer Ansicht auflistet (über SldWorks.DrawingComponent) Ich kann nur nicht dem SelMgr verticken, dass er die eine ausgewählte aufnehmen soll. Kann jemand helfen?

------------------
Iwona

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

---

Hier mein Code, so ist es vielleicht einfachher zu verstehen, was ich meine. (code verkürzt, ohne Fehlermeldungen wenn nichts selektiert/ wenn keine Zeichnung usw.)

'------
Sub main()

Dim swApp              As SldWorks.SldWorks
Dim swModel            As SldWorks.ModelDoc2
Dim swSelMgr            As SldWorks.SelectionMgr
Dim swSelObj            As Object
Dim swEnt              As SldWorks.Entity
Dim swSelComp          As SldWorks.Component2
Dim swSelModel          As SldWorks.ModelDoc2

Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
   
Set swSelComp = swSelMgr.GetSelectedObjectsComponent2(1)
   
MsgBox "Typ-Nr.= " & swSelMgr.GetSelectedObjectType2(1)

'ab da klappt es nicht mehr

    If swSelComp Is Nothing Then
        Set swSelComp = swEnt.GetComponent
    End If

    If Not swSelComp Is Nothing Then
        Set swSelModel = swSelComp.GetModelDoc
        MsgBox "CompName    = " + swSelComp.Name2
        MsgBox "ModelPath    = " + swSelModel.GetPathName
    End If
       
Dim vDrawCompChildArr As Variant
Dim vDrawCompChild As Variant
Dim swDrawCompChild As SldWorks.DrawingComponent
   
MsgBox sPadStr & swDrawComp.Name

End Sub

------------------
Iwona

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

---

Hallo Iwona,

was liefert dir SelectionMgr.GetSelectedObject6 zurück?

Die Befehle GetSelectedObjectsComponent3 und GetSelectedObjectsDrawingView2 geben in einer Baugruppe bzw. Zeichnung nur das übergeordnete Element der Selektion zurück.

Wenn du also in der Zeichnung eine Komponente markierst müsste Sie ganz normal im Selektionsmanager stehen.

Ausprobiert habe ich das allerdings nicht, ist nur eine Vermutung

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

Hallo Daniel,

swSelMgr.GetSelectedObject6 gibt mir nur die aktive Ansicht zurück.

Gruß

------------------
Iwona

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