Martin_S

Dodam jeszcze że lekka korekta obrotu rastra tez , czasem mape trzeba pokalibrować w uproszczony sposób . Takie narzedzie ma e-cad do w/w celów, ale "na piechotę" j.w. tez da rade, blok i skalowanie osobne, potem rozbijasz blok i raster dopasowany

Wystarczy rysunek zamienić w blok 2D, i skalować osobno na kier. X i Y

Ooops zapomniałem opisać konwersja spline do polilinii z łuków jako - MES odbywa się jedynie w płaszczyźnie globalnej XY, to informacja dla tych którzy chcą pofalowaną ścieżkę sobie utworzyć. Wklejam lisp dla spirali zwykłej i spirali 3D który znalazłem w internecie działa w ZWCAD+ spiral.lsp przydatne do korygowania schodów spiralnych z ZWCAD ARCHITECTURE i do uzwojenia zbrojenia 3D

Tworząc blok nalezy uprzednio zamknąć polilinię, chyba ze korzystamy z gotowca z biblioteki co pokazywałem. Punkt wstawienia bloku mozna okreslić dowolnie wtedy nie koniecznie w narzucony sposób jak na grafice, także sposób kojacka jest praktyczniejszy jednak

@gruzin, rozważane były 2 opcje, polilinia zamknięta + punkty orientacyjne pomocnicze do wstawienia przekroju w sposób normalny na ścieżce w p. P1 druga opcja od kojacka , profil z polilinii zamknietej w postaci bloku, blok wstawiany wg zdefiniowanego punktu wstawiania w bloku w sposób normalny na ścieżce w p. P1

Jesli chodzi o rury wystarczy powtórzyc na zewnętrznego i wewnętrznego okręgu wykonac lispa, potem odjąć 1 bryłe od drugiej i jest rura. Jesli ktoś używa nakładki e-cad, to baza profili jest tam szeroka, goracowalcowane i zimnogiete polilinie zamknięte, to samo dotyczy rur okragłych, kwadratowych i prostokatnych. Także interfejs z profilami to ambitniejsze zadanie, ale nie konieczne ;) do tworzenia bloków z przekroi stalowych Także, pomysł z blokiem jest udany, a osadzanie na sciezce bylo by wg definiowanego punktu wstawienia bloku w układzie lokalnym XYZ na poczatku sciezki w p. 0,0,0, to dobrze działa. Natomiast fazowanie jest trudniejszym problemem (wykorzystanie narzędzia SLICE jako ucięcie w płaszczyźnie równoległej do płaszczyzny globalnej XY lub prostopadłej do płaszczyzny globalnej XY (płaszczyzna cięcia jest prostopadła do płaszczyzny zawierajacej ścieżkę-odcinek P1-P2, dotyczy to poczatku i końca ściezki. 3 wariant bez mian. Są 2 wyjątki wczesniej opisałem. płaszczyzna przekroju profila nie może być równoległa do płaszczyzny cięcia SLICE bo wyjdzie bzdura, nieskończoność. ;) Do nastepnego wątku wkleje lispa do spirali 3D - np. zastosowanie do schodów spiralnych, strzemion-uzwojeń słupów okrągłych. Lisp jest z internetu, nie pamietam skąd, działa w ZWCAD+

Ambitniejszy cel: ścieżka jest polilinią składającą się albo z samych odcinków prostych, mieszana (odcinki proste i łuki), polilinia z łuków. polilinia konwertowana ze spline na polilinie z łuków (dyskretyzacja, na elementy skończone, ciągłe) Rozwiązanie na piechotę, więc da się ;) Scieżka w postaci splajnu skonwertowana na polilinię (łuki to elementy skończone dł. 100mm wpisane w spline) na poczatku ściezki znaleziono styczną w celu osadzenia lokalnego układu współrzędnych by osadzić blok w postaci obszaru zamknietego z polilinii (profil IPE600), rozbito blok, polecenie EXTRUDE i gotowe. PATH-01.dwg

jest ok już, zaraz wrzuce obrazek , ufff, szacun kojacek Command: _appload R:\pliki3D\CADPL-Pack-v1.lsp loaded successfully! R:\pliki3D\EXTRINS.lsp loaded successfully! Command: ------- CADPL-Pack-v1.lsp - http://forum.cad.pl------- Command: Command: Command: EXTRINS Pierwszy punkt linii definiujÄ…cej Ĺ›cieĹĽkÄ™: Koniec Ĺ›cieĹĽki: Cancel! ; error: Function cancelled Command: Command: EXTRINS Pierwszy punkt linii definiujÄ…cej Ĺ›cieĹĽkÄ™: Koniec Ĺ›cieĹĽki: Podaj nazwe bloku: IPE600 Command: Command: Command: _shademode Current mode: 2D wireframe Enter option [2D wireframe/3D wireframe/Hidden/Flat/Gouraud/fLat+edges/gOuraud+edges] <2D wireframe>: g B3D-001.dwg Jak tak dobrze idzie to czy ścieżka może być dowolną polilinią o dowolnym kształcie? Z tym blokiem mi sie podoba u kojacka, odpada problem punktu orientacji, bo jest nim punkt wstawiania bloku , to duzo prostsze jednak. Masz rację kojacek. Po prostu Użytkowniku CAD , jak sobie zdefiniujesz punkt wstawiania bloku - przekrój zamkniety, tak ci sie taka "bela" utworzy na ściezce :)

W ZWCAD Architecture 2015 SP2 (silnik ZWCAD+ 2015 3.1) po tej korekcie cos dalej nie tak u mnie, cytuje F2 Command: _appload R:\pliki3D\EXTRINS.lsp loaded successfully! Command: Command: Command: EXTRINS Pierwszy punkt linii definiującej ścieżkę: Koniec ścieżki: Podaj nazwe bloku: IPE600 ; error: no function definition: CD:SYS_COLLLIST

OOps, w ZWCAD Classic wygląda tak Command: _open Command: EXTRINS Pierwszy punkt linii definiujÄ…cej Ĺ›cieĹĽkÄ™: Koniec Ĺ›cieĹĽki: Podaj nazwe bloku: IPE600 error: null function (CD:SYS_UNDOSTART) (PROGN (CD:SYS_UNDOSTART) (SETQ CMD (GETVAR "CMDECHO")) (SETQ INSOBJ (CD:BLK_INSERTBLOCK STARTP INSNAME (QUOTE (1 1 1)) 0 T)) (SETINSERTZORIENT (NEWVECT STARTP ENDP) (SETQ INSOBJ (VLAX-VLA-OBJECT->ENAME INSOBJ))) (SETQ PATHENT (CD:ENT_MAKELINE (GETVAR "CTAB") STARTP ENDP T)) (VLA-EXPLODE (VLAX-ENAME->VLA-OBJECT INSOBJ)) (ENTDEL INSOBJ) (SETVAR "CMDECHO" 0) (COMMAND "_.EXTRUDE" (ENTLAST) "" "_path" PATHENT) (SETVAR "CMDECHO" 1) (ENTDEL PATHENT) (CD:SYS_UNDOEND)) (IF (AND (SETQ INSNAME (GETSTRING "\nPodaj nazwe bloku: ")) (MEMBER (STRCASE INSNAME) (MAPCAR (QUOTE STRCASE) (CD:SYS_COLLLIST "BLOCK" (+ 1 2 4 8))))) (PROGN (CD:SYS_UNDOSTART) (SETQ CMD (GETVAR "CMDECHO")) (SETQ INSOBJ (CD:BLK_INSERTBLOCK STARTP INSNAME (QUOTE (1 1 1)) 0 T)) (SETINSERTZORIENT (NEWVECT STARTP ENDP) (SETQ INSOBJ (VLAX-VLA-OBJECT->ENAME INSOBJ))) (SETQ PATHENT (CD:ENT_MAKELINE (GETVAR "CTAB") STARTP ENDP T)) (VLA-EXPLODE (VLAX-ENAME->VLA-OBJECT INSOBJ)) (ENTDEL INSOBJ) (SETVAR "CMDECHO" 0) (COMMAND "_.EXTRUDE" (ENTLAST) "" "_path" PATHENT) (SETVAR "CMDECHO" 1) (ENTDEL PATHENT) (CD:SYS_UNDOEND))) (IF (SETQ ENDP (GETPOINT STARTP "\nKoniec Ĺ›cieĹĽki: ")) (IF (AND (SETQ INSNAME (GETSTRING "\nPodaj nazwe bloku: ")) (MEMBER (STRCASE INSNAME) (MAPCAR (QUOTE STRCASE) (CD:SYS_COLLLIST "BLOCK" (+ 1 2 4 8))))) (PROGN (CD:SYS_UNDOSTART) (SETQ CMD (GETVAR "CMDECHO")) (SETQ INSOBJ (CD:BLK_INSERTBLOCK STARTP INSNAME (QUOTE (1 1 1)) 0 T)) (SETINSERTZORIENT (NEWVECT STARTP ENDP) (SETQ INSOBJ (VLAX-VLA-OBJECT->ENAME INSOBJ))) (SETQ PATHENT (CD:ENT_MAKELINE (GETVAR "CTAB") STARTP ENDP T)) (VLA-EXPLODE (VLAX-ENAME->VLA-OBJECT INSOBJ)) (ENTDEL INSOBJ) (SETVAR "CMDECHO" 0) (COMMAND "_.EXTRUDE" (ENTLAST) "" "_path" PATHENT) (SETVAR "CMDECHO" 1) (ENTDEL PATHENT) (CD:SYS_UNDOEND)))) (IF (SETQ STARTP (GETPOINT "\nPierwszy punkt linii definiujÄ…cej Ĺ›cieĹĽkÄ™: ")) (IF (SETQ ENDP (GETPOINT STARTP "\nKoniec Ĺ›cieĹĽki: ")) (IF (AND (SETQ INSNAME (GETSTRING "\nPodaj nazwe bloku: ")) (MEMBER (STRCASE INSNAME) (MAPCAR (QUOTE STRCASE) (CD:SYS_COLLLIST "BLOCK" (+ 1 2 4 8))))) (PROGN (CD:SYS_UNDOSTART) (SETQ CMD (GETVAR "CMDECHO")) (SETQ INSOBJ (CD:BLK_INSERTBLOCK STARTP INSNAME (QUOTE (1 1 1)) 0 T)) (SETINSERTZORIENT (NEWVECT STARTP ENDP) (SETQ INSOBJ (VLAX-VLA-OBJECT->ENAME INSOBJ))) (SETQ PATHENT (CD:ENT_MAKELINE (GETVAR "CTAB") STARTP ENDP T)) (VLA-EXPLODE (VLAX-ENAME->VLA-OBJECT INSOBJ)) (ENTDEL INSOBJ) (SETVAR "CMDECHO" 0) (COMMAND "_.EXTRUDE" (ENTLAST) "" "_path" PATHENT) (SETVAR "CMDECHO" 1) (ENTDEL PATHENT) (CD:SYS_UNDOEND))))) (C:EXTRINS) Sorrki, może jutro mi coś się przejaśni, na razie sie poddaję :) Wracam do ZWCAD ARCHITECTURE z ZWCAD+

Nie wiem co zrobiłem nie tak wklejam F2 Command: _appload R:\pliki3D\CADPL-Pack-v1.lsp loaded successfully! R:\pliki3D\B3D.lsp loaded successfully! Command: ------- CADPL-Pack-v1.lsp - http://forum.cad.pl------- Command: Command: Command: extrins Testowałem w ZWCAD ARCHITECTURE 2015 SP2 na silniku ZWCAD+ 2015 SP3.1 , czy to mam testować na Classic? wolałbym na ZWCAD+ raczej Pierwszy punkt linii definiujÄ…cej Ĺ›cieĹĽkÄ™: Koniec Ĺ›cieĹĽki: Podaj nazwe bloku: IPE600 ; error: no function definition: CD:SYS_UNDOSTART B3D-001.dwg Testowałem na ZWCAD ARCHITECTURE 2015 SP2 na silniku ZWCAD+ 2015 SP 3.1

Jak z tego zrobic plik nazwa.lsp (B3D.lsp), czy w notatniku? Zaznaczam że jestem zielony, prosze sie nie denerwować z tego powodu

Blok wykorzystywuję jak "rzeźbię" na "piechotę" w 3D, on nie jest mi wcale do szczęścia potrzebny, ale pomaga osadzać przekrój w postaci bloku na ściezce ale ten blok rozbijam od razu. Opis punktu 5 (tam osadzam blok i go rozbijam) ;)

Orientację polilinii zamkniętej okreslamy na płaszczyźnie głównej LUW XY, na płasko , względem osi X globalnej, narysuje przykład za chwilę Przekroj do B3D.dwg Dowolny przekrój jest bez wiedzy użytkownika wirtualnie opisany prostokatem o podstawie równoległej do osi głównej LUW X, stąd powstają wirtualne 9 punkty orientacyjne profilu zamkniętego na scieżce. Te 9 punktów są podstawą dalszego postępowania , jak osadzić taki przekrój na ścieżce domyślnie p. 8 środek prostokata opisujacego przekrój, to chyba powinno ułatwić programowanie lispu, jest wystarczajace dla przekrojów np. symetrycznych w postaci profili stalowych.

Na początek przepraszam , ale lispów nie kumam, zostawiam to fachowcom - dla mnie to "magicy CAD", tak tak, niesamowite rzeczy robicie. Przeciętny uzytkownik wskazuje zamkniętą polilinię jako przekrój (polilinia musi być zamknięta), blok jest kłopotliwy w nastepnym kroku punkt orientacyjny (9 szt., ale nr 8 standard domyślnie środek opisanej podstawy przekroju) potem wskazanie ścieżki i następuje generowanie bryły solidowej 3D.

Tak dokładnie o to chodzi, by polecenie EXTRUDE prowadziło przekrój na ścieżce w sposób normalny po ścieżce. Bo inaczej wyjdzie bzdura konstrukcyjna a fazowaniem może by to robił inny lisp, ale potrzebuje czasu by krok po kroku pokazać sens i idee działania. W skrócie chodzi o 3 rodzaje końców dla poczatku lub konca: normalny (jako standard), fazowanie prostopadłe do płaszczyzny globalnej XY, równoległe do płaszczyzny globalnej XY opisywałem to w 2013r. https://forum.cad.info.pl/topic/815-co-warto-udoskonalić-w-zwcad-architecture/?p=4323 cytuję: " Polecenie do definiowania sposobu zakończenia początku i końca obiektu 3D BIM tj. Typ 0 - zakończenie normalne do stycznej w punkcie P1 lub P2 obiektu 3D BIM Typ 1 - zakończenie równoległe do płaszczyzny globalnej XY stycznej w punkcie P1 lub P2 obiektu 3D BIM Typ 2 - zakończenie prostopadłe do płaszczyzny globalnej XY stycznej w punkcie P1 lub P2 obiektu 3D BIM wyjątki: Kiedy styczna obiektu 3D BIM w punkcie P1 lub P2 jest równoległa do płaszczyzny globalnej XY , zakończenie typu 1 nie jest aktywne (bo następuje efekt nieskończonego przekroju). Kiedy styczna obiektu 3D BIM w punkcie P1 lub P2 jest równoległa do osi globalnej Z , zakończenie typu 2 nie jest aktywne (bo tu także następuje efekt nieskończonego przekroju)."

Programistycznie proponuje ścieżke jako odcinek prosty, bo ścieżka dowolna np. łuk to chyba masakra, chodzi o znalezienie stycznej na początku łuku by osadzić przekrój w sposób normalny na ściezce, tj prostopadle do ściezki, przekrój jest prostopadły do płaszczyzny utworzonej przez układ lokalny YZ, będący płaszczyzną prostopadłą do płaszczyzny globalnej XY, (kwestia modelowania zgodnego z grawitacją do płaszczyzny głównej XY) - punkt 3 jest kluczowy (osadzenie przekroju normalnie na ścieżce) Docelowo marzy mi się coś takiego Co udowodniłem robiąc to na tzw. piechotę bryłami 3DSolid, że się da Dodam jeszcze, że jestem wstanie na ZWCAD ARCHITECTURE lub gołym ZWCAD zrobić / wycisnąć dużo więcej , ale fajnie by było gdyby inni mogli z tego korzystać, ja sobie radzę na "piechotę" w 3D Drugie marzenie to implementacja AcDbSubDMesh, ale to inna bajka nie dotyczaca tego wątku Lisp B3D działa w ten sposób że użytkownik nie zna "silnika" lispu, ja jestem zielony pod tym wzgledem, wskazuje przekrój i ścieżkę i sposób osadzenia (orientacja przekroju na ściezce) i to wszystko ) jest to "mega" ułatwienie przy modelowaniu konstrukcji stalowych i drewnianych głównie. Co będę pokazywał na przykładach w przyszłosci. :)

Lisp miałby za zadanie ułatwienie modelowania brył o konkretnym kształcie przekroju zamkniętego. To jest narzędzie o które nie idzie sie doprosić w ZWSOFT (2,5roku) w ZWCAD ARCHITECTURE mające duży potencjał w modelowaniu trudnych konstrukcji https://forum.cad.info.pl/topic/815-co-warto-udoskonalić-w-zwcad-architecture/?p=4321 https://forum.cad.info.pl/topic/815-co-warto-udoskonalić-w-zwcad-architecture/?p=4323 ja sobie radze co pokazałem ostatnio, ale to droga przez "mękę"

Mam pomysł na lisp (B3D) dla branży budowlanej (bardziej konstrukcyjnej ale i architektonicznej). W najbliższym czasie pokaże to na grafikach, by ułatwić idee. W wersji podstawoewej będzie to podobne do Architecterowego "Wyciągania po ścieżce"/"Path Surface" , ale dużo bardziej użyteczne, bo efektem będzie bryła solidowa 3D, Zasada działania, W przestrzeni XYZ wskazujemy punkt początkowy P1 i końcowy P2 (alternatywnie odcinek prosty linii lub polilinii lub polilinii3D), nastepnie kształt zamknięty (może to być jakis np. przekrój profila stalowego HEB300 itp.), Profil jest ustawiany normalnie tj. prostopadle do odcinka P1-P2, przekrój 2D (płaski o podstawie równoległej do osi X), zawsze zorientowany jest swoją podstawą równolegle do płaszczyzny globalnej XY. grafiki przykładowe w opracowaniu .... pokażą idee :) ... którą w kaleczący sposób stosuje w 3D z powodzeniem co nie raz pokazywałem w sekcji ARCHITECTURE ;) 1. definiowanie dowolnego przekroju 2D zorientowanego do osi X i 9 punktów orientacyjnych 2. Przykładowy odcinek dowolnie usytuowany w przestrzeni 3D względem globalnych osi XYZ. 3. Kluczem ułatwiającym to zadanie jest orientacja tymczasowego lokalnego układu współrzędnych w taki sposób, by oś Z była równoległa do odcinka P1-P2 oś X równoległa do płaszczyzny globalnej XY, co determinuje taki fakt że osie lokalne Z i Y tworzą płaszczyznę lokalną zawsze prostopadłą do płaszczyzny globalnej XY. (Patrz obrazek) 4. Wg tego przykładu zamkniety przekrój w postaci przykładowego IPE500 jest zapisywany jako blok z punktem wstawienia/orientacji np. wg punktu 8. 5. Następnie blok jest wstawiany automatycznie na poczatku odcinka P1, zgodnie z punktem wstawiania osadzany w układzie lokalnym XYZ w punkcie (0,0,0) , na tym przykładzie punkt wstawiania jest zgodny z zdefiniowanym punktem orientacyjnym przekroju tu (8) - środek podstawy IPE500, na koncu blok jest rozbijany (explode) 6. Na końcu przekrój poddawany jest komendzie extrude, gdzie wyciaganie odbędzie się po ścieżce będacej odcinkiem P1-P2 7. Na końcu powrót do układu globalnego XYZ, i mamy efekt finalny, bryła solidowa 3D w postaci IPE500 na odcinku P1-P2 osadzonego na środku podstawy (punkt orientacyjny nr 8) KONIEC ZADANIA p.s. Ja w ten sposób próbuję modelować skomplikowane bryły 3D, dowolnie usytuowane w przestrzeni, ale na "piechotę" B3D.dwg Pomyślę także nad fazowaniem końcówek i offsetowaniem takiego elementu 3D w przestrzeni globalnej XYZ :)

Ja do operacji na bryłach 3D: - obsługa AcDbSubDMesh - konwerter brył powierzchniowych zamkniętych na solidowe

Tak czy inaczej, problematykę powtórzyłem na forum ZWSOFT http://www.zwsoft.com/zwcad_forum/thread-4323-1-1.html

Tak działa, programy generujące rysunki konstrukcyjne belek współpracują tylko z wersją intellicadową. Kod działa, Wersja Classic jakby przejeła możliwość eksportu rysunku. Do kwietnia 2016 jest spokój :) za co dziekuję :)

Info od Jenny dla mnie Architecturowca: "When you switch from dongle key to softkey, the dongle would be took back to ZWSOFT. The architecture softkey can't activate ZWCAD+, so you can't use ZWCAD 2012, but this is a special situation, if you really need to activate ZWCAD 2012, please contact local reseller and we would try to find a solution for you." Dzieki kluczowi do kwietnia 2016 oprogramowanie generujące rysunki zbrojeniowe do zwcad2012 są generowane do Classic bez problemu (wreszcie mozna tworzyc baze w pliku >800kB bez problemu) :)

Pytanie raczej do ZWSOFT, "Mała" niemiecka firma EasternGraphics od pCon.planner obsługuje pliki sketchupa *.skp i 3D studio *.3ds co wiąże się z obsługą obiektów "skomplikowanych" geometrycznie 3D w uproszczony sposób poprzez obsługę AcDbSubDMesh z mozliwoscią zapisu do DWG2013. Czy jest możliwe rozwiązanie tej problematyki Chińczyków z Niemcami, dogadanie spraw prawno-patentowych by wreszcie można było korzystać z biblioteki 3D WAREHOUSE w ZWCAD 2017 ?.