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 email@example.com if you prefer.
Posted by: Trevor Schamuhn Post date: 4/13/2007 11:54:24 AM
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
For z = 1 To .Balloons.Count
If .Balloons(z).BalloonText = "My Text" Then
Ok, desired property text exists, so exit
Create desired property text
I've done this exact thing in a Title Block editor, which utilizes Custom Properties.
What are you programming in?
Posted by: Bill Ledbetter Post date: 5/7/2007 2:04:23 AM