---

Hallo,

ich habe eine Frage zur API an erfahrene Programmierer:

Gibt es eine Möglichkeit ein manuell selektiertes Objekt gleich welcher Art in einem Makro wieder aus der Selectionsliste zu entfernen.

Ich habe mich jetzt eine Zeitlang mit Funktionen wie

ret = swSelMgr.DeSelect2(i, -1)
ret = swModel.DeSelectByID(test, "", 0, 0, 0)

versucht aber ohne jeden Erfolg.

Also was möchte ich tun:

Ein Anwender wählt manuell beliebige Objekte aus einer Zeichnung aus.
Per Makro werden dann bestimmte Typen von Objekten selectiert und die anderen deselektiert.

------------------
Gruß weinel

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

---

Hallo weinel,

ich benutze meist swSelMgr.DeSelect2(i, -1), das funktioniert ganz prima.
wahrscheinlich sind es deine Parameter die nicht passen.

Bei AtIndex muss es sich vom Typ um ein Variant Array handeln, auch wenn du nur ein Element deselektieren möchtest.
Also zum Beispiel:

Code:

---

Dim vIndex(0 to 0) as VARIANT
vIndex(0) = 1
swSelMgr.DeSelect2(vIndex, -1)

---

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

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

---

Hallo Daniel,

hier mal mein Makro:

Option Explicit

Dim swApp          As SldWorks.SldWorks
Dim swModel        As SldWorks.ModelDoc2
Dim swDraw          As SldWorks.DrawingDoc
Dim swSelMgr        As SldWorks.SelectionMgr
Dim retval          As Boolean

Sub main()
    Dim ixes(0 To 0) As Variant
    Dim i            As Integer
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    Set swSelMgr = swDraw.SelectionManager
      For i = 1 To swSelMgr.GetSelectedObjectCount
        If swSelMgr.GetSelectedObjectType3(i, -1) = swSelSUBSKETCHINST Then
          Dim swBlockInst  As SldWorks.SketchBlockInstance
          Set swBlockInst = swSelMgr.GetSelectedObject5(i)
        Else
          ixes(0) = i
          retval = swSelMgr.DeSelect2(ixes, -1)
        End If
      Next i
End Sub

Stehe ich irgendwie auf der Leitung? Wenn ich jetzt Elemente wie Bemaßungen, Texte Ansichten in der Zeichnung selectiere werden sie nicht abgewählt mit DeSelect2. retval ist immer falsch!
Hat irgendjemand eine Erklärung dafür?

------------------
Gruß weinel

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

---

Guten Morgen,

mein Fehler!
Die Variant Variable darf natürlich kein Array sein, sondern nur eins beinhalten!
Also

Code:

---

dim iIndex(0 to 0) as Integer
Dim vIndex as VARIANT

iIndex(0) = 1
vIndex = iIndex
swSelMgr.DeSelect2(vIndex, -1)

---

Kann mich nur entschuldigen! Tss tss tss

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

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

---

Hallo Daniel,

ich habe das Makro nochmal angepasst, aber auch das arbeitet nicht wie gewünscht!
Keine Idee mehr?

Option Explicit

Dim swApp          As SldWorks.SldWorks
Dim swModel        As SldWorks.ModelDoc2
Dim swDraw          As SldWorks.DrawingDoc
Dim swSelMgr        As SldWorks.SelectionMgr
Dim retval          As Boolean

Sub main()
   
    Dim i              As Integer
    Dim iIndex(0 To 0)  As Integer
    Dim vIndex          As Variant
       
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    Set swSelMgr = swDraw.SelectionManager
      For i = 1 To swSelMgr.GetSelectedObjectCount
        retval = swSelMgr.SetSelectedObjectMark(i, 10#, swSelectionMarkSet)
        If swSelMgr.GetSelectedObjectType3(i, -1) = swSelSUBSKETCHINST Then
          Dim swBlockInst  As SldWorks.SketchBlockInstance
          Set swBlockInst = swSelMgr.GetSelectedObject5(i)
        Else
          iIndex(0) = i
          vIndex = iIndex
          retval = swSelMgr.DeSelect2(vIndex, 10#)
        End If
      Next i
End Sub

------------------
Gruß weinel

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

---

Markwert 10# ???
Hole dir diese Info doch aus der SolidWorks API:

Code:

---

dim lMark as long
dim bRetval as boolean

'Markwert belegen
lMark = SelectionMgr.GetSelectedObjectMark(i)
...
bRetval = swSelMgr.DeSelect2(vIndex, lMark)

---

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

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

---

Die Lösung war:

Die Funktion

retval = swSelMgr.DeSelect2(vIndex, -1)

darf nicht in der "for" schleife liegen!

------------------
Gruß weinel

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