Adding callouts with property text to Drafts

Hi Jason,


We have started adding callouts at the bottom of our drafts, just outside the titleblock: on the bottom left is filename and path, on the bottom right is print date. We find these help A LOT when it comes to reviewing prints of drawings. Below the titleblock off the bottom of the page, we include path and filename of the part or assembly in the principal view, created date, modified date, and last accessed. We also have a LARGE set of old draft files which don't have these properties...


What would it take to come up with a macro to do the following:

1. open draft file.

(for this case, assume draft file is already open, macro is available as button to be run manually by user)


2. get list of sheets within draft file

3. find lower left & lower right extent of title block for each sheet

4. for each sheet:

4a. check if text exists at lower left, lower right, & below drawing

(alternately check for a callout text with a specific name)

4b. if exists, exit macro

4c. if doesn't exist, place specified callouts at those locations

5. exit macro


ideally, this tool would run batch on a group of files or folders, but for starters just being able to add all the callouts with one click would save a lot of time.


you can contact me at if you prefer.




RMS-Ross Corporation




Posted by: Trevor Schamuhn
Post date: 4/13/2007 11:54:24 AM


RE: Adding callouts with property text to Drafts



I'd be happy to look into this for you. I've got a lot on my plate at the moment but I will contact you as soon as I get a free moment.


Posted by: Jason Newell
Post date: 4/25/2007 8:40:07 AM

RE: Adding callouts with property text to Drafts

Assuming you are using VB6, the first thing to do after connecting to the Solid Edge instance would be to count the sheets.

If you know the exact location of where the text would be, you can probably test for it with a select window. Or, if you know it is text or, say a ballon, you can also test each balloon occurance and match the contents:


For x = 1 To objDoc.Sections.BackgroundSection.Sheets.Count

With objDoc.Sections.BackgroundSection.Sheets.Item(x)

For z = 1 To .Balloons.Count

If .Balloons(z).BalloonText = "My Text" Then

Ok, desired property text exists, so exit


Create desired property text

End If

Next z

End With

Next x


I've done this exact thing in a Title Block editor, which utilizes Custom Properties.

What are you programming in?


- Bill


Posted by: Bill Ledbetter
Post date: 5/7/2007 2:04:23 AM