Marek-M

Użytkownik forum
  • Content Count

    135
  • Joined

  • Last visited

  • Days Won

    9

Marek-M last won the day on March 8

Marek-M had the most liked content!

About Marek-M

  • Rank
    Początkujący
  • Birthday 09/15/1980

Profile Information

  • Gender
    Male
  • Location
    [PL] Banino

Recent Profile Visitors

961 profile views
  1. O, to może się przydać, całkiem ciekawy patent na Layouty Testowaliście to może na starszych ZWCADach? np. 2015+, 2019? Oczywiście sam przetestuję jak będę potrzebował ale może już dysponujecie taką wiedzą
  2. @dmatusz3, super rozwiązanie (pół skrypt pół LISP) ale działa rewelacyjnie. Nawet foldery ze spacjami nie powodują konfliktów. Tylko trzeba pamiętać o podwójnym backslashu w ścieżce. Dzięki. Trochę jeszcze stuningowałem kod w pliku SCR, żeby w łatwiejszy sposób dostosowywać go do innych plików DWG i ścieżki do plików podałem w oddzielnych zmiennych: (setq template_file "C:\\test\\duzy_plik_testowy_template.txt" output_file "C:\\test\\duzy_plik_testowy_extracted_blocks.txt" ) (command "_-ATTEXT" "_C" template_file output_file)
  3. Z SCR korzystam sobie w taki sposób, że w okienku wyboru pliku SCR mam odpalony katalog, w którym trzymam wszystkie pliki SCR jakich używam na komputerze. Domyślnie podpowiadana jest nazwa pliku SCR zgodna z nazwą pliku DWG i wtedy tylko zatwierdzam enterem wybór. W tej chwili tylko muszę pamiętać, żeby przy ZWCAD 2015+ wybrać plik z dopiskiem 2015. Na razie jest to czynność sporadyczna i chyba na razie powstrzymam się nad rozbudową skryptu, chociaż pomysł z LSP i VERNUM wydaje się być prostym i skutecznym patentem. Dzięki za pomysł!
  4. Wysłałem dane do testowania w wiadomości prywatnej.
  5. Właśnie zauważyłem też taką ciekawostkę, że ZWCAD 2019 dużo dłużej niż ZWCAD 2015+ generuje pliki z listą bloków przy komendzie ATTEXT. Zmodernizowałem sobie skrypty do ATTEXT o komendy: (setq s (getvar "DATE")) [...] instrukcje skryptu ATTEXT [...] (strcat "* Czas ekstrakcji atrybutow w programie " (getvar "VERNUM") " = " (rtos (setq seconds (* 86400.0 (- (getvar "DATE") s))) 2 3) "s.") I w efekcie otrzymałem taki rezultat: ZWCAD 2015+ ZWCAD 2019 Trochę duża ta różnica, prawda.
  6. Dziękuję! Szybka i rzeczowa odpowiedź Oczywiście usunięcie cudzysłowów pomogło i w ZWCAD 2019 działa, nawet ze spację w ścieżce Niestety w ścieżce posiadam spację i przez nią ZWCAD 2015+ sobie nie radzi - czy jest jakieś obejście problemu spacji w ścieżce ale takie uniwersalne, żeby ZWCAD 2015+ i 2019 potrafiły sobie z tym poradzić? Jeśli nie jest to takie proste, to też nie jest problem - wystarczy, że zrobię sobie oddzielne pliki skryptów dla ZWCAD 2015 i dla ZWCAD 2019
  7. No i jeszcze dopowiem, że spróbowałem w ścieżkach do plików w skrypcie zamiast pojedynczych backslashy dać po dwa backslahe: -ATTEXT C "C:\\test\\extract_template.txt" "C:\\test\\extracted_blocks.txt" i efekt jest jeszcze gorszy 😞
  8. Dodam, że właśnie sprawdziłem, że zarówno poprzez okno dialogowe ATTEXT jak i poprzez konsolę -ATTEXT komenda działa prawidłowo, tylko że wymaga interakcji do podania ścieżki do pliku.
  9. Problem dotyczy ZWCAD 2019 - VERNUM = "2019.03.15(43299)_x64" Mam prosty skrypt, który działa m.in. na ZWCAD 2015+, uruchamiający komendę ATTEXT z parametrami pliku szablonu i wyjściowego. Dla testów działam wewnątrz katalogu C:\test\ (co by ścieżka nie była za długa i nie miała spacji i innych nietypowych znaków). Niestety, ZWCAD 2019 przy takim skrypcie wyrzuca błąd: i oczekuje na podanie pliku wyjściowego. Niestety nie wiem, czy to ja coś robię źle, czy to po prostu błąd ZWCAD 2019? A może jest na to jakieś obejście? Spakowane pliki testowe wrzuciłem jako załącznik test.zi
  10. Dobra, na tym forum AutoCADa ktoś mi pomógł i poprawił kod Lee Maca i teraz robi dokładnie to co trzeba. Zostawiam tutaj kod dla potomnych (również jako plik) Dzięki za pomoc! Plik zawiera dodatkowy parametr, który pozwala wybrać, czy znaczniki nowych linii mają być usuwane w komórkach tabeli (domyślna opcja, to 'zachowaj nowe linie'). (defun c:stripFormT ( / LM:UnFormat table col row mode) (defun LM:UnFormat ( str mtx / _Replace regex ) (vl-load-com) ;; © Lee Mac 2010 (defun _Replace ( new old str ) (vlax-put-property regex 'pattern old) (vlax-invoke regex 'replace str new)
  11. Dzięki! Nie wiem jak to robi ale robi to bardzo dobrze Przydałoby się tej aplikacji wybór kilku tabel do zaznaczenia za jednym razem. Teraz trzeba każdą tabelkę przeklikać a przydałoby się je załatwić parametrem np. "_all"
  12. Dzięki, Zauważyłem, że chyba źle to miałem wpisane w pierwszym poście - tekst w tabeli posiada klamrę zamykającą tylko jeśli w środku pojawia się jakieś specjalne formatowanie np. pogrubienie i pokolorowanie - przykład poniżej: (1 . "{\\fCalibri|b0|i0|c1|p0;Simple text 1\n\\fCalibri|b1|i0|c1|p0;\\C3;\nSimple text 2\\fCalibri|b0|i0|c1|p0;\\C0;\n\nSimple text 3}") Jeśli tekst nie zawiera formatowania w środku, to nie ma klamry zamykającej: (1 . "{\\fCalibri|b0|i0;Simple text 1\n\nSimple text 2\n\nSimple text 3") Nowy plik DWG ze zmienionym formatowaniem jak
  13. Dosyłam jeszcze pliki źródłowe Excela i DWG z zaimportowaną tabelką, może komuś będzie pomocne. Program, na którym działam: ZWCAD 2019, VERNUM = "2019.03.15(43299)_x64" stripFormT-usun_formatowanie_tekstu_w_tabeli.lsp Table_remove_formating_CAD.dwg Data_source_Excel.xlsx
  14. Cześć, Po imporcie tabeli z Excela posiada ona formatowanie tekstu, które chciałbym usunąć. Z tego co zauważyłem, to jest ono zapisywane w formacie {\fCalibri|b0|i0|c1|p0;Jakiś tekst} Chciałbym móc oczyszczać tabele z formatowania aby tekst w tabeli po oczyszczeniu wyglądał tak: Jakiś tekst Znalazłem skrypt Lee Maca ale nie rozwiązuje on moich problemów. Może to być kwestia jakiegoś regexa do skonfigurowania, ale na tym się nie znam za bardzo. Może ktoś da radę prześledzić kod i zrobić jakąś poprawkę, żeby skrypt oczyszczał tekst w tabelach? Poniżej kod (również w stripFormT
  15. To jest normalne zachowanie przy otwieraniu plików z Outlooka, który załącznik do otwarcia kopiuje do katalogu tymczasowego i ustawia mu parametry tylko do odczytu, jak plik do podglądu.