Question

求 auto lisp 高手帮解决 关于对象捕捉问题

关于lisp函数大都在开始 将对象捕捉归0 但是好多命令 我需要执行时开着对象捕捉 可是开着对象捕捉 做出来的东西经常变形 求教高手 有么有好的解决办法
按我的理解 就是命令执行时 对象捕捉点的优先级 要高于lisp程序定义点的优先级 有么有办法改变下这种关系
感觉应当有办法 CAD自带的各种命令 就从来没出现过开着捕捉而变形的问题 求高手啊
解决了 可以在加分 分不是问题

Answer 1

一般出现变形的时候，多数是用list来生成的点时产生的错误的点，你可以在该段程序前将点捕捉关闭即可，不需要一开始就关闭，就是在计算点时关闭就行了。这样基本上不会出现变形的错误。

追问

我程序里没有list生成的表啊 就2个是getpoint输入的 其他的点都是polar出来的

追答

那估计POLAR也会吧，你试下在所有求点的程序段前将点捕捉关闭试下吧

追问

那另外问下 如何实现可输入 可不输入复选框 就像CAD自带命令pline那种 启动命令后带有很多字母启动的可选选项
PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
像后边的 A H L W等 默认情况下是不需要输入的 当按W后 才会让你输入线宽
这如何实现 请不吝赐教

追答

(initget "A C H L U W")
(setq pt (getpoint "\n指定下一个点或[圆弧(A)/半宽(H)/长度(L)放弃(U)宽度(W)]:"))
(while pt
(cond
((= (type pt) 'LIST) (xxx1) )
((= (strcase pt) "A") (xxx2) )
....
)
(initget "A C H L U W")
(setq pt (getpoint "\n指定下一个点或[圆弧(A)/半宽(H)/长度(L)放弃(U)宽度(W)]:"))
)

其中，xxx1为输入的是一个点时执行的操作,xxx2为输入的是A时执行的操作，其它的依次修改即可。

Answer 2

;;;完成取点后关闭对象捕捉
（setq oldos(getvar "osmode"))
(setq pt1(getpoint)pt2(getpoint))
(setvar "osmode" 0)
(command ".line" pt1 pt2 "")
(setvar "osmode" oldos)