Hallo allemaal, in de context van een project dat een beetje lang duurt, loop ik vast op een eenvoudig punt: ik moet (in een macro) het gebied van een schets bepalen (in de dubbele vorm) om deze vervolgens naar een Exel-bestand te kopiëren (dat is goed). Het macrovrije equivalent is:
- selecteer de schets (genaamd "Stap 5")
- Eigendom van de Surface
- extraheer het gebied (of het gebied, het komt in dit geval op hetzelfde neer) en koppel het aan een variabele van het type Dubbel
Ik heb dit stukje code al geprobeerd, maar de fase "gebied extraheren" werkt, zoals je je kunt voorstellen, niet (de rest wel).
Dim swApp als object
Deel dimmen als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Sub copySurface()
Dim oppervlakSelectie als dubbel
'*************************************
Schakelt het geopende document in SolidWorks in
'*************************************
Stel swApp in = _
Toepassing.SldWorks
Deel instellen = swApp.ActiveDoc
'*************************************
'Extraheer het gebied van de schets
'*************************************
Deel instellen = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("step5", "FACE", 0, 0, 0, False, 0, Nothing, 0)
Dim swMesure als maat
Set swMesure = Part.Extension.CreateMeasure
monAire = swMesure.Gebied
'*************************************
'Selecteert het huidige geopende Exel-bestand
'*************************************
Stel swApp = CreateObject("SldWorks.Application") in
Set xlApp = GetObject(, "Excel.Application")
Deel instellen = swApp.ActiveDoc
Stel Xlsh in = xlApp.Application.ActiveSheet
'*************************************
Implementeren van de waarde in de Excel-tabel
'*************************************
Xlsh.Cells(2, 2) = monAire
Einde Sub
Ziezo, als sommigen ideeën hebben, bij voorbaat dank!