_

[LISP] Hurtowy zapis otwartych plików

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".

[LISP] Hurtowy zapis otwartych plików

Postprzez Jerry » gru 19, 2017 15:33

Witam
Znalazłem coś takiego do hurtowego zapisu otwartych plik:
(defun c:SaveAllAuto (/ SAA_ACObject SAA_Documents)
(setq SAA_Documents (vla-get-Documents (setq SAA_ACObject (vlax-get-acad-object))))
(vlax-for SAA_Item SAA_Documents
(if
(/= (vla-get-FullName SAA_Item) "")
(progn
(vla-SaveAs SAA_Item (strcat (vla-get-Path SAA_Item) "\\" (vl-filename-base (vla-get-Name SAA_Item)) "-A.dwg") acNative)
(if
(/= (vla-get-HWND SAA_Item) (vla-get-HWND (vla-get-ActiveDocument SAA_ACObject)))
(vla-Close SAA_Item)
))))
(mapcar 'vlax-release-object (list SAA_Documents SAA_ACObject))
(princ)
)

[źródło https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/quot-save-all-as-quot/m-p/7345458#M358083]

Co należałoby wpisać, aby przed zapisem zrobić jeszcze ZoomAll. Próbowałem z (vla-ZoomAll (vlax-get-acad-object)) lecz mi nie wychodziło.

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

Re: [LISP] Hurtowy zapis otwartych plików

Postprzez agregu » sty 03, 2018 10:14

(command "_zoom" "_all" )
_____________________________________________________________________________________
Nakladka do projektowania instalacji elektrycznych i teletechnicznych
www.TTCAD.pl
agregu
agregu
 
Posty: 59
Dołączył(a): kwi 22, 2011 08:35

Re: [LISP] Hurtowy zapis otwartych plików

Postprzez kruuger » sty 05, 2018 11:27

niestety nie ma takiej opcji. fizycznie musisz obskoczyc kazdy rysunek i zakladke.
majac np jeden rys robisz petle po arkuszach:
Kod: Zaznacz cały
(foreach % AllLayouts
  (setvar "ctab" %)
  (zoom e)
)

k.
Avatar użytkownika
kruuger
 
Posty: 4849
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] Hurtowy zapis otwartych plików

Postprzez Jerry » sty 05, 2018 12:32

Dzięki za wszelkie sugestie.

Obszedłem to trochę na okrągło, ale efekt jest zadowalający.
Zrobiłem mianowicie lsp, który tworzy mi skrypt co takiego zadania.
dxf -> lsp -> scr -> dwg

Jerry
Jerry
 
Posty: 211
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