CAD tip # 10884:

Question

CAD

% platform category

Simple detection of a 2D/3D DWG or an empty DWG.

If you to find in your utility or menu-macro whether the current drawing is a 2D or 3D drawing file, or whether it doesn't contain any visual entities, you can use the following simple AutoLISP functions (predicates):

;is current drawing 2D?  
(defun is2D-p ()  
 (and (zerop (caddr (getvar "EXTMIN")))(zerop (caddr (getvar "EXTMAX")))) ; Z-boundingbox = 0?  
)  
;is current drawing 3D?  
(defun is3D-p ()  
 (< (caddr (getvar "EXTMIN"))(caddr (getvar "EXTMAX"))) ; Z-boundingbox ?  
)  
  
;is current drawing visually empty?  
(vl-load-com)  
(defun isEmpty-p ()  
 (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 1)  
 (> (caddr (getvar "EXTMIN"))(caddr (getvar "EXTMAX"))) ; min>max?  
)

The functions - e.g. (is2D-p) - return the values of T (true) or nil (false) in AutoCAD.

ACAD

*CAD

4.5.2016 8416×

Comments Tell a friend

applies to: AutoCAD ·

See also:
Tip 14477:	PurgeAll - automation of DWG file cleaning
Tip 14328:	How to verify entitlement of an application from Autodesk Apps using LISP?
Tip 14316:	How to redefine the HATCH command to start with the settings option?
Tip 14063:	How to get week day and week number from a given date.
Tip 14027:	3D heart from the heart.

Selected tip: Choosing language when installing AutoCAD LT 2011.

Back All CAD Tips

How to get user's full domain name, phone No., department, e-mail... « | » What is the process acwebbrowser.exe resp. Chromium host executable?

Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link:

Text:

FAQ

Featuring:
DwgTextTranslator translates a series of drawings from one language to another using MS Access.
Download a fully functional trial version.

Please use these tips at your own risk.
ARKANCE is not responsible for possible problems that may occur as a result of using any of these tips.

CADforum

Tips, tricks, utilities, help, how-tos and FAQ for AutoCAD, LT, Inventor, Revit, Map, Civil 3D, Fusion, Forma, 3ds Max and other Autodesk software (community support by ARKANCE). See About CADforum.

ARKANCE CZ (CAD Studio) - Autodesk Platinum Partner & Training Center & Consulting Services Partner

CONTACT:
webmaster.cz@arkance.world | tel. +420 910 970 111



Visitors now: 7476