---

Hallo an alle,
ich bin gerade dabei ein makro zu schreiben, welches alle zu umgehenden Elemente löscht bei einem Kreismuster.

Code:

---

boolstatus = swModelDocExtension.SelectByID2("Kreismuster1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

Set swSelectionMgr = swModel.SelectionManager

Set swFeature = swSelectionMgr.GetSelectedObject6(1, -1)

Set swCircularPatternFeatureData = swFeature.GetDefinition

---

Bis dahin wird das Feature ausgewählt. Und mit :

Code:

---

NbrInstances = swCircularPatternFeatureData.GetSkippedItemCount()

---

Kann ich die Anzahl der zu umgehenden Features auslesen, doch leider weiß ich nicht, wie man nun die Anzahl auf null setzten kann.

Ich habe leider nur bei der API Hilfe den folgenden Beitrag gefunden: http://help.solidworks.com/2010/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ICircularPatternFeatureData~ISetSkippedItemArray.html?format=P

Daraufhin war mein Ansatz:

Code:

---

boolstatus = swCircularPatternFeatureData.ISetSkippedItemArray(0, 0)

---

Doch leider ist dies nicht richtig. Kann mir jemand helfen.

Vielen Dank im voraus

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

---

Laut der Hilfe wird der zweite Parameter in VB nicht supportet.
Er wird aber von der Sub ByRef behandelt.
Könntest Du mal versuchen, statt der zweiten Null einfach eine Integer-deklariete Variable zu übergeben?

Gruß, Torsten

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

---

Hatte ich beim ersten Mal nicht gesehen:
Du rufst da eine Sub auf.
also laß vorne mal das 'boolstatus =' weg.
Vielleicht klappt's dann auch mit der zweiten Null

Gruß, Torsten

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

---

Hallo
leider hatte ich keine Zeit mehr gefunden mich mit dem Script zu beschäftigen, da vor Weihnachten einiges sich bei mir angesammelt hat. Zudem war die EuroMold dazwischen.
Ich habe nun einmal probiert den Code zum laufen zu bekommen. Er läuft auch aber leider ändert er nichts, d.h. er läuft bei mir fehlerfrei nur die Skipped-Items setzt er nicht wie gewünscht auf die entsprechenden werte

Hier der gesamte Code:

Code:

---

Sub main()

Dim swApp As Object
Dim boolstatus As Boolean
Dim swFeature As SldWorks.Feature
Dim nbrinstances As Integer
Dim swCircularPatternFeatureData As ICircularPatternFeatureData

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Kreismuster1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

Set swFeature = Part.SelectionManager.GetSelectedObject6(1, -1)

Set swCircularPatternFeatureData = swFeature.GetDefinition

nbrinstances = swCircularPatternFeatureData.GetSkippedItemCount()
MsgBox (nbrinstances)

'Dim FeatCount As Integer
'Dim ArrayDataIn As Integer

'FeatCount = 0
'ArrayDataIn = 0
'swCircularPatternFeatureData.ISetSkippedItemArray FeatCount, ArrayDataIn

swCircularPatternFeatureData.ISetSkippedItemArray 1, 3

End Sub

---

Wenn ich die auskommentierte Version nehmen mit Integer bekomme ich den Fehler :
Argumenttyp ByRef unverträglich

Vielleicht hat einer eine Idee, wo der Fehler ist.

Vielen Dank im voraus

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