Try the following iLogic rule:
Dim obj = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllEntitiesFilter, "Select a weld symbol")
If (TypeOf obj IsNot DrawingWeldingSymbol) Then
MsgBox("You did not select a welding symbol")
Return
End If
Dim symbol As DrawingWeldingSymbol = obj
Dim def As DrawingWeldingSymbolDefinition = symbol.Definitions.Item(1)
Dim symbolDef1 = def.WeldSymbolOne
Dim symbolDef2 = def.WeldSymbolTwo
symbolDef1.Prefix = "Prefix 1"
symbolDef1.Leg1 = "Leg 1.1"
symbolDef1.Leg2 = "Leg 1.2"
symbolDef1.WeldSymbolType = WeldSymbolTypeEnum.kFilletWeldSymbolType
symbolDef1.Length = "Length 1"
symbolDef1.Pitch = "Pitch 1"
symbolDef2.Prefix = "Prefix 2"
symbolDef2.Leg1 = "Leg 2.1"
symbolDef2.Leg2 = "Leg 2.2"
symbolDef2.WeldSymbolType = WeldSymbolTypeEnum.kFilletWeldSymbolType
symbolDef2.Length = "Length 2"
symbolDef2.Pitch = "Pitch 2"
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

Blog: hjalte.nl - github.com