(defun c:INS-PIN (/ path dwglist pos_x pos_y dwfile fn pt n1)

  (setq path (getvar "dwgprefix"))
  (setq dwglist (vl-directory-files path "*.dwg" ))
  (setq n1 0)
  (setq pos_x 0 pos_y 0)
  (repeat (length dwglist)
     (setq dwfile (nth n1 dwglist))
     (setq fn (strcat "*" path dwfile))

     (setq pt (list pos_x pos_y))
     (command "_INSERT" fn "_non" pt 1 0)

     ;; 297: 불러올도면이 A4가로 그려진 경우
     ;; 420: 불러올 도면이 A3라고 그려진 경우
     (setq pos_x (+ pos_x 297)) ;;용지크기A4

     (setq n1 (1+ n1))
  )
  (princ)
)

;; 위 내용을 C:/AutoCAM/PcamUserSetup.Lsp 에 추가해서 사용해 보세요 (명령:INS-PIN)
;; 그리고 불러들일 도면만 폴더에 저장하세요.