Hi Roy It needs a .._reset function for its location.I noticed that it can stay on the disconected monitor..
(defun ent-xline (pt vec lyr /) (entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") (cons 8 lyr) '(100 . "AcDbXline") (cons 10 (trans pt 1 0)) (cons 11 vec)))) (defun C:xv (/ pt) (while (setq pt (getpoint "\nSpecify Vertical XLINE position: ")) (ent-xline pt (getvar "ucsydir") "X_hulplijn_")))(defun C:xh (/ pt) (while (setq pt (getpoint "\nSpecify Horizontal XLINE position: ")) (ent-xline pt (getvar "ucsxdir") "X_hulplijn_")))
I think it has something to do with the OpenDCL code how it works.
The user cannot enter another AutoLISP expression in response to a getpoint request.
(command "_.id" "\\")(setq pt (getvar 'lastpoint))
(setvar 'cmdecho 0)(vl-cmdf "_Opendcl")(setvar 'cmdecho 1); 20180417; ODCL check.(if (not dcl-Project-Load) (progn (princ "\nError: OpenDCL runtime not available ") (exit) )); 20180417; Dialog check.(if (not (findfile "Osnaps.odcl")) (progn (princ "\nError: \"Osnaps.odcl\" file not found ") (exit) ))
Edit:Version 20180417:Two checks have been added to the code.