清韵 小说:请问如何通过lisp控制捕捉范围(靶框)大小

来源:百度文库 编辑:偶看新闻 时间:2024/04/30 13:49:20
 

请问如何通过lisp控制捕捉范围(靶框)大小

如何

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

 

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

(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)
)