Inserting/Adding all Balloons from Parts List

[Anonymous]

Hello,

I am automating my drawing and I couldnt find a way to add new balloons from my parts list into the drawing. I saw several posts that renumbers or finds which item is not ballooned but i was looking at adding balloons on a drawing without any initial balloons.

This is a section of the code I used but I couldnt not get past the [virtualcomponent as object] part:

'PARTS LIST
Dim oPartslist As PartsList
oPartslist = SSheet.PartsLists.Add(oPartDocS, oTG.CreatePoint2d(0.965, 26.828), PartsListLevelEnum.kFirstLevelComponents, , , False)

' Add balloon from parts list

Dim oObjBalloon As ObjectCollection
oObjBalloon = invApp.TransientObjects.CreateObjectCollection
Call oObjBalloon.Add(oTG.CreatePoint2d(22, 17))
Call oObjBalloon.Add(oTG.CreatePoint2d(20, 19.3))
Dim oBalloon As Balloon
oBalloon = SSheet.Balloons.Add(oObjBalloon, oPartslist.PartsListRows.Item(1))  ' This is where I think I have the virtual component not well defined

Could someone help please?

Thank you

[adam.nagy]

Hi John,

Here is a sample that adds a balloon, though only temporarily in this case.

http://adndevblog.typepad.com/manufacturing/2013/11/get-itemnumber-from-the-drawingcurve.html

You just have to remove the

Call oTransaction.Abort

... part of the code.

Cheers,