【转帖】dimension parameter macro

yang686526

dimension parameter macro
i have been trying to use a old macro from nhcad to read in parameter values into sw 2008 from a text file, but cannot get it to work. the macro gives me a 'run-time error '91': object variable or with block variable not set' when it gets to the retval statement, any ideas on what is going wrong?
i have listed the code below:
' ******************************************************************************
' 10/6/99 - chg_dim.swb
' macro that will prompt for a data file and import dimensional values
' format of data file should be tab delimeted dimension name and value
' d1@sketch1 3
' d2@sketch1 3.22
' d1@baseextrude 2.5
' ******************************************************************************
dim swapp as object
dim modeldoc as object
dim datastr as string
dim dimname as string
dim dimvalue as double
sub main()
set swapp = getobject (,"sldworks.application")
set modeldoc = swapp.activedoc
filename = "data.dat"
filename = inputbox("enter file to open","file open",filename)
open filename for input as #1
do while not eof(1)
line input #1, datastr
dimname = left(datastr,instr(datastr,chr(9))-1)
dimvalue = val(right(datastr,len(datastr)-instr(datastr,chr(9))))
retval = modeldoc.parameter(dimname).setvalue2(dimvalue, 1)
loop
modeldoc.editrebuild
modeldoc.graphicsredraw2
close #1
end sub
thanks!
bob
there's a good chance that you have a bad dimension name in the text file. step though the macro, or put a break point on the retval line. when you get to that line, check the value of each element to see where it is failing to get the object. select modeldoc, then type shift-f9. if the value is blank, your ok. if it says "nothing", you don't have an active document captured.
next, to the same thing again by selecting modeldoc.parameter(dimname), then shift-f9. if this is where the failure is, check the value of dimname. select it and then shift-f9 again. it might be a bad dimension name.
keep using this process to get more and more of the line of code checked. error 91 means it is not connecting to an object and you are making a call to a method of the object - can't do it without the object.
mike spens
"automating solidworks using macros"
leap frog leap pad x64
either you don't have a document open, or the parameter name is invalid (most likely cause). they are the only 2 reasons for that error