Makro Solidworks Umbenennen einer Bemaßung

3D Design Volume Model
1

Hallo Community.

 

Noch in der Entwicklung meiner Makros bin ich auf der Suche nach einer Möglichkeit, meine Sidecuts umzubenennen.

Anstelle des traditionellen G-ttes. @EsquisseX möchte ich "Text meiner Wahl" @nom der Skizze haben

Ich kann ein Präfix oder ein Suffix in den Text der Signatur einfügen, aber nicht umbenennen

 

Nachfolgend finden Sie den verwendeten Code, der jedoch nicht zum Umbenennen der Rufnummer funktioniert.


MyDisplayAls Objekt dimmen
Legen Sie myDisplayDim = swmodel fest. AddDimension2(-0.15, Höhe / 2, 0)
MyDimension als Objekt dimmen
Legen Sie myDimension = swmodel fest. Parameter("H@Esquisse2")
boolstatus = SWMODEL. EditDimensionProperties2(0, 0, 0, "", "", True, 9, 2, True, 12, 12, "H = ", "", True, "", "", False)

 

Haben Sie eine Idee, warum und wie???

 

Vielen Dank im Voraus

 

Glücklicher Vater

2

Hallo

Ich kann mir vorstellen, dass Sie ein Makro aufgezeichnet haben, um dieses Ergebnis zu erhalten?

Stattdessen sollten Sie eine "For Each" -Funktion verwenden, die alle Dimensionen des Teils durchläuft, ein Beispiel (das die Werte aller Dimensionen für alle Konfigurationen abruft), siehe diesen Abschnitt der API-Hilfe:

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

Durch die Anpassung dieses Makros sollte es nicht sehr schwierig sein, den Namen jeder Bewertung abzurufen.

 

Bearbeiten: ein Makro, das wahrscheinlich noch nützlicher sein wird:

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

Edit 2: Das vorherige Makro ist nur ein Stück Code, dieses ist vollständig und wird auch sehr nützlich sein:

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

 

2 „Gefällt mir“
3

Wenn Sie das funktionale Makro nachträglich posten können, so dass es allen zugute kommt, wäre das großartig!

Vielen Dank!

4

Vielen Dank für diese Antwort.

 

Ich habe nicht für jede Funktion ein verwendet, aber als ich meine Bewertung erstellt habe, habe ich ihr den Namen gegeben, den ich weitergeben wollte.

 

Unten sehen Sie den geänderten Code, der funktioniert.

MyDisplayAls Objekt dimmen
Legen Sie myDisplayDim = swmodel fest. AddDimension2(-0.15, Höhe / 2, 0)
MyDimension als Objekt dimmen
Legen Sie myDimension = swmodel fest. Parameter("H@Esquisse2")
Legen Sie swSelMgr = swmodel fest. Auswahl-Manager
Set swDispDim = swSelMgr.GetSelectedObject5(1)
Dim swDim As SldWorks.Dimension
Festlegen von swDim = swDispDim.GetDimension
nom_cote als Zeichenfolge dimmen


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

1 „Gefällt mir“
5

Oh tatsächlich, es war während der Schöpfung, ich hatte nicht aufgepasst!