[编程申请]：选择多层对象

shona521

请教高手写一程序。目的：选择几个对象（分别在不同的层），读取这几个对象所在的“图层名”，然后提示所选图层并确认，以后框选一个范围，将该范围所有属于以上图层的对象全部选择。程序大致框架如下,我学lisp不深，中间很多部分不会写，请高手完善。：
(defun c:xzc()
(setvar "cmdecho" 0)
(setq s1 (entsel "\n\t请选择需要选择的层中的一个物体<退出> : "))  
  (while s1
    (setq ss (entget (car s1)))  
    (setq cname (cdr (assoc 8 ss)))
    (prompt (strcat "\n选中了图层: \""  
                                               
                                              ","
                                         )
            "\"\n"
            )
    )
)
  (XZ)
)  

(defun XZ()
(prompt "\n框选范围:")
(setq ss1 (ssget (list (cons 8 cname))))  
(prin1)  
)

nevsayno

正在学

yizhiwei1984

不段的学习中..