Macro solidworks hernoemt de naam van een dimensie

3D Design Volume Model
1

Hallo gemeenschap.

 

Nog steeds in de ontwikkeling van mijn macro's, ben ik op zoek naar een manier om mijn sidecuts te hernoemen.

In plaats van de traditionele G'd. @EsquisseX, ik zou graag "tekst naar keuze" @nom van de schets willen hebben

Ik kan een voorvoegsel of een achtervoegsel in de tekst van het oproepnummer plaatsen, maar het niet hernoemen

 

Hieronder staat de code die wordt gebruikt, maar die niet werkt om het oproepnummer te hernoemen.


MyDisplayDim als object dimmen
Stel myDisplayDim = swmodel in. AddDimension2(-0.15, hoogte / 2, 0)
MyDimension dimmen als object
Stel myDimension = swmodel in. Parameter("H@Esquisse2")
boolstatus = swmodel. EditDimensionProperties2(0, 0, 0, "", "", True, 9, 2, True, 12, 12, "H = ", "", True, "", "", False)

 

Heb je een idee waarom en hoe???

 

Bij voorbaat dank

 

Blije papa

2

Hallo

Ik kan me voorstellen dat je een macro hebt opgenomen om dit resultaat te krijgen?

In plaats daarvan moet u een functie "Voor elk" gebruiken die alle dimensies van het onderdeel doorloopt, een voorbeeld (waarmee de waarden van alle dimensies voor alle configuraties worden opgehaald), zie dit gedeelte van de API-help:

http://help.solidworks.com/2012/English/api/sldworksapi/Get_Dimension_Values_in_All_Configurations_Example_VB.htm

Door deze macro aan te passen, zou het niet erg moeilijk moeten zijn om de naam van elke beoordeling te achterhalen.

 

Edit: een macro die waarschijnlijk nog nuttiger zal zijn:

http://help.solidworks.com/2012/English/api/sldworksapi/Get_Display_Dimension_Properties_Example_VB.htm

Edit 2: de vorige macro is slechts een stukje code, deze is compleet en zal ook erg handig zijn:

http://help.solidworks.com/2012/English/api/sldworksapi/Iterate_Through_Dimensions_in_Model_Example_VB.htm

 

2 likes
3

Als je de functionele macro achteraf kunt posten zodat iedereen er iets aan heeft, zou dat geweldig zijn!

Bedankt!

4

Dank u voor dit antwoord.

 

Ik heb niet voor elke functie een gebruikt, maar bij het maken van mijn beoordeling heb ik het de naam gegeven die ik wilde doorgeven.

 

Hieronder vindt u de aangepaste code die werkt.

MyDisplayDim als object dimmen
Stel myDisplayDim = swmodel in. AddDimension2(-0.15, hoogte / 2, 0)
MyDimension dimmen als object
Stel myDimension = swmodel in. Parameter("H@Esquisse2")
Stel swSelMgr = swmodel in. SelectieManager
Stel swDispDim in = swSelMgr.GetSelectedObject5(1)
Dim swDim als SldWorks.Dimension
Stel swDim in = swDispDim.GetDimension
Dim nom_cote als snaar


boolstatus = swmodel. EditDimensionProperties2(0, 0, 0, "", "", True, 9, 2, True, 12, 12, "H = ", "", True, "", "", False)
nom_cote = "H"
swDim.Name = nom_cote

1 like
5

Oh inderdaad, het was tijdens de creatie, ik had er niet op gelet!