Why is this not working?
I want it to print out the name of the sheet set the active drawing belongs to.
Sub TestNotWorking()
Dim ssm As New AcSmSheetSetMgr
Dim ss As AcSmSheetSet
ssm.GetParentSheetSet ThisDrawing.FullName, ThisDrawing.ActiveLayout.name, ss
Debug.Print ss.GetName
Set ss = Nothing
Set ssm = Nothing
End Sub
--
Best Regards, Jimmy Bergmark
CAD and Database Developer Manager at www.pharmadule-emtunga.com
Take a look at
JTB FlexReport (FLEXlm report tool) - www.jtbworld.com/jtbflexreport
SmartPurger (Purges automatically) - www.jtbworld.com/?/smartpurger.htm
or download some freeware at www.jtbworld.com
More on AutoCAD 2005;
www.jtbworld.com/autocad2005.htm
