【转帖】modify equations

yang686526

modify equations
hi!
how´s things?
i create some equations: a=100; d2@croquis1=a but i want to change to ae=100; d2@croquis1=ae.
how can i do this? i was looking api up and there isn´t any sentence to modifiy equations.
i need our help!
thank u! regards!
edited: 02/10/2009 at 06:02 am by marian ruiz
go to tools > equations, select the equation and click edit to edit the selected equation.
deepak gupta
sw2007 sp5.0
sw2009 sp2.1
ok, i know this choice, but i wat to do by code.
edited: 02/10/2009 at 06:38 am by marian ruiz
try this
***
dim swapp as object
dim part as object
dim boolstatus as boolean
sub main()
set swapp = application.sldworks
set part = swapp.activedoc
part.deleteallrelations
part.addrelation """ae""=100"
part.addrelation """d2@croquis1""= ""ae"""
end sub
deepak gupta
sw2007 sp5.0
sw2009 sp2.1
use the equationmanager object.
i'll get you eh steve, if it's the last thing i dooooo!
dim swapp as sldworks.sldworks
dim myprt as sldworks.modeldoc2
sub main()
set swapp = application.sldworks
set myprt = swapp.activedoc
dim eqmr as sldworks.equationmgr
dim i as long
if not (myprt.gettype = swdocdrawing) then
set eqmr = myprt.getequationmgr
for i = 0 to eqmr.getcount - 1
debug.print eqmr.equation(i)
if eqmr.equation(i) = "d2@croquis1=a" then
eqmr.equation(i) = "d2@croquis1=ae"
debug.print "changed d2 equation"
elseif eqmr.equation(i) = "a=100" then
eqmr.equation(i) = "ae = 100"
debug.print "changed a equation"
end if
next i
end if
end sub
i'll get you eh steve, if it's the last thing i dooooo!
yes, i did this but i have problems with the ". because when you add a equation in the equation manager yo have to write like this: """d2@croquis1"" = ""ae"""
and i have soo much problems to add " by code.
try
"''""[email="d2@croquis1""''"]d2@croquis1""''[/email] = ''""ae''"""
quick