View Label Information

[Anonymous]

I was wondering if anyone has come up with a macro to gather all view label information, and possibly sheet location in a drawing. If you could share it that would be great.

Thanks

Mike

[matt_jlt]

Hi Mike, do you want to be able to select a view and get it's view label information or do you want tobe able to get every view in the entire IDW?

Also what do you want to do with the data, Put it in a text file or just display in a message box of some sort?

If you can tell me some more details on what your after i'll  post some code for you.

Regards, Matt.

[Anonymous]

Hi Matt

What I am looking for is a text or csv file of all views on all sheets of a drawing.

It would be great if you could come up with something.

Thanks,

Mike

[Anonymous]

Hi Matt

What I am looking for is a text or csv file of all views on all sheets of a drawing.

It would be great if you could come up with something.

Thanks,

Mike

[Anonymous]

I was woundering if there was any progress on this Macro?

[matt_jlt · Accepted solution]

Sorry mate, i completely forgot about this thread until you replied.

I just whipped up something for you. you can adjust it to suit your needs. Adjust it to suit your needs.

Sub ViewLabel()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
Dim oView As DrawingView
Dim oLabel As DrawingViewLabel

Dim MyFile As String
MyFile = "c:\" & "Info.txt"


Open MyFile For Output As #1

For Each oSheet In oDoc.Sheets
For Each oView In oSheet.DrawingViews
Set oLabel = oView.Label

Write #1, "Label:" & oLabel.Text
Write #1, "View X:" & oView.Position.X
Write #1, "View Y:" & oView.Position.Y
Write #1, " "

Next
Next


Close #1
End Sub

Regards, Matt.

[Anonymous]

Hi Matt

Thanks a lot for the code. With some minor tweeks we got it working great. I really appriciate it.

Cheers

Mike