[讨论]：LSP中的对象捕捉设置对程序运行的影响

wangyi168

以下是本人编制的一个简单程序,指定基点和长\宽画矩形.目的是检查对象捕捉对程序的影响,本人是初学者,前几天才接触LSP.希望得到大家帮助.谢谢您的留言!
我的问题是,我在程序里加了一句对象捕捉控制,设置为16388(圆心),可是在作图时,一旦周边有其他圆心的话,程序会自己捕捉到其他圆心坐标,而不是函数计算的矩形交点坐标!这样画出来的就不是矩形了!
如果去掉这个对象捕捉控制就没这个问题了,可假如必须设置为圆心呢???怎么解决呢?

我在论坛里看到有人说,LSP在运行时必须自动关掉所有对象捕捉,否则有时运行结果不正确,看来果然如此,哪位大侠给小弟解释一下为什么呢?在编程中如果需要固定某一个捕捉值而又不影响程序运行结果,该怎么办呢???
(defun c:jx(/ aa bb cc dd ee ff)
  (setvar "OSMODE" 16388);对象捕捉设为“圆心”
  
  (setvar "cmdecho" 0)

  (setvar "blipmode" 0)

  (setq aa (getpoint "\n指定左下角点:"))

  (setq bb (getreal "\n请输入高度:"))

  (setq cc (getreal "\n请输入宽度:"))

  (setq dd (polar aa 0 cc))

  (setq ee (polar aa (/ pi 2) bb))

  (setq ff (polar dd (/ pi 2) bb))

  (command "line" aa dd "")

  (command "line" aa ee "")

  (command "line" dd ff "")

  (command "line" ee ff "")
  
  (prin1)

)

gysjy

你将第一句(setvar "OSMODE" 16388)改为(setvar "OSMODE" 0)，在程序末尾再添上(setvar "OSMODE" 16388)。

wangyi168

谢谢!非常感谢!

gysjy

通常，在程序开头加上
(setq os (getvar "osmode"))
在程序末尾再加上
(setvar "osmode" os)
这样，能将捕捉恢复到程序执行前的状态。