Message 1 of 5
iLogic find welding symbols with leaders
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi there,
we are using welding symbols similar to leader notes, see image.
Thanks for any Help.
Dim dDoc As DrawingDocument dDoc = ThisDoc.Document Dim dSheet As Sheet dSheet = dDoc.ActiveSheet 'Prüfung ob schon gespeichert wurde If System.IO.File.Exists(dDoc.FullFileName) Then 'Dateiname auslesen Dim dFI As New System.IO.FileInfo(dDoc.FullFileName) 'Prüfung ob datei bearbeitet werden darf und geändert wurde If dFI.IsReadOnly = False And ThisDoc.Document.Dirty = True Then If dDoc.DocumentType = kDrawingDocumentObject Then 'ThisDoc.Document.DocumentType = kDrawingDocumentObject Then ' MsgBox("Zeichnung") 'Funktioniert End If End If End If ' Iterate over all Weldingsymbol in the drawing Dim oTG As TransientObjects oTG = ThisApplication.TransientObjects Dim dLeaderCollection As ObjectCollection dLeaderCollection = oTG.CreateObjectCollection Dim dLeaderNote As LeaderNote For Each dLeaderNote In dSheet.DrawingNotes.LeaderNotes dLeaderCollection.Add(dLeaderNote) MsgBox(dLeaderNote.Text & " | " & dLeaderNote.Type.ToString & " | " & dLeaderNote.DimensionStyle.Type.ToString) Next