![]() |
【转帖】modify equations
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 "''""d2@croquis1""'' = ''""ae''""" quick |
所有的时间均为北京时间。 现在的时间是 03:09 PM. |