I have just migrated from ADT 2004 to Architecture 2013. I wrote a QLEADER routine for 2004 to temporarily control osnap and layer placement. It works perfectly in 2004, but in 2013 I lose visibility of the text input in the command line for the leader. See the attached. Below is the routine. Anyone have any idea what may be different? The standard QLEADER command works fine in 2013.
;;;zxQLeader
(defun c:zxQLerror (msg)
(setvar "osmode" temposmode)
(setvar "clayer" templayer)
(setvar "texteval" temptexteval)
(if
(or
(= msg "Function cancelled")
(= msg "quit / exit abort")
)
(princ)
(princ)
)
)
(defun zxQL (/ p1 temposmode templayer texteval)
(setq temposmode (getvar "osmode"))
(setq templayer (getvar "clayer"))
(setq temptexteval (getvar "texteval"))
(setvar "osmode" 512)
(setvar "texteval" 1)
(setvar "cmdecho" 0)
(command "-layer" "m" "A-Anno-Note" "")
(setvar "cmdecho" 1)
(princ)
(setq p1 (getpoint "Select Start Point: "))
(command "qleader" p1)
(while (= (logand (getvar "CMDACTIVE") 1) 1)
(command pause)
)
(setvar "osmode" temposmode)
(setvar "clayer" templayer)
(setvar "texteval" temptexteval)
)
(defun c:zxQLeader (/)
(setq olderr *error*
*error* c:zxqlError
)
(zxQL)
(setq *error* olderr)
(princ)
(princ)
)
