【转帖】select and center all dimensions on a drawing

yang686526

select and center all dimensions on a drawing
hello,
i am in need of a quick and dirty macro to select all dimensions on a drawing and center them. how would i go about traversing through and selecting all of the dimensions? i believe that the following line should center the dimension. i just don't know how to get all of the dimensions. please keep in mind that the dimensions are on the drawing, not in a sketch or in the model.
swmodel.editdimensionproperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12, "", "", 1, "", "", 1
thank you in advance for your help.
tony szuta
cswa, cswp, cswp-smtl
answer 1. first, set up your document template so that all future dimensions are centered.
2. do you really need a macro? can you not just set the selection filter to "dimensions", box-select everything, and hit the "centered" button on the property manager? 3 clicks vs. one.
if templates are set up correctly then you shouldn't really need a macro. if you still think you need one, editdimensionproperties is not going to be the way you want to do it. that would require selecting each dimension. also, it sets every property - tolerance, leader, etc etc. you want to get the displaydimension object and set its centertext property to "true".
dim swapp as sldworks.sldworks
dim swdoc as sldworks.modeldoc2
dim swdwg as sldworks.drawingdoc
dim swdispdim as sldworks.displaydimension
dim swview as sldworks.view
sub main()
set swapp = application.sldworks
set swdoc = swapp.activedoc
set swdwg = swdoc
set swview = swdwg.getfirstview
while not swview is nothing
set swdispdim = swview.getfirstdisplaydimension5
while not swdispdim is nothing
swdispdim.centertext = true
set swdispdim = swdispdim.getnext5
wend
set swview = swview.getnextview
wend
end sub
i'll get you eh steve, if it's the last thing i dooooo!
many thanks josh. i really appreciate your help. i just have a lot of drawings. clicking a single button is much faster for me than selecting all of the dimensions manually even if it only eliminates 2 clicks. the templates are already set up correctly. i am making changes to already existing drawings.
thanks again!
tony szuta
cswa, cswp, cswp-smtl
intel core2 quad (q6600 @ 2.40 ghz)
nvidia quadro fx 4600 sdi
solidworks 2008 sp 4.0 (x32 & x64)
solidworks 2009 sp 2.0 (x32 & x64)
quick