[求助]请教个小问题

huxkv

;选择不同图层上的实体
(defun c:ss()
(setq s (ssget));生成所要图层的选择集
(setq l (sslength s))
(setq n 0 n1 0)
(setq s2 (ssadd))
(while (< n l)
(setq c-name (cdr (assoc 8 (entget (ssname s n)))))
(setq s1 (ssget "X" (list (cons 8 c-name))))；生成所选中图层的选择集
(setq l1 (sslength s1))
(while (< n1 l1)
(setq name (ssname s1 n1))
(ssadd name s2); 为何当第二个图层中的实体加入时会出错???
(setq n1 (1+ n1))
);将各层的图元合并到一个选择集
(setq n (1+ n))
)
(princ)
)

BDYCAD

n1 這個變量你寫在第一個while循環外面所以當n變量加了1時. 就不執行while 循環里面的while循環了. 在使用ssadd時先進行判斷一下. 用 (if (not (ssmember name s2)) (ssadd name s2)). 這樣相當有利一步步的測試. 你多點試試.

huxkv

谢谢!