社区 › AutoLISP/Visual LISP 编程技术 › 请教！如何判断一个command-s程序是否正确执行

黄翔 发表于 2024-7-1 12:17:37

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

自贡黄明儒 发表于 2024-7-1 21:39:49

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

xiaocainiao 发表于 2024-7-2 08:21:37

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

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

x_s_s_1 发表于 2024-7-2 10:02:23

本帖最后由 x_s_s_1 于 2024-7-2 10:09 编辑

随手，未测试,(a_laythw      '("1""2""3"))。第二个if可以去掉。也可以按这个套路改成逐个command，慢
(defun a_laythw         (laylist / ent);_in(list "1""2""3"...)
    (foreach laylaylist
      (if (tblsearch "layer" lay)
            (progn
                (setq ent (entget (tblobjname "layer" lay)))
                (if (= 1 (cdr (assoc 70 ent)))
                  (entmod (subst (cons 70 0) (assoc 70 ent) ent)))))))

xiaocainiao 发表于 2024-7-2 11:26:20

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

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

x_s_s_1 发表于 2024-7-2 11:52:34

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

用这个函数还慢？

xiaocainiao 发表于 2024-7-2 14:40:03

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

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

查看完整版本: 请教！如何判断一个command-s程序是否正确执行