[求助]：请问如何通过lisp控制捕捉范围（靶框）大小

hsslyl

请问如何通过lisp控制捕捉范围（靶框）大小？
举个例子，pt点附近有一个弧线，如果缺省情况下(osnap pt "cen")返回圆心。我想要的是，如何通过lisp控制什么参数，令捕捉范围变小，使得(osnap pt "cen")返回nil。

雨箭风刀

pickbox 系统变量

haibinpro

常用的系统变量及功能
　　1、pickbox 和 cursorsize：这二个变量用于控制十字光标和拾取框的尺寸，绘图时可以适当修改其大小以适应我们的视觉要求。pickbox 缺省值为3，取值范围为0～32767；cursorsize 缺省值为5，取值范围为1～100。
　2、aperture: 用于控制对象捕捉（Object SNAP）靶区大小，在进行对象捕捉时，其取值越大，就越可以在较远的位置捕捉到对象，当图形线条较密时，应设置得小一些；反之，设置得大一些方便操作。缺省值为10，取值范围为1～50。

hsslyl

aperture系统变量正是我想要的，感谢大家帮我大忙了！

qiaqiadeng

(princ "\nr   靶心大小切换")
(defun c:r (/ s)
  (setq s (getvar "pickbox"))
  (if (and (/= s 3) (/= s 10))
    (setvar "pickbox" 3)
  )
  (if (= s 3)
    (setvar "pickbox" 10)
    (progn
      (if (= s 10)
        (setvar "pickbox" 3)
      )
    )
  )
  (princ)
)