macro solidworks

[Invité patel]

bonjour,

 

j'ai deux poteaux dans un assemblage mécano-soudé, je voudrais pourvoir modifier la hauteur et l'entraxe de ces poteaux avec une macro.

 

comment je peux faire. Je suis nul en macro.

 

merci d'avance

[Invité patel]

J'ai une macro qui ressemble à ça (voir ci-dessous) elle modifie juste ma cote de largeur et de hauteur que dans une seul sens, je ne peut revenir en arrière. Est il possible à partir de là de faire une macro avec laquelle une fenêtre s'ouvrirait et me demanderait quelle largeur je veux et quelle hauteur je veux ...... et hop mon bâtiment se modifirait.

 

Sub main()

 

Set swApp = _

Application.SldWorks

 

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)

Part.ActivateSelectedFeature

boolstatus = Part.Extension.SelectByID2("Largeur Ext. Fer@Esquisse1@Portique Mécano II.SLDPRT", "DIMENSION", -2.170760448481, -1.395292696166, 4.708059428987, False, 0, Nothing, 0)

Dim myDimension As Object

Set myDimension = Part.Parameter("Largeur Ext. Fer@Esquisse1")

myDimension.SystemValue = 10

boolstatus = Part.Extension.SelectByID2("Largeur Dos Fer / Pignon@Esquisse1@Portique Mécano II.SLDPRT", "DIMENSION", -4.616020803022, -0.3759206829226, 3.145110454616, False, 0, Nothing, 0)

Set myDimension = Part.Parameter("Largeur Dos Fer / Pignon@Esquisse1")

myDimension.SystemValue = 5

boolstatus = Part.Extension.SelectByID2("Hauteur haut de pente@Esquisse1@Portique Mécano II.SLDPRT", "DIMENSION", -2.241181542878, 3.395383703251, 2.631061740124, False, 0, Nothing, 0)

Set myDimension = Part.Parameter("Hauteur haut de pente@Esquisse1")

myDimension.SystemValue = 5

boolstatus = Part.ForceRebuild3(True)

Part.ClearSelection2 True

End Sub