[编程交流] 从一个层移动对象

 (defun Ouvrir_dessin_dbx(dwg / dbx doc lan rel)
   (and (setq dwg (findfile dwg))
     (progn
   (vlax-for doc (vla-get-documents (vlax-get-acad-object))
     (and (eq (strcase (vla-get-fullname doc)) (strcase dwg))
       (setq dbx doc lan T)
     )
   )
   (and (not dbx)
     (setq dbx (vlax-create-object (if (< (setq rel (atoi (getvar "ACADVER"))) 16)
                     "ObjectDBX.AxDbDocument"
                     (strcat "ObjectDBX.AxDbDocument." (itoa rel))
                   )
           )
     )
     (vla-open dbx dwg)
   )
     )
   )
   (list dbx lan)
 )