为何lisp在单击左键的时候总是出现无法显示捕捉点的情况？（已解决）

ljfzx

;;;by x_s_s_1@163.com
(defun c:uu (/ uu1 uu2 oi tmp mode val)
  (defun uu1 (/ ro_ang)
  (setvar "cmdecho" 0)
  (if (equal (getvar "TILEMODE") 1)
    (progn
      ;;记忆参数old_ro_ucs_z_ang (这个值在本LSP文件内必须唯一,不能有重名的)
      (if (= old_ro_ucs_z_ang nil) (setq old_ro_ucs_z_ang (/ pi 2)))
      (princ (strcat "\n指定视口绕 Z 轴的旋转角度<" (angtos old_ro_ucs_z_ang 0 6) ">: "))
      (setq ro_ang (getangle))
      (if ro_ang (setq old_ro_ucs_z_ang ro_ang)(setq ro_ang old_ro_ucs_z_ang))
      (command "_.undo" "_group")
      (command "_.ucs" "_Z" (angtos ro_ang 0 8))
      (command "_.Plan" "")
      (command "_.undo" "_end")
    )
    (princ "\n*请切换到模型空间*")
  )
)
  (defun uu2 nil
    (command "ucs" "w")
    (command "plan" "w")
  )
  (setvar "cmdecho" 0)
  (setq oi t)
  (prompt "\n旋转至UCS<左键单击>┃还原WCS<右键单击>:")
  (while oi
    (setq tmp  (grread T 8)
          mode (car tmp)
          val  (cadr tmp)
    )
    (cond
      ((= mode 3)(uu1)(setq oi nil))
      ((or (= mode 11) (= mode 25))(uu2)(nil))
      ((or (equal tmp '(2 13))
           (equal tmp '(2 27))
           (equal tmp '(2 32))
       )
       (setq oi nil)
      )
    )
  )
  (setvar "cmdecho" 1)
  (princ)
)


我把 x_s_s_1@163.com和黄大师的程序合并了一下，现在在CAD环境中，经常会出现点击左键之后无法显示捕捉点的情况（如果没出现，单击右键恢复UCS在尝试左键命令），不知道哪位大师可以帮忙修改一下

xinxirong

grread不支持捕捉

ljfzx

xinxirong 发表于 2017-10-17 09:20
grread不支持捕捉

不是捕捉到是对象捕捉