Community Tip - Did you get an answer that solved your problem? Please mark it as an Accepted Solution so others with the same problem can find the answer easily. X
Hi,
I would like to know how to add a symbol to drawing using VB API. As far I've written this code. I'm stuck here.
Thanks in advance.
'CREATE SYMBOL
Dim detailowner1 As IpfcDetailItemOwner = CType(drawing2d, IpfcDetailItemOwner)
Dim detailitems2 As CpfcDetailItems = detailowner1.RetrieveSymbolDefItem
Dim dtlcrtins1 As IpfcDetailCreateInstructions = (New CCpfcDetailGroupInstructions).Create( "\symbols\balloon_1_item_right.sym")
Dim curvedesc1 As IpfcCurveDescriptor = (New CpfcCurveDescriptor).GetCurveType()
Dim detailentins1 As IpfcDetailEntityInstructions = (New CCpfcDetailEntityInstructions).Create(Nothing, Nothing)
With detailentins1
'''''''
End With
Dim detailitem1 As IpfcDetailItem = detailowner1.CreateDetailItem(detailentins1)
Dim sym1 As IpfcDetailSymbolDefInstructions = (New CCpfcDetailSymbolDefInstructions).Create("\symbols\balloon_1_item_right.sym")
With sym1
.SymbolHeight = 1
.FullPath = "\symbols\balloon_1_item_right.sym"
.HasElbow = True
.Height = 2
.IsTextAngleFixed = True
End With
Dim sym2 As IpfcDetailSymbolDefItem = detailowner1.CreateDetailItem(sym1)
Dim sym3 As IpfcDetailItem = detailowner1.CreateDetailItem(sym1)