Reference drawing sheet name with Ilogic
Thank you for your reply.
I gotta it working by making some adjustments in the original code.
What I did was:
1) Separated the output in two columns. One is for the SheetName, another for SheetNumber, so they are aligned to the left.
2) I created a Sheet with a grid using Sketch Symbol, placed on an empty sheet, placed the 6 notes on the first row, and then created a Sheet Format on my template.
3) I created a form to input the Sheet Number referencing to the actual Sheet Index. I still have to input it manually, cause it can change from set to set. Usually it is sheet 3. The form runs the iLogic when you press ok, the input is carried over a parameter called SheetNumber and the rule reads the number from that parameter.
4) On the sheet index, there are 6 notes:
myNote1 = Sheet Name, from 1 to 50
myNote2 = Sheet Number, from 1 to 50
myNote3 = Sheet Name, from 51 to 100
myNote4 = Sheet Number, from 51 to 100
myNote5 = Sheet Name, from 101 to 150
myNote6 = Sheet Number, from 101 to 150
5) The code reads the sheets quantity and applies it accordingly.
Here's the code:
Dim oSheetNumber As Integer = Parameter("SheetNumber") Dim app As Inventor.Application = ThisApplication Dim doc As DrawingDocument = app.ActiveDocument Dim Count As Integer = 1 'used to track sheets oMySheetCount = doc.Sheets.Count - i Dim lPos As Long Dim sSheetName As String Dim project_number As String = Category 'used along the SheetNumber, it comes from the Drawing iProperty Dim sheet1 As Sheet = doc.Sheets(oSheetNumber) Dim myNote1 As String Dim myNote2 As String Dim myNote3 As String Dim myNote4 As String Dim myNote5 As String Dim myNote6 As String If oMySheetCount <= 50 Then For Each oSheet In doc.Sheets If Count <= 50 Then lPos = InStr(oSheet.Name, ":") sSheetName = Left(oSheet.Name, lPos - 1) myNote1 = myNote1 & sSheetName & vbCr myNote2 = myNote2 & project_number & "-" & Count & vbCr Count = Count + 1 Else End If Next sheet1.DrawingNotes(1).Text = myNote1 sheet1.DrawingNotes(2).Text = myNote2 sheet1.DrawingNotes(3).Text = "" sheet1.DrawingNotes(4).Text = "" sheet1.DrawingNotes(5).Text = "" sheet1.DrawingNotes(6).Text = "" End If If oMySheetCount > 50 And oMySheetCount <= 100 Then For Each oSheet In doc.Sheets If Count <= 50 Then lPos = InStr(oSheet.Name, ":") sSheetName = Left(oSheet.Name, lPos - 1) myNote1 = myNote1 & sSheetName & vbCr myNote2 = myNote2 & project_number & "-" & Count & vbCr Count = Count + 1 ElseIf Count <= 100 Then lPos = InStr(oSheet.Name, ":") sSheetName = Left(oSheet.Name, lPos - 1) myNote3 = myNote3 & sSheetName & vbCr myNote4 = myNote4 & project_number & "-" & Count & vbCr Count = Count + 1 End If Next sheet1.DrawingNotes(1).Text = myNote1 sheet1.DrawingNotes(2).Text = myNote2 sheet1.DrawingNotes(3).Text = myNote3 sheet1.DrawingNotes(4).Text = myNote4 sheet1.DrawingNotes(5).Text = "" sheet1.DrawingNotes(6).Text = "" End If If oMySheetCount > 100 Then For Each oSheet In doc.Sheets If Count <= 50 Then lPos = InStr(oSheet.Name, ":") sSheetName = Left(oSheet.Name, lPos - 1) myNote1 = myNote1 & sSheetName & vbCr myNote2 = myNote2 & project_number & "-" & Count & vbCr Count = Count + 1 ElseIf Count <= 100 Then lPos = InStr(oSheet.Name, ":") sSheetName = Left(oSheet.Name, lPos - 1) myNote3 = myNote3 & sSheetName & vbCr myNote4 = myNote4 & project_number & "-" & Count & vbCr Count = Count + 1 ElseIf Count <= 150 Then lPos = InStr(oSheet.Name, ":") sSheetName = Left(oSheet.Name, lPos - 1) myNote5 = myNote5 & sSheetName & vbCr myNote6 = myNote6 & project_number & "-" & Count & vbCr Count = Count + 1 End If Next sheet1.DrawingNotes(1).Text = myNote1 sheet1.DrawingNotes(2).Text = myNote2 sheet1.DrawingNotes(3).Text = myNote3 sheet1.DrawingNotes(4).Text = myNote4 sheet1.DrawingNotes(5).Text = myNote5 sheet1.DrawingNotes(6).Text = myNote6 End If
I hope it can be useful to others.
Cheers!
