| Autor | Wypowiedź |
|
CSWP, CSWE
2019-07-24, 21:27
Pomógł 0 raz(y).
|
Witam! Czy ma ktos moze kod macro z opcja zapisu wielostronicowego rysunku do osobnych plikow .dwg? W helpie znalazlem taka linijke kodu ale nie wiem jak to wsadzic przed kodem zapisu do pliku dwg? swDxfActiveSheetOnly 0 swDxfMultiSheet 2 swDxfSeparateSheets 1 |
|
|
|
|
.
2019-07-29, 08:19
Pomógł 52 raz(y).
|
Ten kod ustawia opcje eksportu i musi być wstawiony miedzy wybór elementów (najczęściej bieżący dokument) a funkcję eksportu do DWG. Ale pamiętaj, że ustawienie opcji eksportu jest na stałe, czyli przy następnym "ręcznym" eksporcie takie będą domyślne. Żeby zachować swoje ulubione opcje należy je w makrze zapisać do jakiś zmiennych potem ustawić nowe i po wyeksportowaniu przywrócić z zapamiętanych zmiennych. Ja mam tak: Opcja1 = swApp.GetUserPreferenceToggle(swDxfMapping): _ Opcja2 = swApp.GetUserPreferenceToggle(swDXFDontShowMap): _ OpcjaA = swApp.GetUserPreferenceIntegerValue(swDxfMultiSheetOption): _ OpcjaB = swApp.GetUserPreferenceIntegerValue(swDxfOutputNoScale): _ OpcjaC = swApp.GetUserPreferenceIntegerValue(swDxfVersion): _ swApp.SetUserPreferenceToggle (swDXFDontShowMap), False: _ swApp.SetUserPreferenceToggle (swDxfMapping), Mapa: _ swApp.SetUserPreferenceIntegerValue (swDxfMultiSheetOption), OpcjaArkuszy: _ swApp.SetUserPreferenceIntegerValue (swDxfOutputNoScale), Skala1 swApp.SetUserPreferenceIntegerValue (swDxfVersion), WersjaDXF.ListIndex .... tu funkcja exsportu do pliku ... longstatus = Part.SaveAs3(NazwaPlikuDoZapisu, 0, 0) swApp.SetUserPreferenceToggle (swDxfMapping), Opcja1: _ swApp.SetUserPreferenceToggle (swDXFDontShowMap), Opcja2: _ swApp.SetUserPreferenceIntegerValue (swDxfMultiSheetOption), OpcjaA: _ swApp.SetUserPreferenceIntegerValue (swDxfOutputNoScale), OpcjaB: _ swApp.SetUserPreferenceIntegerValue (swDxfVersion), OpcjaC |
|
|
|
PSWUG |
Strefa Resellera |
Publikuj |
SpołecznośćAnkieta |
Linki |
|
Strona główna
Tricks&Tips
Dodatki
RSS