elise_moss
2005-02-24, 12:32 AM
I am trying to write a program in VB6 to automate the plotting of sheet set packages. It works great until I get to the point where I atcually have to access the AutoCAD ActiveX control.
I have added the reference to AcSmComponents16 1.0 Type Library, as any of the other Autodesk components that I think might be needed.
However, I get the error:
"Specified module cannot be found"
on this line:
Set ssm = CreateObject("AcSmComponents.AcSmSheetSetMgr")
Partial code:
'has the user selected a drawing package
If lstdst.Text = "" Then
MsgBox "You must select a drawing package to plot."
Exit Sub
End If
' open the database
'create the db filestring
dstname = lstdst.Text
msgstring = "selected package = " & dstname
MsgBox msgstring
If dstname = "WGVU 179051" Then
dstname = "wgvu.dst"
End If
If dstname = "OETA 388041" Then
dstname = "oeta.dst"
End If
If dstname = "PAPPAS 144051" Then
dstname = "pappas.dst"
End If
If dstname = "SALES SAMPLE PACKAGE" Then
dstname = "sample sales dwgs.dst"
End If
filestring = "\\signastor\engineering\sheet sets\" & dstname
msgstring = "selected package = " & filestring
MsgBox msgstring
Set ssm = CreateObject("AcSmComponents.AcSmSheetSetMgr")
Set db = ssm.OpenDatabase(filestring, True)
' lock the database
Call db.LockDb(db)
Any assistance would be appreciated.
Thanks,
Elise Moss
www.mossdesigns.com
I have added the reference to AcSmComponents16 1.0 Type Library, as any of the other Autodesk components that I think might be needed.
However, I get the error:
"Specified module cannot be found"
on this line:
Set ssm = CreateObject("AcSmComponents.AcSmSheetSetMgr")
Partial code:
'has the user selected a drawing package
If lstdst.Text = "" Then
MsgBox "You must select a drawing package to plot."
Exit Sub
End If
' open the database
'create the db filestring
dstname = lstdst.Text
msgstring = "selected package = " & dstname
MsgBox msgstring
If dstname = "WGVU 179051" Then
dstname = "wgvu.dst"
End If
If dstname = "OETA 388041" Then
dstname = "oeta.dst"
End If
If dstname = "PAPPAS 144051" Then
dstname = "pappas.dst"
End If
If dstname = "SALES SAMPLE PACKAGE" Then
dstname = "sample sales dwgs.dst"
End If
filestring = "\\signastor\engineering\sheet sets\" & dstname
msgstring = "selected package = " & filestring
MsgBox msgstring
Set ssm = CreateObject("AcSmComponents.AcSmSheetSetMgr")
Set db = ssm.OpenDatabase(filestring, True)
' lock the database
Call db.LockDb(db)
Any assistance would be appreciated.
Thanks,
Elise Moss
www.mossdesigns.com