Ranking

;;; ============================================================ ;;; AUTOPUBLISH.LSP - ZWCAD 2026 STABLE VERSION ;;; ============================================================ (vl-load-com) (defun AP:ErrorHandler (msg) (if (and (boundp '*AP-oldFileDia*) *AP-oldFileDia*) (setvar "FILEDIA" *AP-oldFileDia*)) (if (and (boundp '*AP-oldBackgroundPlot*) *AP-oldBackgroundPlot*) (setvar "BACKGROUNDPLOT" *AP-oldBackgroundPlot*)) (if (and (boundp '*AP-oldCmdEcho*) *AP-oldCmdEcho*) (setvar "CMDECHO" *AP-oldCmdEcho*)) (if (and (boundp '*AP-dsdFile*) *AP-dsdFile* (findfile *AP-dsdFile*)) (vl-file-delete *AP-dsdFile*)) (if (and msg (/= msg "Function cancelled") (/= msg "quit / exit abort")) (princ (strcat "\nBLAD: " msg)) ) (princ) ) (defun AP:GetLayouts (/ doc layouts lay tmp) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq layouts (vla-get-Layouts doc)) (setq tmp '()) (vlax-for lay layouts (if (/= (strcase (vla-get-Name lay)) "MODEL") (setq tmp (cons (list (vla-get-TabOrder lay) (vla-get-Name lay)) tmp)) ) ) (setq tmp (vl-sort tmp '(lambda (a b) (< (car a) (car b))))) (mapcar 'cadr tmp) ) (defun AP:MakeDSD (dsd dwg pdf layouts / f lay i sheetname outdir) (setq f (open dsd "w")) (write-line "[DWF6Version]" f) (write-line "Ver=1" f) (write-line "[DWF6MinorVersion]" f) (write-line "MinorVer=1" f) (setq i 1) (foreach lay layouts (setq sheetname (strcat (vl-filename-base dwg) "-" lay)) (write-line (strcat "[DWF6Sheet:" sheetname "]") f) (write-line (strcat "DWG=" dwg) f) (write-line (strcat "Layout=" lay) f) (write-line "Setup=" f) (write-line (strcat "OriginalSheetPath=" dwg) f) (write-line "Has Plot Port=0" f) (write-line "Has3DDWF=0" f) (setq i (1+ i)) ) (write-line "[Target]" f) (write-line "Type=6" f) (write-line (strcat "DWF=" pdf) f) (setq outdir (vl-filename-directory pdf)) (write-line (strcat "OUT=" outdir "/") f) (write-line "PWD=" f) (write-line "[AutoCAD Block Data]" f) (write-line "IncludeBlockInfo=0" f) (write-line "BlockTmplFilePath=" f) (write-line "[SheetSet Properties]" f) (write-line "IsSheetSet=FALSE" f) (write-line "IsHomogeneous=FALSE" f) (write-line "SheetSet Name=" f) (write-line "NoOfCopies=1" f) (write-line "PlotStampOn=FALSE" f) (write-line "ViewFile=FALSE" f) (write-line "JobID=0" f) (write-line "SelectionSetName=" f) (write-line "AcadProfile=" f) (write-line "CategoryName=" f) (write-line (strcat "LogFilePath=" outdir "/AUTOPUBLISH.log") f) (write-line "IncludeLayer=TRUE" f) (write-line "LineMerge=FALSE" f) (write-line "CurrentPrecision=" f) (write-line "PromptForDwfName=FALSE" f) (write-line "PwdProtectPublishedDWF=FALSE" f) (write-line "PromptForPwd=FALSE" f) (write-line "RepublishingMarkups=FALSE" f) (write-line "PublishSheetSetMetadata=FALSE" f) (write-line "PublishSheetMetadata=FALSE" f) (write-line "3DDWFOptions=0 0" f) (close f) T ) (defun AP:PDFValid (file / f line size) ;; Sprawdza, czy plik istnieje, ma rozmiar > 0 i naglowek PDF. (setq size (vl-file-size file)) (if (and size (> size 0) (setq f (open file "r"))) (progn (setq line (read-line f)) (close f) (and line (wcmatch line "%PDF-*")) ) nil ) ) (defun AP:RunPublish (dwgFile pdfFile layouts /) (if (findfile *AP-dsdFile*) (vl-file-delete *AP-dsdFile*) ) (if (not (AP:MakeDSD *AP-dsdFile* dwgFile pdfFile layouts)) (princ "\nBLAD: Nie udalo sie przygotowac pliku DSD.") (progn (setvar "FILEDIA" 0) (setvar "BACKGROUNDPLOT" 0) (setvar "CMDECHO" 0) (princ "\nPublikowanie PDF... Prosze czekac...") (command "_.-PUBLISH" *AP-dsdFile* "") ;; Przywracanie ustawien po publikacji (setvar "FILEDIA" *AP-oldFileDia*) (setvar "BACKGROUNDPLOT" *AP-oldBackgroundPlot*) (setvar "CMDECHO" *AP-oldCmdEcho*) (vl-cmdf "_.DELAY" 2000) ;; PDF jest nowy (stary usunieto) i musi miec poprawny naglowek. (if (AP:PDFValid pdfFile) (progn (princ "\n====================================") (princ (strcat "\nSciezka: " pdfFile)) (princ "\n=== PDF UTWORZONY POMYSLNIE! ===") ) (progn (princ "\n====================================") (princ "\n=== PDF NIE ZOSTAL UTWORZONY LUB JEST USZKODZONY. ===") ) ) ) ) ) (defun c:AUTOPUBLISH (/ old-err dwgPrefix dwgName dwgFile pdfFile layouts) (setq old-err *error* *error* AP:ErrorHandler) (setq *AP-oldFileDia* (getvar "FILEDIA") *AP-oldBackgroundPlot* (getvar "BACKGROUNDPLOT") *AP-oldCmdEcho* (getvar "CMDECHO")) (setq dwgPrefix (getvar "DWGPREFIX") dwgName (getvar "DWGNAME")) (if (or (= dwgPrefix "") (= dwgName "")) (princ "\nRysunek nie jest zapisany. Najpierw zapisz DWG.") (progn (setq dwgFile (strcat dwgPrefix dwgName)) (setq pdfFile (strcat dwgPrefix (vl-filename-base dwgName) ".pdf")) (setq *AP-dsdFile* (strcat dwgPrefix "~AUTOPUBLISH.dsd")) (setq layouts (AP:GetLayouts)) (if (= layouts nil) (princ "\nBrak Layoutow.") (progn (princ "\n====================================") (princ "\n=== AUTOPUBLISH ZWCAD 2026 ===") (princ "\n====================================") ;; Najpierw usun stary PDF. Jesli nadal istnieje, BEZWZGLEDNIE przerwij. (if (findfile pdfFile) (vl-file-delete pdfFile) ) (if (findfile pdfFile) (progn (princ "\n====================================") (princ "\nBLAD: Nie mozna usunac istniejącego PDF.") (princ "\nPlik jest prawdopodobnie otwarty lub zablokowany.") (princ "\nZamknij PDF w Adobe Reader i uruchom AUTOPUBLISH ponownie.") (princ "\n=== ERROR === PDF NIE ZOSTAL UTWORZONY LUB JEST USZKODZONY. ===") ) ;; Publikacja i komunikat wyniku tylko w AP:RunPublish. (AP:RunPublish dwgFile pdfFile layouts) ) (if (findfile *AP-dsdFile*) (vl-file-delete *AP-dsdFile*) ) ) ) ) ) (setq *error* old-err) (princ) ) ;; Pusta linia ponizej chroni plik przed bledem EOF na koncu strumienia danych LISP AUTOPUBLISH.lsp

Jeżeli serwer działa tylko w sieci lokalnej, to nie da się pobierać/oddawać licencji poza tą siecią. Można serwer z licencjami wystawić na publicznym adresie i wypożyczać/pobierać licencje niemal w każdym miejscu ale bez filtracji połączeń przychodzących jest to dość niebezpieczne. Ale dostęp do takiego serwera w sieci lokalnej można udostępnić poprzez VPN i wtedy jest zarówno bezpiecznie jak i bardzo mobilnie. Windows Server pozwala na jednoczesną pracę kilku RDP, nawet na Windows 10/11 jest to możliwe, więc pewnie stąd wzięło się takie zabezpieczenie (https://www.google.com/search?q=rdp+dla+kilku+użytkowników). RDP nie zawsze oznacza przejęcia monitora.

Licencja sieciowa pływająca jest rozwiązaniem na działanie na wielu stanowiskach z ograniczoną liczbą licencji. Wolne licencje są automatycznie przydzielane ze specjalnego serwera komputerom w sieci lokalnej. Po zamknięciu ZWCAD licencja jest zwalniana na serwer automatycznie. Jeżeli chce się "wypożyczyć" licencję i wyjść z aktywną licencją ZWCAD z biura, to dopiero wtedy trzeba przez menu licencji wypożyczyć ją albo na określony czas albo do czasu jej ręcznego zwolnienia po powrocie do firmy. Pula licencji pływających na serwerze dostępnych w biurze na ten czas zostaje pomniejszona o tą wypożyczoną licencję. https://www.zwcad.pl/programy-cad/zwcad-program-cad/instalacja-i-aktywacja.html#licencjsieciowazwcad

Użyj do tego jakiegoś viewera, np. bezpłatnego TrueDWG Viewer z AutoDesk. Polityka ZWCAD w tym temacie jest dla mnie jak najbardziej zrozumiała. Znam firmę, która chciała na licencji jednostanowiskowej ogarnąć trzech projektantów przez RDP ale przez to zabezpieczenie dokupili dodatkowe licencje.

Dzień dobry, miło nam poinformować, że udostępniliśmy nową aktualizację ZWBoostPack ZWB2026 SP3. Wydanie zawiera szereg usprawnień, poprawek oraz zmian, których celem jest dalsze zwiększanie komfortu i efektywności pracy z systemem. Zachęcamy do zapoznania się z zakresem zmian oraz do aktualizacji oprogramowania. Będziemy wdzięczni za Wasze uwagi i opinie dotyczące nowej wersji. Wasze doświadczenia i sugestie są dla nas bardzo cenne i pomagają nam rozwijać produkt zgodnie z potrzebami użytkowników. Dziękujemy za aktywność na forum i dotychczasowe zaangażowanie! Wersja do pobrania tutaj: ZWBoostPack 2026 SP3 Zmiany i nowości: Skalowanie bloków z zachowaniem punktu bazowego Rozmieszczenie punktów na polilinii Usuń przecięcia polilinii Linia z sumy długości Dodanie możliwości wybrania obiektów wewnątrz wielu polilinii jednocześnie Kilka skrótów video przedstawiających nowe funkcjonalności: LINIA Z SUMY DŁUGOŚCI SKALOWANIE BLOKÓW Z ZACHOWANIEM PUNKTU BAZOWEGO ROZMIESZCZENIE PUNKTÓW NA POLILINII

Z przyjemnością ogłaszamy premierę nowej nakładki ZWExtender. Przyspiesz codzienną pracę dzięki panelom do zarządzania blokami i grupami, narzędziom do tworzenia planów, i układania obiektów, bibliotece bloków BHP i zaawansowanemu systemowi tworzenia i opisywania powierzchni. Grupy funkcji ZWExtender: Więcej na temat nakładki i jej wersję testową można znaleźć na stronie: ZWExtender dla ZWCAD PRO.

Hej, Uruchom REGEDIT jako admin i znajdź klucz Komputer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage Zmień wartość klucza ACP na 1250 i zrestartuj komputer.

Albo tak:

W ZWCAD mamy polecenie do zaznaczania łańcuchowego - CHAINSELECT CHAINSELECT służy do szybkiego zaznaczania obiektów, które są ze sobą geometrycznie połączone. Zamiast ręcznie wybierać każdą linię czy łuk osobno, wystarczy kliknąć jeden element, a program automatycznie zaznaczy wszystkie sąsiednie segmenty tworzące ciągłą ścieżkę (jeśli odległości końców mieszczą się w tolerancji). Działa ono dla linii, polilinii, splajnów i łuków, pozwalając na masowe zaznaczanie obiektów. W zależności od ustawień trybu pracy można wybrać wszystkie połączone segmenty od razu lub ograniczyć zaznaczenie do wybranego fragmentu łańcucha między dwoma wskazaymi obiektami końcowymi. Polecenie jest dostępne również na wstążce Przykład działania funkcji do zaznaczania: Jeśli istnieją przerwy pomiędzy obiektami to możemy zwiększyć tolerancję.