[LISP程序]：请指出问题出在哪里

tcy200489

(setq pc (osnap (getpoint "\n 输入螺纹孔端面的中心点:") "near" ))　 这个句子有问题吗,如有问题请指出问题出在哪里

zml84

感觉这样做，不妥。
你的目的好像是在指定点位时捕捉到对象上。但楼上代码的返回结果是不可预料的。
那么，正确的做法是：在GETPOINT函数前设置对象捕捉的值。示例所示：

2. 
   
3. (servar  "OSMODE"   512  )
   
4. (setq pc (getpoint "\n 输入螺纹孔端面的中心点:") )
   

<br /> (servar  "OSMODE"   512  )<br /> (setq pc (getpoint "\n 输入螺纹孔端面的中心点:") )<br />

要再完美一些，可以在设置捕捉前保存捕捉当前值，执行定点完成后再恢复。例如：

2. 
   
3. (setq  os_old (getvar  "OSMODE" ) )
   
4. (setvar  "OSMODE"   512  )
   
5. (setq pc (getpoint "\n 输入螺纹孔端面的中心点:") )
   
6. (setq  "OSMODE"   os_old  )
   

<br /> (setq  os_old (getvar  "OSMODE" ) )<br /> (setvar  "OSMODE"   512  )<br /> (setq pc (getpoint "\n 输入螺纹孔端面的中心点:") )<br /> (setq  "OSMODE"   os_old  )<br />