From: "Gary McMaster" 
Subject: Re: Part or assembly drawing?
Date: Wednesday, 28 August 2002 12:46 AM

Lisp:

(cdr (assoc 300 (dictsearch (namedobjdict) "DWGPROPS")))

VBA:

Dim oMcadApp As McadApplication
Set oMcadApp =
ThisDrawing.Application.GetInterfaceObject("Mcad.Application")

If oMcadApp.ActiveDocument.DocumentType = mcSinglePart Then MsgBox "Part"
If oMcadApp.ActiveDocument.DocumentType = mcPartAssembly Then MsgBox "Assy"

Gary

    Source: geocities.com/wpsmoke/acadmdt/drew/autolisp/partorassy

               ( geocities.com/wpsmoke/acadmdt/drew/autolisp)                   ( geocities.com/wpsmoke/acadmdt/drew)                   ( geocities.com/wpsmoke/acadmdt)                   ( geocities.com/wpsmoke)