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.
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)
Dim detailitem1 As IpfcDetailItem = detailowner1.CreateDetailItem(detailentins1)
Dim sym1 As IpfcDetailSymbolDefInstructions = (New CCpfcDetailSymbolDefInstructions).Create("\symbols\balloon_1_item_right.sym")
.SymbolHeight = 1
.FullPath = "\symbols\balloon_1_item_right.sym"
.HasElbow = True
.Height = 2
.IsTextAngleFixed = True
Dim sym2 As IpfcDetailSymbolDefItem = detailowner1.CreateDetailItem(sym1)
Dim sym3 As IpfcDetailItem = detailowner1.CreateDetailItem(sym1)