Verberg de draadweergave in een MEP per macro

Hallo

 

Om het opschonen van het vliegtuig te automatiseren om een dxf te maken, ben ik op zoek naar een macro om alle draadrepresentaties op een vliegtuig en alle afmetingen te kunnen verbergen. (voor de offertes heb ik een macro opgenomen, maar die werkt niet altijd)

Dan zou ik dankzij de integratie de basiskaart automatisch vervangen door een lege basiskaart en zo de transformatie van mijn dxf in batches kunnen automatiseren.

Ter informatie, als ik de functie niet gebruik die het onderdeel in DXF heeft opgeslagen, komt dat omdat ik voor roestvrij staal het gezicht van mijn uitsparing moet kiezen op basis van de plastic bescherming.

Als iemand een idee heeft om deze beroemde draadrepresentaties te verbergen, ben ik er helemaal voor.

Bedankt

 

Hallo

Hier is een macro die mogelijk moet worden aangepast en die hetzelfde doet:

https://forum.solidworks.com/servlet/JiveServlet/download/220903-67734/DXF-Laser.swp.zip

 

Bron: https://forum.solidworks.com/thread/43458

 

Door te zoeken vonden we uiteindelijk met een collega, het was voldoende om naar de opties van het document te gaan en de weergave van threading te verbergen)

Hier is de macro voor degenen die geïnteresseerd zijn

 

Dim swApp als object

Deel dimmen als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long

Sub hoofd()

Stel swApp in = _
Toepassing.SldWorks

Deel instellen = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
Deel.EditTemplate
Deel.EditSketch
Deel.ClearSelection2 Waar
boolstatus = Part.Extension.SketchBoxSelect("-0.022056", "0.310342", "0.000000", "0.226194", "-0.007816", "0.000000")
Deel.BewerkenVerwijderen
Deel.EditSheet
Deel.EditSketch
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayCosmeticThreads, 0, Onwaar)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayFeatureDimensions, 0, Onwaar)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayReferenceDimensions, 0, Onwaar)
Einde Sub

 

1 like

Is het mogelijk om de macro in een tekstbestand te plaatsen?

Omdat sommige regels te lang zijn en worden weergegeven met "... " aan het einde.