_

Zamiana arkuszy na osobne pliki (Vba, Lisp?)

Forum poświęcone flagowemu produktowi oraz aplikacjom pochodnym Autodesku. To jedyne forum mające w tytule nazwę programu, a to ze względu na jego olbrzymią popularność w Polsce. Można tutaj umieszczać również posty z ogólnie pojętej tematyki "Kreślarskie 2D".

Zamiana arkuszy na osobne pliki (Vba, Lisp?)

Postprzez qupietoforum » maja 04, 2017 10:45

Witam,
Jak z automatu zapisać arkusze w pliku dwg do osobnych plików. (pewnie potrzebny jakiś skrypt :))
Mam rysunek z 100 arkuszy (standardy napraw) i potrzebuję ten plik ze 100 arkuszy "zamienić" na 100 plików z 1 arkuszem,
część rysunkowa jest na modelu, część opisowa na arkuszach....
pozdr
Radek
qupietoforum
 
Posty: 110
Dołączył(a): lip 13, 2009 14:46

Re: Zamiana arkuszy na osobne pliki (Vba, Lisp?)

Postprzez Jerry » maja 04, 2017 11:34

Mam to z czeluści internetu i nie wiem kto jest autorem, ale działa:
Kod: Zaznacz cały
(defun c:testy ( / BASE LST OLD_DIA)
  (setq   old_dia   (getvar 'FILEDIA)
   base   (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME)))
  )
  (setvar 'FILEDIA 0)
  (setq lst (layoutlist))
  (foreach l lst
    (command "_.ctab"
        l
        "exportlayout"
        (strcat base "-" l)
    )
  )
  (setvar 'FILEDIA old_dia)
  (princ)
)
; Zapisuje zawartość layout-ów w odzielnych plikach DWG

Jerry
Jerry
 
Posty: 197
Dołączył(a): paź 02, 2005 18:35
Lokalizacja: Gdańsk


Powrót do AutoCAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników