dmatusz3

Administratorzy
  • Postów

    3897
  • Dołączył

  • Ostatnia wizyta

  • Wygrane w rankingu

    308

Treść opublikowana przez dmatusz3

  1. Czy po resecie profilu kolory działają teraz poprawnie?
  2. W jaki sposób uruchamia Pan polecenie? Z menu czy z klawiatury? Patrząc w linię poleceń to "1" uruchamia zasłonę. Proszę spróbować pisać w linii poleceń _wipeout
  3. Można także rozpocząć od przywrócenia ustawień domyślnych, tutaj Domyślne kolory wyglądają tak Czy wczytuje Pan Centrum projektanta w postaci pliku *.zrx (jak to można było zrobić w w pierwszych wersjach 2018)?
  4. A ja sprawdziłem Pana sposób i faktycznie czas jest znacznie dłuższy. Dziękuję za informacje, jutro skonsultujemy to z supportem ZWSOFTu.
  5. Ok, teraz rozumiem blokowanie czyli tworzenie bloku z elementów na rysunku. Sprawdziłem na szybko Pana plik i u mnie wygląda to tak Ale sprawdzimy to jutro na różnych komputerach, systemach, wersjach.
  6. Bardzo proszę o podesłanie przykładowego pliku. Nie do końca rozumiem jednak sposób blokowania bloków. Jakie to polecenie? Blok generalnie w rysunku stanowi jeden obiekt, jaki jest cel zablokowania takiego bloku?
  7. Wymiar inteligenty potrafi rozpoznać obiekt np. okrąg i wstawić średnicę do wymiaru, potrafi się ułożyć odpowiednio do wymiarowanego obiektu. Na rzutach zawsze wymiarujemy względem płaszczyzny arkusza i wtedy otrzymujemy wymiar rzeczywisty. Pozdrawiam
  8. Niestety nie. Jeśli ten problem poważnie Panu przeszkadza to prawdopodobnie możemy napisać osobną funkcje, która uwzględni wszystkie parametry.
  9. Czy zaokrąglanie działa Panu poprawnie?
  10. Czy moglibyśmy się połączyć i zobaczyć na pulpit?
  11. U mnie przewijanie działa z prędkością, jak na filmie. Bez różnicy pomiędzy oboma interfejsami. Jakie ustawienia przewijania ma Panu ustawione? Czy to WIN 10?
  12. Proszę pamiętać o podawaniu vernum. Proszę zdradzić ile ma Pan warstw w rysunku? Jest to pojedynczy rysunek czy z xrefami?
  13. Na marginesie mówiąc, rysunek utworzony w SP2 beta, otwarty we wcześniejszej wersji i po odświeżeniu wymiarów wyświetla się normalnie. Proszę spróbować - przykładowy rysunek rysunek-z-wymiarami_2.dwg Dzięki za info. Prześlemy informacje do ZWSOFT.
  14. Tak, potwierdzam, dziękuję a zgłoszenie. Analizujemy teraz zachowanie arkuszy.
  15. Z tego ci się informowaliśmy, przy najbliższej aktualizacji także tego nie będzie. Pasek właściwości jest częścią dużego projektu, gdzie będzie przebudowana cała struktura okna właściwości. Zamknięcie wątku to nie koniec świata. Jeśli coś zostało do dodania, albo pojawiły się nowe argumenty to proszę: założyć nowy wątek - ja połączę go z już istniejącym otwierając go jednocześnie, jeśli tematycznie pasują, napisać wiadomość do mnie - otworzę ponownie wątek. Chciałbym aby jeden wątek odpowiadał jednemu zagadnieniu. Jeśli był temat "Czy będzie jakaś funkcja?" i ona zostaje wprowadzona, to wątek uznaje za zakończony. Natomiast jeśli mamy sugestie i propozycje odnośnie funkcjonalności to proszę założyć nowy temat. Myślę, że założenie nowego wątku nie stanowi raczej problemu, od zwykłej odpowiedzi różni się tylko tym, że trzeba wpisać temat.
  16. Dzięki za info, faktycznie tak jest. Można ustawić też linie w stylu wymiarowania
  17. Tak, trzeba obecnie zaznaczyć. Z tego co pamiętam, można też zaznaczyć cały rysunek a skrypt przefiltruje xrefy. Jutro zastanowimy się nad listą.
  18. Dziękuję za wszystkie sugestie. Zrobiliśmy listę i tworzymy dokładne opisy wedle informacji. W tak zwanym międzyczasie zrobiliśmy mały LISP, który powala na podanie względnej ścieżki do zaznaczonych xrefów. Załóżmy, że mamy projekt, w którym xrefy były zapisane w katalogu, jak poniżej. Plik nadrzędny z projektem został przeniesiony do katalogu A same xrefy znajdują się nieco niżej w strukturze katalogów Uruchamiamy skrypt, zaznaczamy xrefy, których ścieżki potrzebujemy zmienić, i wskazujemy katalog, gdzie znajdują się xrefy. I tutaj uwaga, ścieżka w oknie xrefów będzie ustawiona względnie, względem pliku nadrzędnego. Tak więc można pliki przenieść do innego katalogu, inny dysk lub inny komputer (należy tylko zachować względną strukturę). Po ustawieniu ścieżek okno xrefów wygląda tak: Skrypt jeszcze testujemy, jeśli ktoś jest zainteresowany to proszę o info. Działanie tego LISPa wygląda tak:
  19. Ogólnie zapis .\ oznacza aktualny katalog, ale w tym polu zawsze powinno być coś wpisane.
  20. xrefów miałem na myśli.
  21. Proszę w tym oknie w polu "dodatkowa ścieżka..." dopisać .\ Czyli powinno to wyglądać tak Następnie proszę zapisać i przeładować plik.
  22. Proszę o podanie vernum. Proszę o zrzut ekranu z managera warstw.
  23. Trochę myśleliśmy nad ścieżkami względnymi. Stworzyliśmy małego LISPa, który po wskazaniu Xrefa, zamienia ścieżkę z bezwzględnej na względną. Pokazałem to na filmie. Po przeciągnięciu LISPa w obszar rysunku pojawi się nowe polecenie WZGLEDNYXREF Bardzo proszę o ostrożność, nie testowaliśmy zbyt długo tego LISPa WzglednyXRef.lsp Oto kod źródłowy ;---------------------------------------------------------- ; Usługi Informatyczne SZANSA Sp. z o.o. ; Zamiana ścieżek bezwzględnych w XRefach na względne ; ; ; ---------------------------------------------------------- (defun C:wzglednyXRef ( / xrefs % *error*) (defun *error* ( msg / ) (if (not (null msg ) ) (progn (princ "\nC:wzglednyXRef:*error*: " ) (princ msg ) (princ "\n") ) ) ) ( setq xrefs (SelSet:Get "Wybierz XRefy" (list "INSERT" ) )) (foreach % xrefs ( makeRelative %) ) (princ ) ) ;(vlax-dump-object (car xrefs) t ) ;(entget ( vlax-vla-object->ename (cadr xrefs) ) ) (defun makeRelative ( block / oldPath newPath ans *error*) (defun *error* ( msg / ) (if (not (null msg ) ) (progn (princ "\nmakeRelative:*error*: " ) (princ msg ) (princ "\n") ) ) ) (if (vlax-property-available-p block 'path ) (progn (setq oldPath (vlax-get-property block 'path ) ) (print oldPath ) (print "zmieniam na: " ) (setq newPath (strcat "./" (vl-filename-base oldPath) (vl-filename-extension oldPath) ) ) (print newPath ) (setq ans(vl-catch-all-apply 'vlax-put-property (list block 'path newPath ) ) ) ) ) nil ) (defun SelSet:ToList (selset / Wynik ileelementow i *error* ) (defun *error* ( msg / ) (if (not (null msg ) ) (progn (princ "\nSelSet:ToList:*error*: " ) (princ msg ) (princ "\n") ) ) ) (if selset (progn (setq ileelementow(sslength selset) ) (setq i 0 ) (repeat ileelementow (setq Wynik (append Wynik (list (vlax-ename->vla-object(ssname selset i) ) ))) (setq i (1+ i )) ) )) Wynik ) (defun SelSet:FilterByType ( elementy typy / sl i % *error* ) (defun *error* ( msg / ) (if (not (null msg ) ) (progn (princ "\nSelSet:FilterByType:*error*: " ) (princ msg ) (princ "\n") ) ) ) ; (setq elementy (ssget ) ) (setq sl (sslength elementy)) (setq i (1- sl )) (repeat sl (setq % (ssname elementy i)) (if (not (member (cdr(assoc 0 (entget %) )) typy)) (setq elementy(ssdel % elementy)) ) (setq i (1- i) ) ) ) (defun SelSet:Get (tresc typy / selElems elementy Filter % OldNoMutt *error* ) (defun *error* ( msg / ) (if (not (null msg ) ) (progn (princ "\n SelSet:Get:*error*: " ) (princ msg ) (princ "\n") ) ) ) ;---------------------------------------------------------- ; funkcja sprawdza, czy jakieś elementy zostały zaznaczone, jeśli nie, prosi użytkownika o wskazanie obiektów ; Argumenty: tresc - komunikat wyświetlany w pasku poleceń zachęta do wskazanie obiektów ; Wynik: lista wybranych obiektów jeśli coś zostało wybranie ; nil jeśli nic nie zostało wybrane. ; ---------------------------------------------------------- ; versja 2.0 ; dodane filtrowanie typów ; ---------------------------------------------------------- ; test: ;(sslength (ssget (list (cons 0 "3DSOLID") ))) ; ---------------------------------------------------------- (if typy (progn (if (listp (car typy) ) (setq Filter typy ) (progn (setq Filter (list (cons -4 "<or" ))) (foreach % typy (setq Filter (append Filter (list (cons 0 % ) ))) ) (setq Filter (append Filter (list (cons -4 "or>" ) ))) ) ) )) (setq selElems(ssgetfirst )) (if (car selElems) (progn (setq elementy (SelSet:ToList(SelSet:FilterByType selElems typy))) ) (progn (setq tresc (strcat "\n" tresc ": ") ) (princ tresc ) (setq OldNoMutt (getvar 'NOMUTT)) (setvar 'NOMUTT 1) (setq elementy (if (null Filter) (vl-catch-all-apply 'ssget ) (vl-catch-all-apply 'ssget (list Filter )) ) ) (setvar 'NOMUTT OldNoMutt ) (if (not(vl-catch-all-error-p elementy)) (progn (setq elementy (SelSet:ToList elementy )) ) (progn (setq elementy nil) ) ) ) ) elementy )