为何lisp在单击左键的时候总是出现无法显示捕捉点的情况？（已解决）
本帖最后由 ljfzx 于 2017-10-17 21:36 编辑;;;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在尝试左键命令），不知道哪位大师可以帮忙修改一下
grread不支持捕捉 xinxirong 发表于 2017-10-17 09:20
grread不支持捕捉
不是捕捉到是对象捕捉
页:
[1]