请教！如何判断一个command-s程序是否正确执行

黄翔

楼主说的问题.我测试了没有出错么

自贡黄明儒

10楼说了，如果失败，查*error*

xiaocainiao

自贡黄明儒 发表于 2024-7-1 21:39
10楼说了，如果失败，查*error*

大神！如果返回*error*程序是不是就终止了、不太会判断这个

x_s_s_1

随手，未测试,(a_laythw        '("1""2""3"))。第二个if可以去掉。也可以按这个套路改成逐个command，慢

1. (defun a_laythw         (laylist / ent);_in(list "1""2""3"...)
   
2.     (foreach lay  laylist
   
3.         (if (tblsearch "layer" lay)
   
4.             (progn
   
5.                 (setq ent (entget (tblobjname "layer" lay)))
   
6.                 (if (= 1 (cdr (assoc 70 ent)))
   
7.                     (entmod (subst (cons 70 0) (assoc 70 ent) ent)))))))

(defun a_laythw         (laylist / ent);_in(list "1""2""3"...)<br />     (foreach lay  laylist<br />         (if (tblsearch "layer" lay)<br />             (progn<br />                 (setq ent (entget (tblobjname "layer" lay)))<br />                 (if (= 1 (cdr (assoc 70 ent)))<br />                     (entmod (subst (cons 70 0) (assoc 70 ent) ent)))))))

xiaocainiao

x_s_s_1 发表于 2024-7-2 10:02
随手，未测试,(a_laythw        '("1""2""3"))。第二个if可以去掉。也可以按这个套路改成逐个command，慢

我之前就是用的这种方法、图层一多超级卡

x_s_s_1

xiaocainiao 发表于 2024-7-2 11:26
我之前就是用的这种方法、图层一多超级卡

用这个函数还慢？

xiaocainiao

x_s_s_1 发表于 2024-7-2 10:02
随手，未测试,(a_laythw        '("1""2""3"))。第二个if可以去掉。也可以按这个套路改成逐个command，慢

我之前是逐个图层 command 很卡、后来就把图层弄成一个列表、好了很多、但是图层太多有时就不太灵了