Macro voor het maken van een scheidingslijn

Macro
1

Hallo.
Op Solidworks Premium 2019.
Ik probeer een macro te maken die een scheidslijn creëert tussen een schets en een gezicht.
Het selecteren van items lijkt te werken, maar de opdracht om de scheidingslijn te maken heeft geen effect...
Hier is de code:
Optie Expliciete
Dim swApp als SldWorks.SldWorks
Model dimmen als ModelDoc2
Dimfunctie Als functie
Dim boolstatus als variant
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Model instellen = swApp.ActiveDoc
'boolstatus = Model.Extension.SelectByID2(" Boss-Extrude1 ", " BODYFEATURE ", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)
boolstatus = Model.Extension.SelectByID2("  ", "  ", 0.0061, 0.0079, 0, False, 0, Nothing, swSelectOptionDefault)
boolstatus = Model.Extension.SelectByID2(" Pointes_bottom ", " SCHETS ", 0, 0, 0, Waar, 4, Niets, 0)

Model.InsertSplitLineProject True, True

Einde Sub

Uiteindelijk zullen de coördinaten van het gezicht worden bepaald door variabelen.
Bedankt voor je hulp

2

Hallo

Voor de selectie van het gezicht moeten we de parameter markeringswaarde van de selectiefunctie op 1 hebben ingesteld.
InsertSplitLineProject-methode (IModelDoc2) - 2019 - Help voor de SOLIDWORKS API
Create Projection Split Line Feature Example (VBA) - 2019 - SOLIDWORKS API Help

4 likes