Want to combine ilogic programs

[k14348]

Hi,

   I have 3 ilogic programs. Now i want to make this as a single ilogic program.Can anybody help to solve this issue?

Sub Main()
Dim drawingDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
For Each sheetX As Sheet In drawingDoc.Sheets
Dim titleBlockX As TitleBlock = sheetX.TitleBlock
If (titleBlockX Is Nothing) Then Continue For
Dim ClientDocTypeTextBox As TextBox = GetClientDocTypeTextBox(titleBlockX.Definition)
ClientDocTypeString = "DE"

titleBlockX.SetPromptResultText(ClientDocTypeTextBox, ClientDocTypeString)
Next
End Sub
Function GetClientDocTypeTextBox(ByVal titleDef As TitleBlockDefinition) As TextBox
For Each defText As TextBox In titleDef.Sketch.TextBoxes
If (defText.Text = "<Client Doc Type>" Or defText.Text = "Client Doc Type") Then
Return defText
End If
Next
Return Nothing
End Function


Sub Main()
Dim drawingDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
For Each sheetX As Sheet In drawingDoc.Sheets
Dim titleBlockX As TitleBlock = sheetX.TitleBlock
If (titleBlockX Is Nothing) Then Continue For
Dim ClientDisciplineTextBox As TextBox = GetClientDisciplineTextBox(titleBlockX.Definition)
ClientDisciplineString = "DE"

titleBlockX.SetPromptResultText(ClientDisciplineTextBox, ClientDisciplineString)
Next
End Sub
Function GetClientDisciplineTextBox(ByVal titleDef As TitleBlockDefinition) As TextBox
For Each defText As TextBox In titleDef.Sketch.TextBoxes
If (defText.Text = "<Client Discipline>" Or defText.Text = "Client Discipline") Then
Return defText
End If
Next
Return Nothing
End Function


Sub Main()
Dim drawingDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
For Each sheetX As Sheet In drawingDoc.Sheets
Dim titleBlockX As TitleBlock = sheetX.TitleBlock
If (titleBlockX Is Nothing) Then Continue For
Dim PhaseTextBox As TextBox = GetPhaseTextBox(titleBlockX.Definition)
PhaseString = "DE"

titleBlockX.SetPromptResultText(PhaseTextBox, PhaseString)
Next
End Sub
Function GetPhaseTextBox(ByVal titleDef As TitleBlockDefinition) As TextBox
For Each defText As TextBox In titleDef.Sketch.TextBoxes
If (defText.Text = "<Phase>" Or defText.Text = "Phase") Then
Return defText
End If
Next
Return Nothing
End Function

[Anonymous · Accepted solution]

Hi Kathik,

You Can call each program at the end of the program so that it will run as single program.

Modified snippet code

Sub Main()
Dim drawingDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
For Each sheetX As Sheet In drawingDoc.Sheets
Dim titleBlockX As TitleBlock = sheetX.TitleBlock
If (titleBlockX Is Nothing) Then Continue For
Dim ClientDocTypeTextBox As TextBox = GetClientDocTypeTextBox(titleBlockX.Definition)
ClientDocTypeString = "DE"

titleBlockX.SetPromptResultText(ClientDocTypeTextBox, ClientDocTypeString)
Next
call Main1 '<---Modified Line 1
End Sub
Function GetClientDocTypeTextBox(ByVal titleDef As TitleBlockDefinition) As TextBox
For Each defText As TextBox In titleDef.Sketch.TextBoxes
If (defText.Text = "<Client Doc Type>" Or defText.Text = "Client Doc Type") Then
Return defText
End If
Next
Return Nothing
End Function


Sub Main1()
Dim drawingDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
For Each sheetX As Sheet In drawingDoc.Sheets
Dim titleBlockX As TitleBlock = sheetX.TitleBlock
If (titleBlockX Is Nothing) Then Continue For
Dim ClientDisciplineTextBox As TextBox = GetClientDisciplineTextBox(titleBlockX.Definition)
ClientDisciplineString = "DE"

titleBlockX.SetPromptResultText(ClientDisciplineTextBox, ClientDisciplineString)
Next
Call Main2 '<---Modified Line 2
End Sub
Function GetClientDisciplineTextBox(ByVal titleDef As TitleBlockDefinition) As TextBox
For Each defText As TextBox In titleDef.Sketch.TextBoxes
If (defText.Text = "<Client Discipline>" Or defText.Text = "Client Discipline") Then
Return defText
End If
Next
Return Nothing
End Function


Sub Main2()
Dim drawingDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
For Each sheetX As Sheet In drawingDoc.Sheets
Dim titleBlockX As TitleBlock = sheetX.TitleBlock
If (titleBlockX Is Nothing) Then Continue For
Dim PhaseTextBox As TextBox = GetPhaseTextBox(titleBlockX.Definition)
PhaseString = "DE"

titleBlockX.SetPromptResultText(PhaseTextBox, PhaseString)
Next
End Sub
Function GetPhaseTextBox(ByVal titleDef As TitleBlockDefinition) As TextBox
For Each defText As TextBox In titleDef.Sketch.TextBoxes
If (defText.Text = "<Phase>" Or defText.Text = "Phase") Then
Return defText
End If
Next
Return Nothing
End Function

[k14348]

Its working. Thnx

-karthikeyan M