Buongiorno, volevo chiedervi cortesemente se esiste una macro per impostare i piani tutti con la stessa dimensione, uso molto i piani come riferimento, però alla creazione vengono enormi e devo ridimensionarli a mano.
ho trovato questa in rete, ma non so proprio come si scriva una macro e che programma serva.
Grazie.
option explicite
Sous-main()
dim échange comme sldworks. Soldworks
dim swmodel comme sldworks.modeldoc2
dim swfeat en tant que sldworks. Caractéristique
dim plancount aussi longtemps
Dim bret comme booléen
définir swapp = application. Soldworks
swmodel = swap.activedoc
set swfeat = swmodel.firstfeature
ne pas swfeat est rien
si "refplan" = swfeat. gettypename alors
bret = swfeat.select2(faux, 0)
swcommands_auto_size, ""
fin si
set swfeat = swfeat.getnextfeature
boucle
fin sous