dmatusz3

Witam,
@BKWczy pliki rysunkowe lub fragmenty rysunków zostały wygenerowane przez jakiś inny program CAD/BIM lub inne narzędzie obsługujące/generujące pliki DWG?
Ostatnio zauważyłem podobny problem z kopiowaniem u siebie. Otrzymałem dwa pliki DWG z rzutami i przekrojami wygenerowanymi do DWG z Archicada.
Z tych podkładów próbowałem przygotować sobie jeden nowy plik DWG zawierający komplet rzutów i przekrojów. Z jednego pliku udało mi się przenieść rzuty i przekrój do nowego pliku DWG, ale już z drugiego pliku, w którym był tylko jeden przekrój nic się nie kopiowało. Po wywołaniu komendy CTRL+V nie było żadnej reakcji programu... Tak jakby komenda w ogóle nie działała... Przeniesienie/skopiowanie tego samego przekroju do nowego czystego pliku było możliwe bez problemów, ale nie działało w przypadku pliku z wcześniej wstawionymi podkładami (rzutami/przekrojami)

Przyczyną nie były powielające się bloki, bo testowałem to samo po rozbiciu wszystkich możliwych bloków i ten sam objaw - brak reakcji programu na komendę CTRL+V w przypadku próby skopiowania tego konkretnego przekroju do konkretnego pliku DWG. Sprawdzałem również, czy któreś z warstw są zablokowane lub wyłączone, ale tutaj wszystko było OK. Zresztą jeśli obiekt jest na warstwie zablokowane to pojawia się komunikat, że operacja kopiowania nie jest możliwa w przypadku obiektów na warstwach zablokowanych (mniej więcej coś takiego).
 
Postaram się później przesłać do @dmatusz3i @pawmal pliki DWG do testów, z opisem wywołania/powtórzenia błędu.

Ad.3) nie wiem czy dobrze zrozumiałem, ale może wystarczy pobawić się ustawieniami przyciągania punktów charakterystycznych:

Na dole programu na pasku są ikonki. Wybierając ikonkę OBJECT SNAP (F3) można za pomocą LPM włączać lub wyłączać przyciąganie do punktów charakterystycznych. WŁĄCZAĆ I WYŁĄCZAĆ funkcję można również klawiszem funkcyjnym F3. Ewentualnie PPM na ikonkę można uruchomić okno jak na powyższym SCREENie i pobawić się ustawieniami przyciągania do punktów charakterystycznych.
 

Informujemy o wydaniu wersji Spatial Manager 8.2.1.
Wprowadzono kilka nowości i udoskonaleń:
Poprawiono wydajność obsługi bazy danych poprzez indeksowanie atrybutów Skrócono czas ładowania aplikacji do programu ZWCAD Aktualizacja katalogu układów współrzędnych (do wersji 10.077) Wprowadzono możliwość importu obrazów z Google Earth (.geprint) w rozdzielczości 8k Nowość w postaci paska postępu - dla monitowania procesów Ulepszony został menadżer licencji, łatwiejszy sposób aktualizacji licencji
  Bezpośredni link do pobrania Spatial Manager https://jakicad.pl/pobierz/1169/SpatialManagerforZWCAD-8.2.1.13287.exe

świątecznie dziś

Z przyjemnością informujemy, że dostępna jest nakładka z bazą bloków roślinności.
Występuje w dwóch wersjach: 
TastyCAD - 250 bloków dwg, TastyCAD plus - to co w TastyCAD + 250 kolorowych grafik rastrowych wysokiej jakości w formacie PNG. Więcej informacji o bibliotece bloków zamieściliśmy tutaj.
Poniżej zrzut ekranu zawierający kilka bloków.

Z mojej strony takie coś:
; -------------------------------------------------------------------------------------------- ; ; by kojacek 2022 ; -------------------------------------------------------------------------------------------- ; (defun C:MOD_WAR (/ d)   (if     (setq d (cd:SYS_ReadFile nil (findfile "warstwy.dat")))     (if       (setq d         (vl-remove-if '(lambda (%)(/= (substr % 1 1) "*")) d)       )       (progn         (cd:SYS_UndoBegin)         (foreach % d (LayChProp %))         (cd:SYS_UndoEnd)       )     )   )   (princ) ) ; -------------------------------------------------------------------------------------------- ; (defun LayChProp (Data / d s c v p g x y cl :color :tcolor :lweight)   (defun :lweight (/ %1 %2 %3)     (vl-remove-if 'minusp       (if         (setq %1           (vl-sort             (vl-remove-if-not              '(lambda (%2)(wcmatch %2 "ACLNWT*"))               (atoms-family 1)             )'<           )         )         (mapcar           '(lambda (%3) (eval (read %3))) %1         )       )     )   )   (defun :tcolor ()     (vla-getinterfaceobject       (vlax-get-acad-object)       (strcat         "AutoCAD.AcCmColor."         (substr (getvar "ACADVER") 1 2)       )     )   )   (defun :color (i m / r)     (if       (<= (strlen i) 3)       (progn         (setq r (abs (atoi i)))         (if m           (if (and (>= r 0)(<= r 256)) r)           (if (and (>= r 1)(<= r 255)) r)         )       )       (progn         (setq r (cd:STR_Parse i "," t))         (if           (and (listp r)(= 3 (length r)))           (mapcar 'atoi r)         )       )     )   )   (setq d (cd:STR_Parse Data ";" t)         l (substr (car d) 2)   )   (if     (= 5 (length d))     (if       (tblobjname "LAYER" l)       (progn         (setq s (cadr d)                                        ; lay-on-off               v (vlax-ename->vla-object (tblobjname "LAYER" l)) ; lay-vlaxobj               c (:color (caddr d) nil)                          ; lay-color               p (cadddr d)                                      ; lay-ltype               g (atoi (car (cddddr d)))                         ; lay-lwght               x (ssget "_x"                   (list                     (cons 8 l)                     (cons 410 (getvar "CTAB"))                   )                 )         )         (if           (member s '("0" "1"))           (if (zerop (read s))             (LayOnOff l)           )         )         (if c           (if             (= (type c) 'INT)             (vla-put-Color v c)             (progn               (setq cl (:tcolor))               (vla-SetRGB cl (car c)(cadr c)(caddr c))               (vla-put-TrueColor v cl)             )           )         )         (if           (tblobjname "LTYPE" p)           (vla-put-Linetype v p)         )         (if           (and g (member g (:lweight)))           (vla-put-LineWeight v g)         )         (if x           (progn             (setq x (cd:SSX_Convert x 1))             (foreach % x               (vla-put-Color % 256)               (vla-put-LineType % "ByLayer")                (vla-put-LineWeight % -1)             )                  )         )                )     )   ) ) ; -------------------------------------------------------------------------------------------- ; (defun LayOnOff (Lay / e d)   (if     (setq e (tblobjname "LAYER" Lay))     (progn       (setq d (entget e))       (setq d         (subst           (cons 62             (* -1 (cdr (assoc 62 d)))           )           (assoc 62 d)         d)       )       (entmod d)     )   ) ) ; -------------------------------------------------------------------------------------------- ; (princ) Potrzebne będą:
1) Załadowany plik CADPL-Pack-v1.lsp (tutaj info: https://kojacek.wordpress.com/2015/11/04/cadpl-pack/)
2) plik o nazwie warstwy.dat i poniższej strukturze:
;;;*name,status,layercolor,layelinetype,layerlineweight *jezdnia (powierzchnia);1;7;Continous;30 *krawężnik (linia);1;1;Continous;30 *plac (powierzchnia);1;147,39,143;%;% *chodnik (powierzchnia);1;147,39,143;%;% *219-linia granicy;1;3;218-500;%;% *211- Nr działki;1;3;%;% *238-Punkt adresowy budynku;1;7;%;% *238-Punkt adresowy;1;7;%;% *994-Nazwa ulicy;1;27;%;30 Działa to wszystko tak: 
- wywołujemy polecenie MOD_WAR (trzeba załadowac wczesniej kod i Pack-a)
- jezeli zostanie znaleziony plik tekstowy warswtwy,dat, to dla danych z kazdej linii wykonywane sa zmiany dla warstw.
Skladnia pliku jest prosta:
- brane sa pod uwage tylko linie rozpoczynajace sie od * (gwiazdki)
- po niej nastepuje nazwa warstwy,
- separatorami sa znaki "srednika" ;
- po warstwie wystepuja koleno dane: stan warstwy (jezeli jest to 0 warstwa jest ukrywana) dopuszczalne wartosci to 0 i 1
- potem jest kolor warstwy - liczba (od 1 do 255) lub RGB formatu rrr,ggg,bbb (separatorem jest przecinek)
- po kolejnym sredniku jest nazwa rodzaju linii, jezeli zostanie znaleziony w rysunku zostanie przypisany do warstwy
- na koncu jest szerokosc linii. Tylko dopuszczalne szerokosci, (zobacz: https://kojacek.wordpress.com/2015/11/26/szerokosc-linii/)
ogólnie dla wartosci dla których nic nie zmieniamy wstawiamy znak procent (%). program kontroluje poprawnosc dla czesci danych, wtedy je pomija. 
Plik dat trzeba sobie rozbudowac o kolejne wpisy,
 

Chyba jestem cieńszy w uszach niż myślałem... 😞
 
(defun C:MODYFIKACJA_WARSTW ( / POM n ENT_POM BASE ) (setvar "cmdecho" 0 ) (setq BASE (list ;W tym miejscu uzupełniasz sobie listę interesujących Cię wartstw wg podanego klucza ;NAZWA WARSTWY || 1=widoczny / -1=wygaszony || KOLOR || STYL LINII '( "209-Opis konturu klasyfikacyjnego" 1 55 "sm05_500") '( "238-Punkt adresowy budynku" 1 161 "sm05_500") '( "219-Linia granicy" 1 1 "sm05_500") ));setq (foreach EL BASE (if (/= nil (tblobjname "layer" (nth 0 EL ))) (progn (setq POM (tblobjname "layer" (nth 0 EL))) (setq ENT_POM (entget POM )) (setq ENT_POM (subst (cons 62 (* (nth 1 EL )(nth 2 EL )))(assoc 62 ENT_POM ) ENT_POM )) (setq ENT_POM (subst (cons 6 (nth 3 EL ))(assoc 6 ENT_POM ) ENT_POM )) (entmod ENT_POM ) );progn (progn (princ (strcat "\n...barak warstwy: <<<" (nth 0 EL ) ">>> na rysunku...")) );progn );if );foreach (princ "\n<<< warstwy zmodyfikowane! >>>") (princ) );defun (defun C:MODYFIKACJA_OBIEKTOW ( / KOLOR WYSOKOSC WYB POM ENT_POM n ) (setvar "cmdecho" 0 ) (setq KOLOR 12 ;<<<<<<<<<<<<<<< TUTAJ WPISUJESZ NR KOLORU WYSOKOSC 2.40 ;<<<<<<<<<<<<<<< TUTAJ WPISUJESZ WYSOKOSC TEXTU );setq (setq WYB (ssget "x" '((-4 . "<AND")(0 . "TEXT")(8 . "211-Nr dzia*ki")(-4 . "AND>")))) ;<<<<<<< TUTAJ W NAWIASIE (8 . "xxx") WSTAWIASZ NAZWE WARSTWY (if (/= nil WYB) (progn (setq n 0 ) (repeat (sslength WYB ) (setq POM (ssname WYB n )) (setq ENT_POM (entget POM)) (setq ENT_POM (subst (cons 40 WYSOKOSC )(assoc 40 ENT_POM ) ENT_POM )) (if (assoc 62 ENT_POM) (progn (setq ENT_POM (subst (cons 62 KOLOR )(assoc 62 ENT_POM ) ENT_POM )) );progn (progn (setq ENT_POM (append '(cons 62 KOLOR ) ENT_POM )) );progn );if (entmod ENT_POM ) (setq n (1+ n )) );repeat (princ "\n<<< obiekty zmodyfikowane! >>>") );progn (progn (alert "\n<<< nie znalazłem tekstow o podanych kryteriach! >>>") );progn );if (princ) );defun Popełniłem coś takiego - proszę o krytykę tutejszych Gooru. Działa, ale nie sądzę że jest to najwyżej punktowana odpowiedź
i trzeba by się było nad tym jeszcze chwilę popastwić.
a) nie potrafię sobie poradzić z polskimi znakami w nazwach warstw
b) nie wiem jak się zmienia kolory "truecolor")

 

Poniżej rozwiązanie problemu kilkoma sposobami.
 

MAM ... dwusieczna + prostopadłe

w dwg
TEST1.dwg

Jest to też jakieś rozwiązanie. Poużywam i zobaczę do czego łatwiej będzie mi się przyzwyczaić! Dzięki za kolejny pomysł
edit: Katalog recent ma dodatkowy atut - mogę tam wrzucić własny skrót do pliku, którego potrzebuję i nie musze czekać na to aż ZWCAD uzna, że on się nadaje do tej listy ostatnio otwieranych plików.

Faktycznie, na ikonce nie pamięta najbardziej ostatnich plików, pokazuje je jedynie w programie.
Sprawdzimy to jutro.
Natomiast ostatnie pliki można również przypiąć do ikonki poprzez przeciągnięcie z eksploratora pliku dwg na ikonę ZWCAD na pasku zadań.
Wtedy taki plik pojawi się jako przypięty.

aaaaa.... i przypomniałam że mam view companion (właściwie skojarzenie z pdfxchange), on też potrafi zmieniać pdfa na ratsrowy bez zmiany formatki i ma opcję batch convert (ja mam ver pro, nie wiem czy inne też to mają batch-owanie)
suma sumarum, dziękuję za podpowiedzi.

Nie znam dokładnie daty, ale sądzę, że stanie się to w ciągu kilku najbliższych dni.
Nową wersję można pobrać również tutaj https://jakicad.pl/zwcad?product=140&os=0&v=0&l=all
A to jedna z nowości w SP2 - zaznaczanie lassem.
 

Celna uwaga, jednak to nie jest to
Bo wprowadzając skalę w pasku właściwości ustawiamy jednakową skalę dla wszystkich bloków, a poprzez lispa mnożymy.
Przykład
Mamy w jednym rysunki bloki w różnych skalach.

 
Zmieniając skalę poprzez pasek właściwości otrzymamy taki wynik - wszystkie bloki będą miały taką samą skalę.

 
Zmieniając poprzez skrypt spowodujemy, że skala istniejącego bloku zostanie pomnożona o wprowadzony współczynnik skali.

Pomogło. Po aktualizacji którą dostałem , działa też przy innych ustawieniach skali i rozdzielczości. Dziękuje za pomoc.

Rozumiem, teraz ta funkcja nabiera dużego sensu 😄 Dzięki za wyjaśnienie.

Celna uwaga, jednak to nie jest to
Bo wprowadzając skalę w pasku właściwości ustawiamy jednakową skalę dla wszystkich bloków, a poprzez lispa mnożymy.
Przykład
Mamy w jednym rysunki bloki w różnych skalach.

 
Zmieniając skalę poprzez pasek właściwości otrzymamy taki wynik - wszystkie bloki będą miały taką samą skalę.

 
Zmieniając poprzez skrypt spowodujemy, że skala istniejącego bloku zostanie pomnożona o wprowadzony współczynnik skali.

Pozwolę się przyłączyć do dyskusji, jako szczęśliwy 😀 posiadacz wersji 2023...
Problem pojawia się przy liniach uruchamianych poleceniem D_Line lub Zwtraffic:Linie - nie czyta zmiennej określonej w pliku States.ini
Pozostałe znaki poziome "trzymają" się zmiennej
Najwygodniej byłoby użyć polecenia Zwtraffic_mirror - tak łatwo tworzy się np. znaki E-4 z grotem zwróconym w przeciwną stronę - sprawdza się idealnie, ale niestety nie działa przy R-4b, a w zasadzie działa tylko częściowo.
Właśnie... ten problem także zauważyłem - pomaga edycja bloku i zapisanie bez zmian, tylko trochę uciążliwe.
 
To raczej ciężko - każdy ustawia sobie własne nazwy warstw, pliki są często przesyłane pomiędzy biurami - nakładka nie bardzo wie co dany użytkownik zamierza zrobić i jak nazywa swoje warstwy.
Można jednak przypisać w pliku States.ini do każdego typu znaków zmienną "Layer = " i nadać własną nazwę - wówczas przy wstawianiu znaków warstwy zostaną utworzone z automatu i znaki wstawione na tych warstwach, przy czym warstwa zostanie utworzona dla wszystkich typów znaków (pionowe, poziome .... itd), ale to zdecydowanie ułatwia pracę - jeżeli jest taka potrzeba.
 

Dziękuję za informacje.
Tak, udało nam się znaleźć w jaki sposób zmienia się ta zmienna.
Opisaliśmy to i zgłosiliśmy już do producenta.

Tak, jeśli mamy kilka instancji to przy zamykaniu pamiętane są ustawienia ostatnio zamykanego programu.
Nakładki mogę również modyfikować ustawienia zmiennych.
Na swoje potrzeby mam przygotowany plik o nazwie start.lsp, gdzie wpisuję sobie ustawienia programu.
Na przykład linia
(command (setvar "GRIDMODE" 0)) wyłącza siatkę dla każdego otwieranego i nowego pliku dwg.

Tak, jeśli mamy kilka instancji to przy zamykaniu pamiętane są ustawienia ostatnio zamykanego programu.
Nakładki mogę również modyfikować ustawienia zmiennych.
Na swoje potrzeby mam przygotowany plik o nazwie start.lsp, gdzie wpisuję sobie ustawienia programu.
Na przykład linia
(command (setvar "GRIDMODE" 0)) wyłącza siatkę dla każdego otwieranego i nowego pliku dwg.

Dziękuję za pomoc. Zamykam temat. Mój problem wiązał się z ustawieniami wielkości strzałki w pliku źródłowym. W przypadku ustawienia braku strzałki w odnośniku a pozostawieniu w wyborze wielkości grotu strzałki np. 4 jednostek to w xrefie występowała u mnie ta różnica. Rozwiązaniem było ustawienie wielkości grotu na 0.

Jest jeszcze dostępny nowy sposób drukowania "Drukowanie inteligentne".

 
Możemy drukować zarówno z arkusza jak i modelu. W modelu możemy zdefiniować wiele arkuszy poprzez umieszczenie np. prostokąta na określonej warstwie otaczającej rysunki.

 
W tym typie drukowania możemy definiować zmienne przy wydruku do PDF (tylko ZWCADowe drukarki do PDF).

 
Na przykładzie poniżej na końcu nazwy pliku zdefiniowałem numerację <Num:1:2> co oznacza odliczanie od 1 i liczbę z 2 cyframi, np. 01, 02, 03.

 
Po wydruku otrzymałem w moim przypadku 2 pliki:

 
 
 

Uaktualniliśmy nasz program do mierzenia i wyświetlania rodzaju obiektów i ich długości.
Można go pobrać z tego adresu https://cad.szansa.net.pl/Skrypty_wsparcie_uzytkownikow/Labeling_2023.zip
Działa na wersji ZWCAD Professional 2023, 2022, 2021.

A może _ALIGNSPACE?