odbx_getmodel.lsp

; ANSI-Windows 1252
; Autolisp, Visual Lisp
;|
    odbx_getmodel.lsp 1.0

    Copy all objects in Model space, and paste in current dwg.

    Place the files, odbx_getmodel.lsp and odbx_fct.lsp, in an Autocad approved folder.

    Use APPLOAD to load them.

    Enter odbx_getmodel in Autocad and choose folder.

    Drawings are not open.

    Tested on Windows 10 and Autocad 2015.

    No copyright: (!) 2021 by Frédéric Coulon.
    No license: Do with it what you want.

|;
;Dependencies
(vl-load-com)
;(load "fct.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:odbx_getmodel (/ axdoc acobj lfil dir objlst model)
    (setq acobj (vlax-get-acad-object)
          model (vla-get-modelspace (vla-get-activedocument acobj)))
        ; Choose folder.
    (if (and (setq dir (getdir)) 
              ; dwg liste.
            (setq lfil (vl-directory-files dir "*.dwg" 1))) 
      (progn
        ; Loop over files.
        (foreach f lfil 
            (if (setq axdoc (getaxdbdoc (strcat dir f)))
              (progn
                (setq objlst '())
                ; Get the objects
                (vlax-for obj (vla-get-modelspace axdoc)
                    (setq objlst (cons obj objlst))         
                )
                (if objlst
                  (progn
                    ; Copy the objects in the current drawing.
                    (vla-copyobjects axdoc (vlax-safearray-fill
                        (vlax-make-safearray vlax-vbobject(cons 0 (1- (length objlst))))
                        objlst)
                        model)
                    (vlax-release-object axdoc)
                  )
                )
               )
            )
        )
        (vla-zoomextents acobj)
      )
      (princ "\nHave you lost your way?")
    )
(princ)
)

;é;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;