abtjy 发表于 2008-12-13 17:41:00

求助一个新建坐标LISP，谢谢！

<p>(defun c:xs()<br/>&nbsp; (command "ucs" "n")<br/>)</p><p>我现在想输入命令XS后就自动让我选外观交点APP,因为这样坐标0点避免选错，我直接打开外观交点不能使用，非要在执行命令时输入APP才能选取，请各位帮帮忙，谢谢！</p><p></p>

caoyin 发表于 2008-12-13 19:42:00

不执行命令，如何捕捉！！

abtjy 发表于 2008-12-15 13:08:00

版主我的意思执行命令后只能让我选取外观交点，光标不会捕捉其它点

abtjy 发表于 2008-12-15 13:13:00

不好意思补充一下，版主的意思要执行命才能捕捉，我上面的意思没有表达清楚，我的意思我提前在捕捉设置里把外观交点打开，其它选项全部关掉，执行命令光标不能选取，但在执行命令后再输入APP光标就可以捕捉了，我现在想怎样把APP直接串在程式里就不用我手去输入了，我只要输入XS就直接捕捉外观交点

Andyhon 发表于 2008-12-15 14:21:00

<p>我现在想怎样把APP直接串在程式里就不用我手去输入了</p><p>(setVar "OsMode" 2048)<br/>(......)&nbsp;&nbsp;&nbsp;&nbsp; ; 程序段落此时要用到是&nbsp; App 捕捉</p><p>===============================================<br/>使用以下位码设置“对象捕捉”的运行模式：</p><p>0 ：NON（捕捉设置为无）<br/>1 ：END（捕捉设置为捕捉到端点）<br/>2 ：MID（捕捉设置为捕捉到中点）<br/>4 ：CEN（捕捉设置为捕捉到圆心）<br/>8 ：NOD（捕捉设置为捕捉到节点）<br/>16 ：QUA（捕捉设置为捕捉到象限点）<br/>32 ：INT（捕捉设置为捕捉到交点）<br/>64 ：INS（捕捉设置为捕捉到插入点）<br/>128 ：PER（捕捉设置为捕捉到垂足）<br/>256 ：TAN（捕捉设置为捕捉到切点）<br/>512 ：NEA（捕捉设置为捕捉到最近点）<br/>1024 ：QUI（捕捉设置为捕捉到快速）<br/>2048 ：APP（捕捉设置为捕捉到外观交点）<br/>4096 ：EXT（捕捉设置为捕捉到尺寸线）<br/>8192 ：PAR（捕捉设置为捕捉到平行）</p><p><br/></p>

AMTONNY 发表于 2008-12-18 00:20:00

(DEFUN C:XS() (setvar "OSMODE"2048)(COMMAND "UCS" "O"))
页: [1]
查看完整版本: 求助一个新建坐标LISP，谢谢！