Tuesday, June 23, 2009

Legacy VBA Error - For next loop may really mean If end if.

I was updating some legacy VBA code today and had to add some additional logic to a function. When I click the run button, I was faced with this dialog box
A quick check of the code indicates that there IS a closing "NEXT" statement for the "For Each..." loop. When this happens to you, check any "If...." logic constructs within the "For ... Next" loop. Chances are you'll find a missing "End if" statement.

Labels: , , , , , , , , , ,

# posted by Richard Binning : Tuesday, June 23, 2009 0 comments links to this post

Friday, February 27, 2009

ACA 2009 VBA Macro - Room Zoom Available


R2009Find_Room_Zoom2.dvb is a VBA Macro that displays a modeless userform on the screen with a text box and a button labeled "Find". When you enter a room or space number in the text box and click the "Find" button, it will cycle through all the available space/room objects in the current drawing and any attached xref files and zoom your display to center on that space or room with the corresponding number. This macro originated in Autodesk Architectural Desktop (ADT) R3.3 and is now updated for Autodesk AutoCAD Architectural (ACA) Release 2009.

Take a look at the code within the macro to see how to:


  • Use the acfocus control (allows you to keep the form visible on the screen while you interact with entities within your file.

  • Find the schedule property and get the associated space or room object.

You'll find more helpful utilities in past posts here and at AUGI.com, R U a Member?

Labels: , , , , , , , ,

# posted by Richard Binning : Friday, February 27, 2009 4 comments links to this post

Wednesday, April 30, 2008

VSTA for Revit Architecture Install - (Think VBA's replacement!)

I installed the recently received Autodesk Revit Architecture 2009 application on my laptop the other day. In browsing the DVD, I noticed a folder titled VSTA. If you want to install the Visual Studio for Applications for use with Revit, pick the bottom installer option for tools and utilities as shown below.



I didn't see any mention of this in the documentation, readme, or the installer for the basic product. I did see reference and tutorials in the SDK install, but one has to know to look for these. I found a cryptic mention of this in the New Features Workshop. If you look in the Revit Architecture Help file, you'll find mention of "Creating Macros with Revit VSTA"...grab Gregory Arkin's pdf version using the link below.

Install Steps:

  1. Install the Revit Product First
  2. Go back to first page of installer and then install the VSTA tools.
The install is much improved in this release...much faster too!

Now lets see how it runs.....

Note: The product install forces an install of Design Review 2009. This may impact those of you running the BIM Smart Library by Reed Construction Data. If you create a deployment, you can potentially modify the installation.

Links: Looks like other sites have more info on this.
Check out

Labels: , , , , ,

# posted by Richard Binning : Wednesday, April 30, 2008 2 comments links to this post

Thursday, January 03, 2008

Use VBA to detach unloaded External References (XREFs)

Often when archiving or sending files to consultants, it is desireable to do some house cleaning prior to transmitting them. A common practice in cases like these would be to detach any unnecessary XRefs. And what is more unnecessary than a previously unloaded xref?


Public Sub DetachUnloadedXrefs()
Dim o_Blk As AcadBlock
For Each o_Blk In ThisDrawing.Blocks
If o_Blk.IsXRef And o_Blk.Count = 0 Then
ThisDrawing.Utility.Prompt o_Blk.Name & _
" is an unloaded xref and has been detached." & vbCrLf
o_Blk.Detach
End If
Next
End Sub


Hope you find that useful.

Labels: , , ,

# posted by Richard Binning : Thursday, January 03, 2008 0 comments links to this post

Tuesday, November 13, 2007

Updated for 2008: Routine to Copy Layer Keys Between Layer Key Styles

Need to migrate your layer keys in AutoCAD Architecture 2008? I updated the routine to work in 2008. Get it here.

Labels: , , , ,

# posted by Richard Binning : Tuesday, November 13, 2007 0 comments links to this post