[编程申请]：对象捕捉、条件判断、图层，求救！！！

flh1314

1、在LSP中如何实现对象捕捉开关？ 不能影响原有的捕捉设置。

2、如何在LSP中使用条件判断语句？这里指的不是一个条件，而是至少二个条件。

3、怎么样在命令运行过程中调用一个图层作为当前层，命令完成后，要还原成0层或其它层（该命令执行前的当前图层）？


求高手赐教！

Underway

1、没看懂

2、(if (and 条件一 条件二) ....)

3、(setvar "CLayer" "调用一个图层作为当前层名")
   (setvar "CLayer" "0层或其它层名")

xiao_longxin

最初由 Underway 发布
[B]1、没看懂

2、(if (and 条件一 条件二) ....)

3、(setvar "CLayer" "调用一个图层作为当前层名")
   (setvar "CLayer" "0层或其它层名") [/B]

1.  (setq onsap (getvar "OSMODE"))
     (setvar "OSMODE" 0)
   .........

     (setvar "OSMODE" onsap )

2.、(if (or (and 条件一 条件二)  (and 条件3 条件4)  ....))

3、(getvar "CLayer" );;取得当前图层名
   (setvar "CLayer" "0层或其它层名") ;;图层必须存在，否则出错

flh1314

水平低，有点没看得懂，不过也没事，试下就知道了。我这里就对于条件判断和捕捉说清楚点。

1、捕捉，我上面所说的意思是 : 把在CAD中我们按 "F3" "开关捕捉" 的这一动作，变成LSP中的语言。（不知道有没有说清楚）

2、IF 语句

比如说 有a b c d 四个值。我要达到以下的效果：
"a  小于 b" 且 "c 小于 d " 的时候执行 "line"命令
"a  小于 b" 且 "c 大于 d" 的时候执行 "rec"命令
"a  大于 b" 且 "c 大于 d"  的时候执行 "pline"  
"a  大于 b" 且 "c 小于 d"  时执行 "circle" 。

是不是看得头晕了？我自己也是，不知道有没有说明白。

Underway

最初由 flh1314 发布
[B]比如说 有a b c d 四个值。我要达到以下的效果：
"a 小于 b" 且 "c 小于 d " 的时候执行 "line"命令
"a 小于 b" 且 "c 大于 d" 的时候执行 "rec"命令
"a 大于 b" 且 "c 大于 d" 的时候执行 "pline"
"a 大于 b" 且 "c 小于 d" 时执行 "circle" 。
[/B]

(cond
((< a b)
  (cond
   ((< c d) (progn .....))  
   ((> c d) (progn .....))
))
((> a b)
  (cond
   ((< c d) (progn .....))  
   ((> c d) (progn .....))
)))  

(progn .....) ; 就是您想要的 .....
用 if  亦可

捕捉可用三楼的法子

flh1314

尝试中。。。。。。。。

哥们，能留个QQ吗？有空多赐教啊。

另外，我有一个新问题，有空帮我去看下吗？

http://www.xdcad.net/forum/showthread.php?threadid=570754

http://www.xdcad.net/forum/showthread.php?threadid=570724