maciejmar111

a da się to jakoś wyłuskać ?

Generalnie ZWcad bije na głowę Autocada A czy lispy z ZWcada pasują do Autocada ?

Bardzo dziękuję za wypowiedzi Robię projekt fragmenty rzucam do ramek ale sortuję A4 A3 A2 Program trafia na ramkę otrzymał info żę to A4 lub otrzymał info że to A3 Podzielił rozmiar prostokąta i poznał skale rysunku teraz tylko ustawić skalę wymiarów i można drukować wedle określonego schematu drukarki i grubości linii wszystko robie jednym zaznaczeniem wielu prostokątów ( no tak się rozmarzyłem ?... ) Może jakaś dodatkowa pomoc ? na A4 narysuję linię prostą w rogu na A3 kółko ( dam jakiś znak graficzny przy ramce ) najlepiej była by to linia linia krótka A4 A3 linia dłuższa z czasem na oko człowiek szybciej rysuje linie niż myśli

Ok masz 100 rysunków o różnych rozmiarach A3 i A4 masz różne skale rysónków A4 w skali 1:2 lub 1 : 10 I co z tym leyautem ? Trzeba tracić czas i go ustawiać za każdym razem ? 100 rysunków razy kilka minut ?

mam w jednym pliku wiele prostokątów ( ramek rysunków ) Zaznaczam prostokąty wybieram jaki to arkusz A4P - poziomo lub A4 pion zakładam ze wcześniej ustawiłem drukarkę pdf /lub prawdziwą a program drukuje wszystkie prostokąty w skali którą sobie wyliczy SAM oddzielnie dla każdego prostokąta z podzielenia rozmiaru zaznaczonego prostokąta do rozmiaru kartki A4 poziomo lub A4 pion Ważne aby przed wydrukiem po wyliczeniu skali program określił globalny styl wymiarowania ( zmienił skalę globalną wymiarów pasującą do wyliczonej skali wydruku ) Podobnie dla A3 i innych formatów jak to działa MAM OBIEKT 1:1 który narysowałem widzę że mieści się na A3 ale 25 razy większej rysuję prostokąt 25 x A3 i ustalam pozycje tak aby był ramką obiektu który narysowałem wymiarowanie w CAdzie ma jedną globalną skalę należy przed wydrukiem zmienić skalę wszystkich wymiarów ( wymiary znajdują się na jednej warstwie ) aby było widać strzałki i opis

na końcu posta pokazałem program działa bardzo fajnie ( klikasz punkty pojedynczo ) pojawia się numer na rysunku przy klikniętym punkcie o wybranym rozmiarze tekstu opisu a później wszystkie punkty wskazane są eksportowane (X,Y,Z ) do pliku txt wraz z numerem punktu chciałbym wprowadzić dwie litery a...z jako indeks do numeru pokazującym się na rysunku chciałbym by program zaznaczał punkty 1aa , 2aa ......... 1ab.....2ab...... lub 1bb..2bb lub ... dowolna kombinacja dwóch znaków BARDZO WAŻNY BY NIE WYBIERAĆ PUNKTÓW POJEDYNCZYM KLIKNIĘCIEM a ZAZNACZYĆ WIELE PUNKTÓW OBSZAREM WSKAZANIA prosta zamieniona na kropki w autocadzie . . . . . . . . . . . . . . . po uruchomieniu Lispa . . . . . . . . . . . . . . . 1 15 a a a a chciałbym aby to wszystko nabierało koloru który wybiorę ;;; ---------------------------------------------------------------------------------- ;;; (defun c:nxyz(/ NR NP ZN PD B old_cmdecho) (setq old_cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (initget (+ 1 2 4)) (setq NR (getint "\nPodaj numer pierwszego punktu:")) (setq B (getreal "\Podaj wysokosc textu:")) (setq NP (getfiled "Wpisz nazwe pliku" "" "txt;csv;xls" 1)) (setq ZN (getstring "\Czy wstawiac znacznik punktu [T/N]:")) (SETQ PD (open NP "W")) (WRITE-line (strcat "Nr" "Y" ";" "X" ) PD) (while (setq WSKAZ_PUNKT (getpoint "\nWskaz punkt")) (setq WSPӣRZEDNA_Y (RTOS (cadr WSKAZ_PUNKT) 2 4)) (setq WSPӣRZEDNA_X (RTOS (car WSKAZ_PUNKT) 2 4)) (setq LINIA (strcat (rtos NR) WSPӣRZEDNA_Y ";" WSPӣRZEDNA_X );strcat ) (WRITE-line LINIA PD) (if (or (= ZN "t")(= ZN "t")) (progn (DRAW_PUNKT) (DRAW_TEXT) ) (DRAW_TEXT) ) (setq NR (1+ NR)) );WHILE (close PD) (setvar "cmdecho" old_cmdecho) (princ "\nKoniec") (princ) );defun ;;; ---------------------------------------------------------------------------------- ;;; (defun DRAW_TEXT (/) (command "_layer" "_m" "nxyz-nr" "_c" "7" "" "") (command "_text" WSKAZ_PUNKT B "0" NR) );defun ;;; ---------------------------------------------------------------------------------- ;;; (defun DRAW_PUNKT (/ d kat_90 kat_270 p1 p2 p3 p4) (command "_layer" "_m" "nxyz-pk" "_c" "7" "" "") (setq d (/ B 2)) (setq kat_90 (/ pi 2)) (setq kat_270 (* 3 kat_90)) (setq p1 (polar WSKAZ_PUNKT kat_90 d)) (setq p2 (polar WSKAZ_PUNKT kat_270 d)) (setq p3 (polar WSKAZ_PUNKT 0 d)) (setq p4 (polar WSKAZ_PUNKT pi d)) (command "_osmode" "0" "") (command "_line" p1 p2 "") (command "_line" p3 p4 "") );defun ;;; ---------------------------------------------------------------------------------- ;;; (princ (strcat "NXYZ.Lsp © Dariusz Ptaszkiewicz" " [e-mail:dp@cad.pl]" "\nPolecenie: nxyz " ) ) ;;; ---------------------------------------------------------------------------------- ;;; ;;; BARDZO BYM PROSIŁ O TAKI SAM PROGRAM KTÓRY PRACOWAŁBY NA OKRĘGACH a nie na punktach Zaznaczam obszar z okręgami NIE POSZCZEGÓLNE OKRĘGI ! a one zostają opisane na rysunku indexem i róznymi kolorami ( otwory fi 10.5 indeks 1aa....2bb ) kolor dowolny inny niż biały ( otwory fi 15.00 indeks 1zc ....2zc ) kolor inny niż fi10.50 i tak dalej współrzędne środków otworów/ średnice chciałbym mieć w pliku tekstowym wygenerowanym po zaznaczeniu otworów PROBLEM KTÓRY MI ROZWIĄŻE POWYŻSZY LISP ? NAKŁADKI DLA GEODEZJI MOGĄ SPOKOJNIE SZUKAĆ KLIENTÓW NA RYNKU OBRÓBKI CNC ( tej nawet bardzo zaawansowanej wielo osiowej !!! ) bardzo łatwo można sterować ruchem narzędzia w autocadzie wklejam model blachy którą frezuje jest to kostka metalu ( program może tą kostke widzieć jako chmurę punktów o różnej gęstości w zależności od precyzji ) później jeżdżę po tej kostce narzędziem a narzędzie rusza się tak jak mu to narysowano ( analogia do drogi i projektanta trasy ) Budując program CNC mówię maszynie jakie ma założyć narzędzie Później wybieram prędkość posuwu / prędkość obrotów/ kierunek obrotów i rodzaj chłodziwa nadmuch/ ciecz