zwonko

Być może były w ZWCAD 2023. Może nie wszędzie bo jako tako warstwa była usuwana. Ale obiekty wewnątrz bloku na tej warstwie już nie. MOże samo -LAYDEL które jest chyba poleceniem dodatkowym, było źle napisane. Ewidentnie teraz kod z pierwszego postu wyświetla 06 pomoc 01 (małe litery) i daje informacje ze są obiekty w blokach które usunie. Wcześniej wyświetlał 6 POMOC 01 i brak informacji o obiektach w blokach. tak samo jak gdy wywołam ręcznie -LAYDEL i wpisze 6 POMOC 01, to program nie wyświetla komunikatu o blokach i efekt jest ten sam co po pierwszym kodzie bez poprawki. Czyli warstwa ginie ale obiekty z bloku nie.

Faktycznie po zmianie w kodzie z: (if (wcmatch (setq LayName (strcase (cdr (assoc 2 TblName)))) (strcase path)) na bez srtcase (if (wcmatch (setq LayName (cdr (assoc 2 TblName))) (strcase path)) kod działa prawidłowo.

@RobS faktycznie uproszczony kod działa prawidłowo w 2023. Co ciekawe gdy używamy wersji uproszczonej otrzymujemy komunikat: _.-laydel Selected layer(s): 6 pomoc 01 ******** WARNING ******** There are 1 block definition(s) referencing the layer(s) that you are deleting. The block(s) will be redefined and the entities that reference the layer(s) will be removed from the block definition(s). You are about to permanently delete the following layer(s) from this drawing: gdy używamy pierwszego kodu, który sam szuka warstw otrzymuje kominikat: Deleting layer: 6 POMOC 01_.-laydel Selected layer(s): 6 POMOC 01 ******** WARNING ******** You are about to permanently delete the following layer(s) from this drawing: 6 POMOC 01 Deleting the layer "6 POMOC 01". Czyli w wersji uproszocznej dostaje komunikat o blokach. W pierwszym kodzie nie ma tego komunikatu. Nazwa warstwy jest tutaj z dużej litery... moze tu jest problem?

Mam taki kod w języku autolisp: (defun c:dellayers76_only6 ( / hms:LayerList* cla ech lay* laylst LayList cnt) (defun hms:LayerList* (path / LayName TblName TblNameList) (while (setq TblName (tblnext "Layer" (null TblName))) (if (wcmatch (setq LayName (strcase (cdr (assoc 2 TblName)))) (strcase path)) (setq TblNameList (cons LayName TblNameList)) ) ) (acad_strlsort TblNameList) );; hmsLayerList* (if (and (setq lay* "6 *,6_*") (setq LayList (hms:LayerList* lay*))) (progn ;; Filter LayList, to exclude "7 view" i "7_view" (setq LayList (vl-remove-if '(lambda (layer) (member (strcase layer) '("7 VIEW" "7_VIEW"))) LayList)) ;; Add operation on matched layers ; (command "_.-layer" "_U" lay* "_T" lay* "") (command "_.-layer" "_U" lay* "") (setq ech (getvar 'CMDECHO)) ;(setvar 'CMDECHO 0) ; (command "_.undo" "G") (command "_.undo" "M") (setq cla (strcase (getvar 'CLAYER))) (if (member cla LayList) (command "_.-layer" "_U" "0" "_T" "0" "_S" "0" "") ) (foreach l LayList (command "_.-laydel" "_N" l "" "_Y" "") ) (command "_.undo" "E") (setvar 'CMDECHO ech) ) (prompt "\n Layer Name not valid, or no matching layers... ") ) (princ) ) kod służy do usuwania warstw pomocniczych (są na niej elementy które niekoniecznie ma dostać końcowy odbiorca pliku). Problem jest taki, że: -gdy używam polecenia LAYDEL ręcznie, czyli wpisuje komendę laydel, 6 pomoc 01, wszystko jest okej -gdy polecenie jest wywoływane pośrednio przez lisp, elementy które były wewnątrz bloku, na warstwie 6 pomoc 01 nie są usuwane. Załączam przykładowy plik *.dwg. Po użyciu LISP należy użyć polecenia _regen i wtedy w chmurce rewizji pokażą się nieusunięte elementy, które były wewnątrz bloku, i program z jakiegoś powodu przeniósł na warstwę 0. dodatkowo nie bardzo mogę znaleźć obejście gdyż w AUTOLISP ZWCADa brakuje funkcji vla-delete. Miałem pomysł żeby dopisać troche kodu, który przeszukuje wszystkie bloki w rysunku pod kątem elementów na danych warstwach i usuwa je za pomocą entdel, ale niestety mi to nie wyszło. proszę o pomoc. Proponuje zgłosić do ZWSOFT brak funcji vla-delete w autolisp. W razie czego: VERNUM = "23.20_2023.12.28(#8735-3893c168c16)_x64" (read only) drawing_test2.dwg

Generalnie też spotkałem się z tym problemem. Autodesk w nowszych ACAD to też zaktualizował z tego co pamiętam. Jeśli mamy "łamaną" wszystko bedzie ok. Ale jeśli to pojedyncza linia to faktycznie nie ma on pola (no albo jest zerowe). Pojawia się problem. Posypało mi się kilka LISPów z tego tytułu, ale dało się je zaktualizować.

czyli pewnie rysujesz w cm. Generalnie ten przelicznik wynika z przejścia US units na SI units czyli cale na metry/milimetry itp.

Zrobiłem audit na wszelki wypadek. ZWCAD2023 otwiera plik. ZWCAD2024 też. Bricscad22 też. Autocad 2022 też.Autocada LT niestety nie mam. block_testowy4_xxx.dwg

Przykład w pliku. block_testowy4_xxx.dwg

czy można się spodziewać, że taką poprawkę wprowadzą jeszcze do wersji 2023? czy już raczej tylko aktualizacja do 2024 pomoże? jaki jest mniejwięcej czas oczekiwania na taką poprawkę?

Po rozbiciu bolku dynamicznego, stworzonego w AutoCAD - zwcad gubi część powiązań w polach/fieldach. Działam na ZWCAD PRO 2023 VERNUM = "23.20_2023.05.30(#5431-bf7553c10ce)_x64_S" Sprawdziłem w innych programach. Problemu nie ma w AutoCAD. Problemu nie ma w Bricscad22. W Zwcad2024 problem wystepuje.

Chciałem zrobić w wymiarze liniowy - field/pole które bedzie przeliczało ilość rozstawów na zasadzie nxm=L Niestety gdy jest to dimension override jest problem że ZWCAD po regeneracji/zaspisie zmienia jest na ####. Po przeklikaniu wyświetla dobra, wyliczoną wartość. problemu nie ma w przypadku obiektów MTEXT - problem jest przy fieldzie w dimension override. Przykład pliku w załaczniku. Identyczny problem był już przezemnie poruszany w temacie -> Działam na zwcad 2023 pro - VERNUM = "23.20_2023.05.30(#5431-bf7553c10ce)_x64_S" Sprawdzione w AutoCAD 2020 nie ma problemu. W bricscad 22 problem wystepuje. W zwcad 2024 problem wystepuje. dimension field formul.dwg

Jak jest teraz z licencją tego programu? Wciąż jest darmowy do uzytku komercyjnego?

Obiekty powstały w zwcad. Po prześledzeniu żeby wywołać problem trzeba zrobić tak: -tworzymy rzeczywisty dimordinate (nazwijmy to dim1) -tworzywy drugi dimordinate/albo jakikolwiek dimension (nazwijmy to dim2) -w dim2 w text_override ustawiamy filed z odwołaniem do dim1 (field/object/dim1/measurement) -zaznaczamy dim1 i przestawiamy mu punkt bazowy z 0,0 na inny (coś jak zmiana ucs dla tego dim1) i wtedy po przeplikaniu dim2 gubi odwołanie. Problem troche złożony; fakt nie sprawdzałem w acad, ale w bricscad tak sie nie dzieje.

Przypadkiem znalazłem pewnego chyba BUGa w ZWCAD 2023 professional (VERNUM = "23.20_2022.12.03(#4996-a5f007e30b8)_x64" (read only)). Problem zaznaczyłem mleader’em w załączonym pliku DWG. Sprowadza się on do tego, że w momencie gdy jako text_override w obiekcie jakim jest ordinate_dimennsion użyjemy filed'a, po "przeklikaniu" takiego ordinate_dimension gubi odwołanie do field'u i do tego zmienia wartość. Taki sam oridnate_dimension po skopiowaniu gdzieś na bok, i rozbiciu, czyli zrobieniu mtext, działa prawidłowo (nic nie gubi i nie zmienia po przeklikaniu). Czy można to zgłosić do ZWSOFT? EDIT: problem zauważylem w pliku od kolegi i próbowałem go teraz odtworzyć. Żeby wywołać problem trzeba jeszcze przesunąć punkt bazowy ordinate_dimennsion, którego użylismy jako odwołania. Wtedy ten problem się pojawia. dim_ordinate_problem.dwg

moze taki lisp (defun c:InsertAll ( / cmd dir extn pt vec ) (setq extn "dwg") ;; Extension of files to Insert e.g "dwg" (if (and (setq dir (LM:DirectoryDialog (strcat "Select Directory of " (strcase extn) " Files to Insert") nil 512)) (setq vec (getpoint "\nPick Spacing Vector: " '(0 0 0))) ) (progn (setq cmd (getvar 'CMDECHO)) (setvar 'CMDECHO 0) (setq pt '(0 0 0)) (foreach file (vl-directory-files dir (strcat "*." extn) 1) (vl-cmdf "_.-insert" (strcat dir "\\" file) "_S" 1.0 "_R" 0.0 "_non" pt) (setq pt (mapcar '+ pt vec)) ) (setvar 'CMDECHO cmd) ) (princ "\n*Cancel*") ) (princ) ) ;;-------------------=={ Directory Dialog }==-----------------;; ;; ;; ;; Displays a dialog prompting the user to select a folder ;; ;;------------------------------------------------------------;; ;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;; ;;------------------------------------------------------------;; ;; Arguments: ;; ;; msg - message to display at top of dialog ;; ;; dir - root directory (or nil) ;; ;; flag - bit coded flag specifying dialog display settings ;; ;;------------------------------------------------------------;; ;; Returns: Selected folder filepath, else nil ;; ;;------------------------------------------------------------;; (defun LM:DirectoryDialog ( msg dir flag / Shell Fold Self Path ) (vl-catch-all-apply (function (lambda ( / ac HWND ) (if (setq Shell (vla-getInterfaceObject (setq ac (vlax-get-acad-object)) "Shell.Application") HWND (vl-catch-all-apply 'vla-get-HWND (list ac)) Fold (vlax-invoke-method Shell 'BrowseForFolder (if (vl-catch-all-error-p HWND) 0 HWND) msg flag dir) ) (setq Self (vlax-get-property Fold 'Self) Path (vlax-get-property Self 'Path) Path (vl-string-right-trim "\\" (vl-string-translate "/" "\\" Path)) ) ) ) ) ) (if Self (vlax-release-object Self)) (if Fold (vlax-release-object Fold)) (if Shell (vlax-release-object Shell)) Path ) (vl-load-com) (princ)