中断程序。

millermin · 发表于 2012-6-13 06:27:22

本帖最后由 millermin 于 2012-6-13 06:37 编辑

想做一个程序，可逐个打开层，然后程序中断执行，手工使用一些zoom和pan功能，肉眼检查有无图元错误地使用了该层，但不做任何编辑，然后恢复中断，再继续执行程序，关闭该层，打开下一个层，直到层表的结尾，结束程序。我现在已经得到了一个层表。苦于不知道如何可以中断，恢复程序。谢谢。

millermin · 发表于 2012-6-13 18:27:25

有人懂点吗？

sfzyr · 发表于 2012-6-13 21:45:00

你的这个功能不要自己写了，赚ET 工具栏，工具条上有这个功能，就是浏览图层！

Gu_xl · 发表于 2012-6-14 00:03:13

millermin 发表于 2012-6-13 18:27
有人懂点吗？

(defun c:tt(/ D LAYERS LOOP LA GO)
(while (setq d (tblnext "layer" (null d)))
(setq layers (cons (cdr (assoc 2 d)) layers))
)
(command "layer" "t" "*" "off" "*" "y" "")
(setq loop t)
(while loop
(setq la (car layers)
layers (cdr layers)
)
(command "layer" "on" la "")
(command "zoom" "")
(while (= 1 (getvar 'cmdactive))
(vl-cmdf pause)
)
(command "layer" "off" la "")
(if (not layers)
(setq loop nil)
(progn
(initget "Yes No")
(setq go (getkword "[继续<Yes/No>]<Yes>"))
(if (= "No" go) (setq loop nil))
)
)
)
(command "layer" "on" "*" "")
(princ)
)

millermin · 发表于 2012-6-14 09:34:42

sfzyr 发表于 2012-6-13 21:45
你的这个功能不要自己写了，赚ET 工具栏，工具条上有这个功能，就是浏览图层！

我用的10版没找到这个功能。

millermin · 发表于 2012-6-14 10:01:22

Gu_xl 发表于 2012-6-14 00:03

两句没看懂，感觉语句太短，想是半句话，所以不理解：
1，（while loop
2. （if (not layers)

是不是有什么约定的东西省略了？谢谢。

sfzyr · 发表于 2012-6-14 12:13:46

millermin 发表于 2012-6-14 09:34
我用的10版没找到这个功能。

10的我不知道有沒有

04的,我裝了express,裏面的layer 工具中有layer walk 工具,就是你要的功能,還可以多個一起看,看看之間的配合以及孔位是否有問題,很好用的工具,但是我不用,我一般自己用單開,多開多關 ,單關等自己寫的程序操作.

Gu_xl · 发表于 2012-6-14 15:04:40

millermin 发表于 2012-6-14 10:01
两句没看懂，感觉语句太短，想是半句话，所以不理解：
1，（while loop
2. （if (not layers)

loop是循环标志，（if (not layers) ..是判断循环是否结束！之所有没有直接 (while layers ...
是因为后面还提供了一个图层没有遍历完就可以退出的机制！

millermin · 发表于 2012-6-15 09:36:22

Gu_xl 发表于 2012-6-14 15:04
loop是循环标志，（if (not layers) ..是判断循环是否结束！之所有没有直接 (while layers ...
是因为后 ...

谢谢。搞懂了。程序也写好了。很好用。

millermin · 发表于 2012-6-15 09:39:17

sfzyr 发表于 2012-6-14 12:13
10的我不知道有沒有

04的,我裝了express,裏面的layer 工具中有layer walk 工具,就是你要的功能,還可以 ...

根据layer walk 我在菜单里找到了。估计小妾已被封为夫人了。

账号		自动登录	找回密码
密码			注册

中断程序。

相关帖子