dmatusz3

W kolejnej wersji programu do wspomagania projektowania organizacji ruchu ZWTraffic dodamy między innymi możliwość wyrównania odnośników znaków drogowych. Funkcja działa podobnie jak malarz formatów.
 

Proszę zmienną GRIPS ustawić na 2.

Kolejna wersja programu: rysuje osie i grupuje elementy otworu.
Przed

Po

(defun c:krawedzieotworux () (princ "Zaznacz okregi do rzutownia: \n") (setq okrag (ssget '((0 . "CIRCLE")) )) ;prosimy o wskazanie obiektów oknem. Pozwalamy na wybor tylko okregow (setq ile (sslength okrag)) ;liczymy ile obiektow zaznaczylismy (setq i 0) ;ustawiamy zmienna i zeby sobie odliczac (setq pt1 (getpoint "Wskaz poczatek linii: ")) (setq pt2 (getpoint "Wskaz koniec linii: ")) (setq przedluzenieosi (* (- (car pt2) (car pt1) ) 0.1 )) (setq aktualnawarstwa (getvar "CLAYER")) (command "_-LAYER" "_M" "osie" "_C" "red" "" "_L" "CENTER" "" "") ; Tworze warstwe dla osi (repeat ile ; powtarzamy tyle razy ile jest obiektow (setq nazwyobiektow (ssname okrag i)) ;ustalamy nazwe kolejnych obiektow (setq listaobiektu (entget nazwyobiektow)) ;pobieramy wlasciwosci obiektu o nazwie jak w lini wyzej (setq promien (assoc 40 listaobiektu)) ;odczytujemy promień aktualnego okregu np. (40 . 27.7815) (setq srodek (assoc 10 listaobiektu)) ;odczytujemy srodek okregu np. (10 310.596 514.272 0.0) (setq r (cdr promien)) ;przypisuje do r promien np. 27.7815 (setq y (cadr(cdr srodek))) ;przypisuje do y wspolrzedna Y np. 514.272 (setq x (cadr srodek)) ;przypisuje do x wspolrzedna Y np. 310.596 (setq grupa (ssadd)) (command "_-LAYER" "_S" aktualnawarstwa "") (command "_line" (list (car pt1) (+ y r)) (list (car pt2) (+ y r)) "") ;rysuje linie car pobiera wspolrzedna X z kliknietych punktow (ssadd (entlast) grupa) (command "_line" (list (car pt1) (- y r)) (list (car pt2) (- y r)) "") (ssadd (entlast) grupa) (command "_-LAYER" "_S" "osie" "") (command "_line" (list (- (car pt1) przedluzenieosi) y ) (list (+ (car pt2) przedluzenieosi) y) "") ;rysujemy osie symetrii otworów z boku (ssadd (entlast) grupa) ;osie na otworach w widoku z góry, na początku os X potem Y (command "_line" (list (- x r przedluzenieosi) y) (list (+ x r przedluzenieosi) y) "" ) (ssadd (entlast) grupa) (command "_line" (list x (- y r przedluzenieosi) ) (list x (+ y r przedluzenieosi) ) "" ) (ssadd (entlast) grupa) (command "_group" "_c" "*" "opis" grupa "") (setq i (1+ i)) ;zwiekszamy zmienna i aby odczytac kolejny obiekt ) (command "_-LAYER" "_S" aktualnawarstwa "") )  
krawedzieotworux1.lsp

Często powtarzają się pytania, jak uzyskać znaki specjalne, np. operatory matematyczne w tekście w ZWCAD.
Możemy je wybrać z tabeli znaków dowolnej czcionki - podzakres Unicode, w taki sposób:

Może coś takiego?
(defun C:MPI (/) (initget "2 3 4") (setq k (cond ((getkword "\nPrzez ile pomnozyc liczbe PI? [2/3/4] <3>: ")) ("3"))) (prompt "Liczba PI pomnozona przez ") (prompt k) (prompt "= ") (prompt (* pi (atoi k))) )  

Dodaliśmy nowy skrypt do zwpack - do szyku manualnego.
Link na pierwszej stronie wątku jest podmieniony i zawiera już nową funkcjonalność.
 

Nagrałem krótki film pokazujący jak działa skrypt.
 

W załączniku aktualizacja pozwalająca wskazywać wiele elementów
Szyk.lsp

Może kopiować ze skokiem biegunowym i śledzeniem?
 

Taka ciekawostka z niedawnej konsultacji, z której pozostał gif.
Jeżeli chcemy rozciągnąć (czy zmniejszyć) obiekt, znamy bieżący i docelowy rozmiar, w kalkulatorze można policzyć wartość rozciągnięcia:
 

Dodaliśmy do zwpack 4 nowe funkcje:
sumowanie długości wzdłuż klikanych punktów - mdist,  zmiana stylu istniejącej multilinii,   źródło https://wstaw.net/H7rPMsXd wymiarowanie polilinii, źródło https://wstaw.net/jbTYLih szyfrowanie lispów - źródło  Więcej o nakładce.
 


 
 

Po wczytaniu pliku ZRX (tylko w wersji Professional) można w pasku właściwości odczytać niektóre właściwości brył np. objętość.
Pliki do pobrania (aby je wczytać wystarczy tylko przeciągnąć plik nad obszar rysunku).
ZwGeomProps_x64.zrxZwGeomProps_Win32.zrx
 
Na rysunku poniżej jest kilka zaznaczonych brył oraz włączony panel właściwości z dostępnymi informacjami bez załadowanych plików zrx.

 
Na rysunku poniżej w żółtej ramce zaznaczyliśmy dodatkowe informacje, jakie będą wyświetlane po wczytaniu powyższego pliku zrx.

Po wczytaniu pliku ZRX (tylko w wersji Professional) można w pasku właściwości odczytać niektóre właściwości brył np. objętość.
Pliki do pobrania (aby je wczytać wystarczy tylko przeciągnąć plik nad obszar rysunku).
ZwGeomProps_x64.zrxZwGeomProps_Win32.zrx
 
Na rysunku poniżej jest kilka zaznaczonych brył oraz włączony panel właściwości z dostępnymi informacjami bez załadowanych plików zrx.

 
Na rysunku poniżej w żółtej ramce zaznaczyliśmy dodatkowe informacje, jakie będą wyświetlane po wczytaniu powyższego pliku zrx.

ZWCAD 2021 jest pisany w programie do pisania programów - Visual Studio (VS).
Do wersji ZWCAD 2020 i wcześniejszych była używana wersja Visual Studio 2010, natomiast ZWCAD 2021 jest już napisany w Visual Studio 2017. Zmiana taka ma szereg zalet, np. lepszą współpracę z aktualnymi wersjami Windows, możliwość wykorzystania nowych bibliotek VS, lepsze wykorzystanie mocy obliczeniowej komputerów.
Całość kodu ZWCAD można przenieść bez większych problemów, natomiast zasadnicza zmiana nastąpiła tylko w obsłudze tak zwanych "Custom entities".
Upraszczając bardzo temat - takimi obiektami możemy sterować poprzez pasek właściwości, np. siatką słupów. Niestety ten kod trzeba praktycznie napisać od nowa.
Szacuję, że 80% funkcji Architecture stanowią właśnie te "Custom entities", co praktycznie oznacza napisanie programu od początku. Obecnie ZWSOFT nie zdecydował się na ten krok.
Sami także poświęcamy sporo czasu nad dostosowaniem naszych nakładek, które wykorzystują ten mechanizm np. Siatki konstrukcyjne w w programie do konstrukcji odzieży ZWTextile. Na filmie poniżej zamieszczam przykład działania takiej siatki konstrukcyjnej. 
 

A ja od razu z rybą 😉 Trochę pozlepiałem z tego co miałem u siebie i wyszło mi coś takiego. Lisp wczytuje plik csv z trzema atrybutami. Przy testach były kłopoty z kodowaniem polskich liter w pliku csv ale tym się nie zajmowałem.
(princ "\nImport współrzędnych wstawienia bloku z pliku tekstowego v.0.1(beta)") (princ "\nCopyright (c)2020 by Perlon") (princ "\nŁadowanie funkcji c:txt2blocks.........") (defun c:txt2blocks ( / p_dat o_dat linia *error* counter) (defun *error* (msg) (if (not (member msg '("Function cancelled" "quit / exit abort"))) (princ (strcat "\nError: " msg)) ) (princ) ) (setq p_dat (getfiled "Wpisz nazwę pliku" "" "csv" 0)) (if p_dat (progn (setq o_dat (open p_dat "r")) (setq counter 0) (setvar 'OSMODE 0) (while (setq linia (read-line o_dat)) (progn (setq counter (1+ counter)) (if (> (strlen linia) 0) (progn (setq lista (cd:CON_String2List linia '(","))) (command "_.INSERT" "HP_B2" "_s" 1 "_r" 0 (list (car lista) (cadr lista)) (caddr lista) (cadddr lista) (cadr (cdddr lista))) ) ) ) ) ) ) (princ (strcat "\nPrzetworzono " (itoa counter) " punktow")) (princ) ) (princ " Załadowane.") (princ) ; =========================================================================================== ; ; Konwersja takstu z separatorami na liste / ; ; ------------------------------------------------------------------------------------------- ; ; (cd:CON_String2List "1;2;3;" '(";")) ; ; =========================================================================================== ; ;;;* ------------------------------------------------------------------------------------- *;;; ;;;* PODZIAŁ ŁAŃCUCHA TEKSTOWEGO NA LISTĘ *;;; ;;;* *;;; ;;;* Funkcja rozbija łańcuch tekstowy na listę *;;; ;;;* Autor: Bill Kramer - opublikowana w CADENCE 4/97 *;;; ;;;* *;;; ;;;* Argumenty funkcji: *;;; ;;;* =================== *;;; ;;;* S - łańcuch tekstowy do podziału *;;; ;;;* D - lista separatorów (lista łańcuchów tekstowych) *;;; ;;;* *;;; ;;;* Uwaga: Jeżeli w łańcuchu do rozbicia znajdują się liczby typu INT, funkcja *;;; ;;;* zwraca je jako REAL *;;; ;;;* ------------------------------------------------------------------------------------- *;;; (defun cd:CON_String2List (s d / buf res cnt ch digs isnum temp) (setq buf "" cnt 1 isnum T digs '("." "+" "-" "0" "1" "2" "3" "4" "5" "6" "7" "8" "9") ) (repeat (strlen s) (setq ch (substr s cnt 1) cnt (1+ cnt) ) (cond ((and (member ch d) (> (strlen buf) 0)) (cond ((= (strcase buf T) "nil") (setq res (cons nil res)) ) ((= isnum T) (setq res (cons (if (= (atoi buf) (atof buf)) (atoi buf) (atof buf) ) res ) ) ) (T (setq res (cons buf res))) ) (setq buf "" isnum T ) ) ((not (member ch d)) (setq buf (strcat buf ch)) (if (null (member ch digs)) (setq isnum nil) ) ) ) ) (if (> (strlen buf) 0) (setq res (cons (if isnum (atof buf) buf ) res ) ) ) (reverse res) )  

Takie coś naskrobałem na szybko w C#. Oczywiście kod jest siermiężny ale działa. Polecam używanie wysokopoziomowych języków .NET przy zabawach z WF ew. WPF. VBA miewa braki, aczkolwiek ma niezaprzeczalną zaletę, że jest "na pokładzie" i nie potrzeba zewnętrznego kompilatora.

ZwForm.rar

W ZWCAD 2021 proszę sprawdzić zmienną systemową COLORTHEME

Dodaliśmy do zwpack 4 nowe funkcje:
sumowanie długości wzdłuż klikanych punktów - mdist,  zmiana stylu istniejącej multilinii,   źródło https://wstaw.net/H7rPMsXd wymiarowanie polilinii, źródło https://wstaw.net/jbTYLih szyfrowanie lispów - źródło  Więcej o nakładce.
 


 
 

Jeśli powiększenie "dojdzie do końca" to proszę użyć funkcji REGEN.

W ZWCAD 2021 można scalić warstwy, zaznaczając je w oknie menadżera.
Jeżeli na warstwach znajdują się obiekty, można je przenieść na inną, wskazaną warstwę.
 

Ustawienie zmiennej COPYCLIPFORMATS na 193 powinno rozwiązać problem z kopiowaniem.

Jeżeli punkty lokalizacji leżą blisko siebie możemy za pomocą klawisza TAB wybrać precyzyjnie, odpowiedni:

Ustawienie zmiennej LAYEROVERRIDEHIGHLIGHT na 1 podświetli nam warstwy i pozycje w nich, które w bieżącej rzutni zmieniliśmy (nadpisaliśmy)

Taki mały trick w ZWCAD 2021:

Ukazała się druga beta zawierająca szereg poprawek. Między innymi poprawiono obsługę myszki.
Więcej informacji