ssget加repeat函数的问题

NJZX05

修改后的完整的第一过程如下：
;;第一过程,分别得到两边对象
(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

peraperson

NJZX05 发表于 2013-11-11 09:53
修改后的完整的第一过程如下：
;;第一过程,分别得到两边对象
(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? 我改了一下 还是不行。。。
悟性不够 还恳请您帮忙解答 写成完整的程序
非常感谢

peraperson

悄悄顶一下 万一有好心人再来解惑呢