;;第一过程,分别得到两边对象
(setq n 0 e1 nil YLst nil RLst nil)
(repeat (sslength ss)
(setq e2 (ssname ss n) n (1+ n));;此处增加了索引变量自增量
(if (= (cdr (assoc 62 (entget e1))) 1) (setq RLst(append RLst(list E1))));;得到红色组,此处修改了append的参数为表
(if (= (cdr (assoc 62 (entget e1))) 2) (setq RLst(append YLst(list E1))));;得到黄色组,此处修改了append的参数为表
);;repeat NJZX05 发表于 2013-11-11 09:53 static/image/common/back.gif
修改后的完整的第一过程如下：
;;第一过程,分别得到两边对象
(setq n 0 e1 nil YLst nil RLst nil)
非常非常谢谢您的热心解答 把你修改后的第一过程 加上之前的2 3 4过程 运行了一下 还是不行
我检查了一下 ss没有定义 于是加了一条(setq ss (ssget)) 结果还是不行
我有个疑问 你第一过程中的e1是什么呢？ 不是把他定义为nil了吗 后来的(if (= (cdr (assoc 62 (entget e1))) 1) (setq RLst(append RLst(list E1)))) 是不是要改为e2? 我改了一下 还是不行。。。
悟性不够 还恳请您帮忙解答 写成完整的程序
非常感谢 悄悄顶一下 万一有好心人再来解惑呢
页:
1
[2]