Title Block

[Anonymous]

Greetings.
I am having so many Texts in Titleblock to fill each time.
Thru, iProperties it is taking same values for all sheets.
Instead of this, when I create a NewSheet It should ask me to type all the Texts. for example ..
Material, M/C Shop No., Process.
Is this a silly question ? , please forgive me. But it is blocking my mind.

Thanks in advance.

Wilde

[Anonymous]

Have you tried using promted entries? When you set up your title block set your text headings to prompted. Then when your title block is dropped into a drawing it will promt you for all your information. This way you can use the same title block for multiple sheets withing one .idw file and have different information on each.

Kent

[Anonymous]

Thanks Kent,
It is working greatly. But, When I want to edit Text Height It is not changing. Is there any different method to edit text OR it is same as for General Texts.
Select Text ---> Click RMB ---> Edit Text.

Still it is not changing.

Please, correct me if any.

Thank you,

Wilde

[Anonymous]

If your talking about prompted test in a title block, select the sheet you want to change in your browser, rmb on title block, edit definition, select your text, rmb, edit text, make sure your text is highlighted in the edit box when you change the height, select return, yes to save changes, Now the text for that sheet should be changed.

LLAP
KENT

[naresh_kalyan]

Dear KENT,
I am trying to add some CODE to the existing one.
the Existing one does Mutliple Creation of Sheets accordingly their NAMES. Is there any possibility to link this NAME to PROMPTED ENTRY ?

I mean, I will create one PROMPTED ENTRY called DESCRIPTION in the TitleBox Definition. The SHEET NAME which I am entering in the DIALOG BOXes shud be printed in the respective sheets.

If you are confused, pordon me for my poor Word Framing.

Here is the Existing CODE.

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

'Here we will put up a box to ask how many sheets to create
Dim counter, num_sheets, default
default = "10"
num_sheets = InputBox("How many Sheets to Create")

For counter = 1 To num_sheets
Dim name As String
name = InputBox("Enter sheet name: ", "Sheet Name")

Dim oSheet As Sheet
'Set oSheet = oDoc.Sheets.Add(, , name)

Set oSheet = oDoc.Sheets.Add(kADrawingSheetSize, kLandscapePageOrientation, name)


' Add the border and title block.
Call oSheet.AddBorder(oDoc.BorderDefinitions.Item(" My Own Border")) 'Place a custom border.

Call oSheet.AddTitleBlock(oDoc.TitleBlockDefinitions.Item("My Own Title"))
Next counter
End Sub

[Anonymous]

See programming help for the description of the 3rd argument (PromptStrings)
of the AddTitleBlock method. If the titleblock definition contains prompt
strings, you can specify an array of strings for the prompted entries using
this argument. You can also change the prompted text in a placed titleblock
using the TitleBlock.SetPromptResultText method.

Sanjay-


wrote in message news:5248476@discussion.autodesk.com...
Dear KENT,
I am trying to add some CODE to the existing one.
the Existing one does Mutliple Creation of Sheets accordingly their NAMES.
Is there any possibility to link this NAME to PROMPTED ENTRY ?

I mean, I will create one PROMPTED ENTRY called DESCRIPTION in the TitleBox
Definition. The SHEET NAME which I am entering in the DIALOG BOXes shud be
printed in the respective sheets.

If you are confused, pordon me for my poor Word Framing.

Here is the Existing CODE.

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

'Here we will put up a box to ask how many sheets to create
Dim counter, num_sheets, default
default = "10"
num_sheets = InputBox("How many Sheets to Create")

For counter = 1 To num_sheets
Dim name As String
name = InputBox("Enter sheet name: ", "Sheet Name")

Dim oSheet As Sheet
'Set oSheet = oDoc.Sheets.Add(, , name)

Set oSheet = oDoc.Sheets.Add(kADrawingSheetSize, kLandscapePageOrientation,
name)


' Add the border and title block.
Call oSheet.AddBorder(oDoc.BorderDefinitions.Item(" My Own Border")) 'Place
a custom border.

Call oSheet.AddTitleBlock(oDoc.TitleBlockDefinitions.Item("My Own Title"))
Next counter
End Sub