Marek-M

Jeśli w trakcie rysowania zmienia się sposób wyświetlania linii (np. z linii przerywanej na ciągłą) to tutaj powinno wystarczyć polecenie REGEN (ewentualnie REGENALL).

Jeśli polecenie REGEN nie odświeżyło widoczności to możliwe, że zmieniony został współczynnik skali rodzaju linii - polecenie LTSCALE (RLSKALA). Po wywołaniu polecenia podaje się wartość większą od 0 (zera) (np. 0.25/0.5/1/5/10/20/50/100 itd). Standardowo ustawiona jest wartość 1 (jeden).

Powyższe komendy szczegółowo opisane są w plikach POMOCY dla  każdego programu CAD.

Faktycznie pomogło, czyli to nie był błąd  Dziękuję w imieniu kolegi

Dzień dobry,
proszę spróbować odznaczyć tego ptaszka

Importując coś z innego pliku zawsze jest ryzyko, że w tamtym pliku coś było zmienione. Jeżeli kolory znaków w nowym (czystym) pliku wstawiają się prawidłowo, to trzeba jednak przyjrzeć się importowanemu szablonowi 

Kolega @kojacek mnie zainspirował i mam 5 kliknięć bez pisania niczego na klawiaturze  :
 

Kolega @kojacek mnie zainspirował i mam 5 kliknięć bez pisania niczego na klawiaturze  :
 

Kolega @kojacek mnie zainspirował i mam 5 kliknięć bez pisania niczego na klawiaturze  :
 

Kolega @kojacek mnie zainspirował i mam 5 kliknięć bez pisania niczego na klawiaturze  :
 

Dzięki za metodę z WBLOCK - faktycznie zmniejszył mi się ten plik. Jednak nawet tego rysunku zapisanego w ZWCAD 2023 przez WBLOCK i po wyczyszczeniu XREFów (nie były one ładowane, bo ich nie posiadam - jakiś artefakt) nadal ZWCAD 2024 się wysypuje. Mam zainstalowanego CADprofi 2023 ale nie jest skojarzony z ZWCAD 2024, bo nawet nie ma jeszcze takiej możliwości. Później jeszcze spróbuje wywalić lispy ze StartupSuite ale na razie muszę lecieć i nie mam czasu.
Dzięki za pomoc i za potwierdzenie, że to problem raczej z moim sprzętem/softem.
Jak coś ustalę, to dam znać

New block.dwg
vernum = "24.00_2023.05.11(#6651-58ff551dfde)_x64"
Plik otwiera się bez problemu.
Wielkość pliku można zmniejszyć poleceniem "_wblock" - wynik w załączeniu.

Jedna z nowości w ZWCAD 2024 - reset ustawień warstw XREFa

Rozumiem problem  Dziękuję za wyjaśnienie  

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,
 

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.

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

A może _ALIGNSPACE?
 
 

Romb to czworokąt o bokach równej długości. Mimo, że to prosta figura, czasami otrzymujemy zapytania jak skonstruować taki czworokąt.
Jedną z wielu metod jest narysowanie kwadratu, a następnie okręgu o promieniu takim jak jak bok kwadratu.
Teraz rozciąganiem możemy zmieniać kąt pomiędzy bokami rombu, tak jak na filmie poniżej.

Witam
Czy istnieje możliwość zwiększenia ilości znaków wyświetlanych w menu warstw? Zwiększyłem szerokość paska myśląc, że tekst zostanie automatycznie dopasowany, ale tak się nie stało. Chodzi mi o to, by pozbyć się tych trzech kropek i by wstawił kolejne litery.
pozdrawiam
Mateusz

Wydaje mi się, że takie polecenie w pliku .scr powinno zadziałać w obu wersjach
(command "_-ATTEXT" "_C" "C:\\test\\duzy_plik_testowy_template.txt" "C:\\test\\duzy_plik_testowy_extracted_blocks.txt") duzy_plik_testowy.scr

Wysłałem dane do testowania w wiadomości prywatnej.

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.

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.

LISP to fajna zabawa, choć nie na darmo ukuło się rozwinięcie tego skrótu : 
LISP = Lost in Stupid Parenthesis

Załączam VT w plikach VLX i VLS. Aplikacji w formacie LSP nie posiadam i coś mi się kojarzy, że LSP też nie mogłem ściągnąć i znalazłem tylko taką skompilowaną wersję.
VT.VLX
VT.vls

Bardziej miałem na myśli, że @Parikon w swojej aplikacji wykorzystuje właśnie bazę danych SQLite i sposób jej wykorzystania może być podobny do Twojego pomysłu (nie zagłębiałem się w szczegóły techniczne jego rozwiązania i mogę z tego powodu się mylić). Myślę, że dotychczasowa praca Parikona może być dla Ciebie pomocna. Życzę powodzenia w Tworzeniu własnej aplikacji  Aplikacji nigdy za wiele