mcad BOMItems and OCX's

Anonymous — Sat, 15 Jun 2002 12:30:55 GMT

Hi.

When trying to create an ActiveX Control (OCX) to be used with accont, I get
loads of error messages.
especially when trying to access BOMItem.ItemNumber
But at several other properties as well.

I'm using VB 6 SP5.

If I take the exact same code, and put into a "Standard EXE" project, it
works like a charm.

For those who want to look at the code:

Option Explicit

Public AcadApp As AcadApplication
Public AcadDoc As AcadDocument

Private Sub Form_Load()
Set AcadApp = GetObject(, "AutoCAD.Application")
Set AcadDoc = AcadApp.ActiveDocument
GetBOM
End Sub

Public Sub GetBOM()

Dim bomSMgr As McadSymbolBBMgr
Dim bomMgr As McadBOMMgr
Dim bomBOM As McadBOM
Dim bomItem As McadBOMItem
Dim bomName As String
Dim Target As Object

ReDim strArray(0)

Set bomSMgr = AcadApp.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
Set Target = AcadDoc.ModelSpace

Set bomMgr = bomSMgr.bomMgr
bomName = "BOM1"

If bomMgr.BOMTableExists() Then
Set bomBOM = bomMgr.GetBOMTable(Target, bomName)
Else
Set bomBOM = bomMgr.AddBOMTable(bomName, Target)
End If

For Each bomItem In bomBOM.Items
MsgBox bomItem.ItemNumber
Next

Set bomBOM = Nothing
Set bomMgr = Nothing
Set bomSMgr = Nothing

End Sub

I have AutoCAD Mechanical 6 PP started with a drawing open.
But it just Won't work in an OCX project. I just get:
Run-time error '-2147417851 (80010105)':
Method 'ItemNumber' of object 'IMcadBOMItem' failed

ne1?

Regards

Trond Hasse Lie

topic mcad BOMItems and OCX's in VBA Forum

mcad BOMItems and OCX's