[编程申请]：如何用一个快捷键实现如下osnap设置？

lemonx

经常有一些程序会清空osnap设置后不恢复回来，于是总要重新按照自己的习惯设定，我想用lisp应该可以一步实现，高手最好能告诉我一点原理或参考资料

它山之石

(DEFUN C:dss()  (COMMAND "osmode" "175")(princ))
175你可以参考相关资料自己修改。

xyp1964

2. [FONT=courier new](defun c:oo()(Setvar"osmode"7095)(princ))[/FONT]

[FONT=courier new](defun c:oo()(Setvar"osmode"7095)(princ))[/FONT]

gcb998

我编了一个LSP上来,请查收!

2. [FONT=courier new](DEFUN C:dss()
   
3. (COMMAND "osnap" "END,CEN,QUI,MID,QUA,PER,APP,INS,NOD,INT")
   
4. (princ))[/FONT]

[FONT=courier new](DEFUN C:dss() <br /> (COMMAND "osnap" "END,CEN,QUI,MID,QUA,PER,APP,INS,NOD,INT")<br /> (princ))[/FONT]

lemonx

十分感谢楼上几位，问题已解决了

露水2

谢谢搞定

filmy

这个我都有用，
谢谢大家。。

flfuthpss

我看完以上的内容，感觉好复杂，说真的，好简单的，下面是由“飞龙一号”来帮你的，哈哈
改写时，只要改OI及INT为你所要的名字及选项就行呢：
(DEFUN C:OI  () (COMMAND "OSNAP" "INT") (PRINC))
使用方法就到到CAD命令栏中输入OI，它会自动设置交点。也不知道你会不会看呢，哈哈
有什么问题可以到我的主页留言，我会及时回答你哦，朋友们，来吧！来吧！我不怕
主页：http://jzldl.123ye.com  建筑，我们一起飞！

狂刀

人家直接设osmode，更“专业”一点。因为可以透明使用。
调用command就不可以了

lemonx

狂刀的解释也十分专业，xyp的程序就高明在此

Dallas_whu

按如下格式也可以实现透明调用：
(defun c:oo ()
  (setvar "osmode" (+ 1 2 4 8 16 32 128 512))
  (princ "\n常用对象捕捉方式设置完毕！")
  (princ)
)

hnfsf

一题多解，百家争鸣！