怎么把一个图层里面的所有东西都移动到指定的图层呢？

bingshuier

(defun c:lpjzh() ;lpjzh=梁配筋转换
(setq hcl-lpj-h (ssget "x" (list (cons 8 "0"))));hcl-lpj-h=后处理-梁配筋-水平
(command "chprop" hcl-lpj-h "" "la" 0_MV "" "")
(princ)
  )
写到这里就写不下去了？

Andyhon

search CHPROP...

Sring

1. (defun c:lpjzh ()                        ;lpjzh=梁配筋转换
   
2.   (setq        hcl-lpj-h (ssget "x" (list (cons 8 "0")))
   
3.         0_MV          "图层2"
   
4.   )                                        ;hcl-lpj-h=后处理-梁配筋-水平
   
5.   (command "chprop" hcl-lpj-h "" "la" 0_MV "")
   
6.   (princ)
   
7. )

(defun c:lpjzh ()                        ;lpjzh=梁配筋转换<br />   (setq        hcl-lpj-h (ssget "x" (list (cons 8 "0")))<br />         0_MV          "图层2"<br />   )                                        ;hcl-lpj-h=后处理-梁配筋-水平<br />   (command "chprop" hcl-lpj-h "" "la" 0_MV "")<br />   (princ)<br /> )