Original Article Date: June 9, 2006
Oh, you'll love this VBA macro from Rudi! When run, it will extrude shapes the value of text it finds within the shape boundaries. Terrific for doing quick modeling of row housing!
Download 298.zip and extract ExtrudeShapeByText.mvba from the file.Place the mvba in the folder pointed to by MS_VBASEARCHDIRECTORIESKeyin vba load extrudeshapebytext to load the project, or...Configure MS_VBAAUTOLOADPROJECTS to automatically load the mvba project upon startup.Keyin vba run [extrude]extrude to run the macro, or...Place the keyin on a function key or custom button for quick and easy access.
Once loaded, the macro will search the file for shape elements and extrude them the value of text found within the shape.
Somthing to note: The macro will create true solids or shapes with thickness linkages depending on which lines are commented out in the macro. Look for mdlLinkage_addThicknessToDescr and comment out as needed. This command will add a thickness linkage to the shape element and while this is not technically a true solid, the rendered view of this element will be identical to the real solid. One advantage of using this method is that the processing time for a file of 1000 shpaes will drop from a minute or two, to about one second.
This program is supplied as is. AskInga, Bentley Systems Inc., and the author of the program assumes no liability for damages direct, indirect, or consequential, which may result from the use of this program. Use this program at your own risk.
AskInga Article #298