F3捕捉点功能

zhongys

不用按F3键就可以控制捕捉点的开关 (DEFUN F31()
(SETQ OS_OLD (GETVAR "OSMODE"))
(IF (AND (>= OS_OLD 16384) (<= OS_OLD 32767))
(PROMPT "OSMODE ON")
(SETVAR "OSMODE" (+ 16384 OS_OLD))
)
)
(DEFUN F30()
(SETQ OS_OLD (GETVAR "OSMODE"))
(IF (AND (<= OS_OLD 16384) (>= OS_OLD 0))
(PROMPT "OSMODE OFF")
(SETVAR "OSMODE" (- 16384 OS_OLD))
)
)

秋枫

2. ;;使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通，
3. ;;还将返回位码 16384 (0x4000)。这个附加值有助于开发人员编写 AutoCAD 用
4. ;;程序并将此模式与“绘图设置”对话框关闭的对象捕捉模式区别开来。设置位
5. ;;码值将关闭对象捕捉。将 OSMODE 设置为其他值将打开对象捕捉。(defun qf-disable-osmode()
6.        (setvar "osmode" (logior (getvar "osmode") 16384)) ; turn it off: 16384=0x4000
7. )
8. (defun qf-enable-osmode()
9.        (setvar "osmode" (logand (getvar "osmode") 49151)) ; turn it on: 49151=0xBFFF
10. )

;;使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通， ;;还将返回位码 16384 (0x4000)。这个附加值有助于开发人员编写 AutoCAD 用 ;;程序并将此模式与“绘图设置”对话框关闭的对象捕捉模式区别开来。设置位 ;;码值将关闭对象捕捉。将 OSMODE 设置为其他值将打开对象捕捉。(defun qf-disable-osmode()        (setvar "osmode" (logior (getvar "osmode") 16384)) ; turn it off: 16384=0x4000 ) (defun qf-enable-osmode()        (setvar "osmode" (logand (getvar "osmode") 49151)) ; turn it on: 49151=0xBFFF )