【转帖】rev table macro problem

yang686526

rev table macro problem
i'm trying to make a macro to place a rev table in my drawings. i can get the macro recorded and can run it but it drops the wrong table in my drawing. it grabs the default table not my custom one although the custom one is the one i pick when recording the macro.
how would i re-write the following (was generated by sw, i did not write any of it and i'm a total vb noob). my custom rev table is named revtable.sldrevtbt
dim swapp as object
dim part as object
dim selmgr as object
dim boolstatus as boolean
dim longstatus as long, longwarnings as long
dim feature as object
sub main()
set swapp = application.sldworks
set part = swapp.activedoc
set selmgr = part.selectionmanager
dim revtable as object
set revtable = part.getcurrentsheet.insertrevisiontable(true, 0.4191, 0.2667, 2, "")
end sub
mechanical engineer
temptronic corp
.temptronic.com
put the path and file name of your table between the quotes near the end of the 2nd to last line.
also, look at the help file for "sheet::insertrevisiontable"
drc inc.
minneapolis, mn
.designreadycontrols.com
sw2007 sp5.0
core2 quad
3gb ram
xp pro sp2
ati firegl v3600
originally posted by: jody stiles
set revtable = part.getcurrentsheet.insertrevisiontable(true, 0.4191, 0.2667, 2, "")
the syntax for this command is insertrevisiontable ( useanchorpoint, x, y, anchortype, tabletemplate)
so the macro record is saying:
1. use an anchorpoint (true)
2. gives it an x and y position (0.4191, 0.2667)
3. tells it the anchor type (2)
4. tells it to use the default template ("")
if you want to use a different template, inside the two quote marks enter the complete file path and name of the file you wish to use.
perfect guys...thanks for the quick replies.
mechanical engineer
temptronic corp
.temptronic.com
follow up...
got the macro to work perfectly and added the ability to add the first row to the revision table but i have 2 questions i hope you can help with:
1) the revision table comes in on the -none- layer even though i have the desired layer active. when i manually add the table it comes in on the active layer. is there some way to tell the macro to put the table on a certain layer?
2) is there a way to have the macro or revision table fill in the draftsman/engineers name (based on the windows login) in a cell as it does for the date? i tried to record my manual entry of the name but it didn't work.
thanks again.
mechanical engineer
temptronic corp
.temptronic.com
check this macro by matthew lorono
revblockcontrol 1.13
jody, set the layer as:
revtable.getannotation.layer = "layername"
see if this works for you!
to defeat the wheat, go against the grain.
quick