dim objapp en tant que cadre solide. application
dim objvars comme solidedgeframework.variables
dim objvar comme solidedgeframework.variable
p = 3,14159265358979
Const gradi = 180 / pi
set objapp = getobject(, "solidedge.application")
sept objvars = objapp.activedocument.variables
varsetname, varsetvalue
varsetname = "diamètre"
varsetvalue = 100 'mm 'xlsactiveheetxlsactiveheet.cells(1, 1).value
'esempio di modifica variabile
appel objvars.edit(varsetname, varsetvalue) 'système d'entrée par défaut (mm, degrés,...)
'esempio di lettura di una variabile
set objvar = objvars.item(vargetname) 'nb: trova le var non le dim
Sélectionner la case objvar. unités de type 'non ho trovato tabella di corrispondenza, controllati a mano da finestra variabili locali
cas 1 ' distanza
vargetvalue = valeur objvar.value * 1000 'm à mm
affaire 2 ' angolo
vargetvalue = objvar.value * gradi 'rad au gradi
dossier 58 'scalare
vargetvalue = valeur objvar.value
Autre cas
vargetvalue = valeur objvar.value
Fin de la sélection