About dos_popupmenu

[KuoTze]

recent Instruction dos_popupmenu After a period of use Will not be able to display pop-menu In other words, he can't show it Causes the command to be unable to follow the prompt of dos_popupmenu Let AUTOLISP proceed to the next stage of work I don't know how to troubleshoot this problem

I have this problem when I execute AutoCAD2021&2022 on windows10 & windows11 This has not happened in the past few years

[dalefugier]

Can you provide me a simple script that allows me to repeat what you are seeing?

[KuoTze]

  (defun C:XX (/ :pt: :ss: :os-dim:)    

             (setvar "cmdecho" 0)
       (setvar "DYNMODE" 0)
            (setq :idgn_fun:
	      '("< iDesign Xline »²§U½u¥\¯àªí >"
		""
		"Ultra Xline > Horizontal"
		"Ultra Xline > Vertical"
		""
		"Ultra Xline > Horizontal + Vertical"
		""
		"Ultra Line by Layer > Horizontal"
		"Ultra Line by Layer > Vertical"
		""
		"Ultra Line by Layer > Horizontal + Vertical"
		""
		"Ultra Xline:Layer > On"
		"Ultra Xline:Layer > Off"
		""
		"Ultra Xline:Layer > Lock"
		"Ultra Xline:Layer > unLock"
		""
		"Purge Ultra Xline Object"
		""
		"< iOffset >"
	       )
       )

       (setq :vv: (dos_popupmenu :idgn_fun:))  ;;; After a period of time, POP-MENU cannot be displayed ~~

           (cond ((= :vv: 0) (princ))
	     ((= :vv: 1) (:idgn_x-xline:))
	     ((= :vv: 2) (:idgn_y-xline:))
	     ((= :vv: 3) (:idgn_xy-xline:))
	     ((= :vv: 4)
	      (while (setq :pt: (getpoint (:idgnmsg: "Point for X-axle.line" " : ")))
	        (if(and :pt: (or(acet-sys-control-down)(acet-sys-shift-down)) )
	          (cond
	            ((and :pt: (acet-sys-shift-down)  ) (setvar "OSMODE" 0)(:idgn_y-axline:)(:idgn_x-axline:)(setvar "OSMODE" :os-dim:))
	            ((and :pt: (acet-sys-control-down)) (setvar "OSMODE" 0) (:idgn_y-axline:)(setvar "OSMODE" :os-dim:))
		   ;((and :pt: (acet-sys-control-down)(acet-sys-shift-down))(:idgn_xy-axline:)(setvar "OSMODE" :os-dim:))
	          )
	          (progn(setvar "OSMODE" 0)(:idgn_x-axline:)(setvar "OSMODE" :os-dim:))
	        )
	      )
	     )
	     ((= :vv: 5)
	      (while (setq :pt: (getpoint (:idgnmsg: "Point for Y-axle.line" " : ")))
	        (if(and :pt: (or(acet-sys-control-down)(acet-sys-shift-down)) )
	          (cond
	            ((and :pt: (acet-sys-shift-down)  ) (setvar "OSMODE" 0) (:idgn_y-axline:) (:idgn_x-axline:)(setvar "OSMODE" :os-dim:))
	            ((and :pt: (acet-sys-control-down)) (setvar "OSMODE" 0) (:idgn_x-axline:) (setvar "OSMODE" :os-dim:))
	          )
	          (progn(setvar "OSMODE" 0)(:idgn_y-axline:)(setvar "OSMODE" :os-dim:))
	        )
	      )
	     )
	     ((= :vv: 6) (:idgn_xy-axline:))
	     ((= :vv: 7) (vl-cmdf "_layer" "on" "0,Defpoints" ""))
	     ((= :vv: 8) (vl-cmdf "_layer" "off" "Defpoints" ""))
	     ((= :vv: 9) (vl-cmdf "_layer" "lock" "Defpoints" ""))
	     ((= :vv: 10)(vl-cmdf "_layer" "unlock" "Defpoints" ""))
	     ((= :vv: 11)
	      (vl-cmdf "_layer" "on" "Defpoints" "unlock" "Defpoints" "thaw" "Defpoints" "")
	     ;(setq :ss: (ssget "X" '((0 . "XLINE") (8 . "Defpoints") (62 . 244))))
	      (setq :ss: (ssget	"X" '((-4 . "<or") (0 . "XLINE") (70 . 1) (0 . "RAY") (-4 . "or>") (8 . "Defpoints") (62 . 244))))
	      (if :ss: (vl-cmdf "_.erase" :ss: ""))
	     )
	     ((= :vv: 12) (:idgn_offset:))
       )

           (princ)

)

;;; What I want to say is that it seems to have something to do with WINDOWS Update ;;; But i'm not sure ;;; Because this situation started happening recently ;;; At present, all my CADs have been updated. ;;;

[KuoTze]

Can you provide me a simple script that allows me to repeat what you are seeing?

This problem Mainly because the resolution of the extended monitor (4K) is different from that of the main monitor (2K) Need to specify the work screen of AUTOCAD avoid cross-monitor