[求助]修改程序

luyu9635

程序目的:对颜色随层且为同一图层中的图元进行移动,按窗选方式

程序如下，不能正常运行，请大侠修改，谢谢了：

             （defun c:cm ()

                   (setq dx (entget (car (entsel))))

                 （setq dx8 (cdr (assoc 8 dx)))

                   (setq dx62 (cdr (assoc 62 dx)))

                   (setq p1 (getpoint) p2 (getcorner p1))

                           (if (= dx62 nil)

                                     (progn

                                               (setq dx62 (cdr (assoc 62 (tblsearch "layer" dx8))))

                                               (setq ss (ssget "w" p1 p2 (list(cons 8 dx)(cons 62 dx62))))

                                     )        

                            )

             (setq ss (ssget "w" p1 p2 (list (cons 8 dx)(cons 62 dx62))))

             (command "_.move" ss "" )

             (princ)

              )

                   

Andyhon

颜色随层则其实体不含 62 组码

而您的 code 却似乎是针对 62 组码 .....

注解下一各列程序码的的原本用意好吗?