iLogic to change sheet name to equal Part Number.

[mstumbo]

I would like to have an iLogic rule that changes the active sheet name to the Models Part Number property.

I tried ActiveSheet.name = iProperties.Value("Project", "Part Number"), but

get an Error: Property 'Name' is 'ReadOnly'.

Any help would be greatly appreciated.

Thanks,

[Stansteel]

Could it be pulled from the Revision Table?

[rjay75]

Yes, if you have a revision table on the drawing it could be pulled from there. What column is the Revision number at in the table.

[Stansteel]

1st Column.

[rjay75]

Change the line:

prtRev = modelDoc.PropertySets("Summary Information").Item("Revision Number").Value

With

prtRev = ""

If dwgSheet.RevisionTables.Count > 0 Then

  If dwgSheet.RevisionTables(1).RevisionTableRows.Count > 0 Then

    Dim rows As RevisionTableRows = dwgSheet.RevisionTables(1).RevisionTableRows

    prtRev = rows(rows.Count)(1).Text 'Get the text of the first column of the last row

  End If

End If

[Stansteel]

WOW! Brilliant! I'd like to shake your hand.

[Stansteel]

Any way to get the sheet number of the multiple assembly drawings into my title block? In the browser, the sheet names show up at "SHEET 1" or "SHEET 2". In my title block I have a prompted entry where I input the sheet number where it'll show up as just a number. Nate

[rjay75]

Sure, is there what is the text of the prompt. Is there more than one field. Like 1 of 2.

[Stansteel]

Just one field. I know there is an automated way to show say "3 of 6", but this is a function of all drawing sheet. In this case, I only want the assembly sheets where we've placed "SHEET 1" in the browser name. My title block has a box labled "Sheet" where I want it to be simply "1" or "2" and so on.

[rjay75]

After the line:

sheetOf = String.Format(" Sheet {0}", sheetNames(prtNumber)(1))

Add:

If Not dwgSheet.TitleBlock Is Nothing Then
  tb = dwgSheet.TitleBlock
  If tb.Definition.Sketch.TextBoxes.Count > 0 Then
    For Each txtBox As TextBox In tb.Definition.Sketch.TextBoxes
      If txtBox.FormattedText.Contains("Sheet</Prompt>") Then
        tb.SetPromptResultText(txtBox, sheetNames(prtNumber)(1))
      End If
    Next
  End If
End If

[Stansteel]

Doesn't seem to do anything. Do I need to match the text to what I have in my title block? Attached is a picture of the text box.

[rjay75]

Didn't see a picture but yes the text needs to match. That's how it locates the correct textbox to add the text to. Currently its looking for "Sheet</Prompt>" So change that to whatever text you have with </Prompt> on the end.

[Stansteel]

No luck. The text I have in my title block as a prompted entry is "Sheet #". So I changed the code to be "Sheet #<\Prompt>)". I tried taking the space and pound symbol off too. Nothing happens.

[rjay75]

As a test try setting it to:

If txtBox.FormattedText.Contains("Sheet #") Then

to see what happens.

Also noticed a trailing ')' in your string that shouldn't be there.

[Stansteel]

That did it! Thank you so much for your help! This saved us time and headache. I really appreciate it!

[Dopey1993]

I really like this rule is save me a lot of time however i would like to replace the Revision Number with the description of the part ive messed with it a liltle bit but it keeps kicking out errors. thanks! 

[MechMachineMan]

Dopey.... Just look further back in this thread. Rjay posted a bunch of variations including one with descriptions.

[Dopey1993]

It works great for an assembly file but I can't get it to work on a part file?

[rjay75]

Can post or attached what you changed? In the original rule there was nothing specific to assemblies so it should work for both.

Thanks

[Dopey1993]

this is what i cant get to work 

[Dopey1993]

This wont work