(defun C:MD ( / oldOrt oldOrt a )
(setq oldOrt (getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(setq oldOrt (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setvar "cmdecho" 0)
(setq a (getpoint "First point: "))
(COMMAND "measuregeom" "d" a "m")
(setvar "ORTHOMODE" oldOrt)
(setvar "OSMODE" oldOrt)
(princ)
)
(c:md)

Advertisements