;;; Program check if the drawing is 2D or 3D
;;; Based on idea from http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/2d-or-3d-drawing/m-p/6023023#U6023023
;;; Modified by Igal Averbuh 2016

(defun c:3d ()
(setq dr (getvar "dwgname"))
(setq a (getvar "EXTMAX"))
(setq pt1 (caddr a))
(if (= pt1 0)
(princ "\n2D Drawing")
(alert "\n3D Drawing!")
)
(princ)
)
(c:3d)

Advertisements