cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
Showing results for 
Search instead for 
Did you mean: 

Add Drawing Symbol by VB API

Highlighted
Granite

Add Drawing Symbol by VB API

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)

Tags (3)