dim objapp als solidedgeframework.application
dim objvars als solidedgeframework.variables
dim objvar als solidedgeframework.variable
const pi = 3.14159265358979
const gradi = 180 / pi
set objapp = getobject(, "solidedge.application")
7 objvars = objapp.activedocument.variables
varsetname, varsetvalue
varsetname = "Durchmesser"
varsetvalue = 100 'mm 'xlsactivesheetxlsactivesheet.cells(1, 1).value
'esempio di modifica variabile
rufen objvars.edit(varsetname, varsetvalue) 'Standardeingabesystem (mm, Grad,...)
'esempio di lettura di una variabile
set objvar = objvars.item(vargetname) 'nb: trova le var non le dim
Wählen Sie Fall objvar. Einheitentyp 'non ho trovato tabella di corrispondenza, controllati a mano da finestra variabili locali
Fall 1 ' distanza
vargetvalue = objvar.value * 1000 'm bis mm
Fall 2 ' angolo
vargetvalue = objvar.value * gradi 'rad to gradi
Fall 58 'Scalare
vargetvalue = objvar.value
Rechtssache
vargetvalue = objvar.value
Endauswahl