[Proszę o pomoc w przerobieniu pliku Lispa]

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

[Proszę o pomoc w przerobieniu pliku Lispa]

Proszę zobaczyć tutaj, wydaj mi się coś podobnego.

 

 

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

[lisp do automatyzacji wydruku]

 

Spróbuję podsumować.

 

1. W przestrzeni papieru mamy np. 100 rysunków w skali 1:1.
2. Nie zmieniamy skali rysunku, tylko skalujemy ramkę - mamy 100 ramek.
3. Teraz uruchamiamy funkcje, która drukuje każdą ramkę z rysunkiem po kolei, ale przed każdym wydrukiem sprawdzi skalę ramki i dopasuje styl wymiarowania.

 

Moje wątpliwości:

1. Co w przypadku gdy w rysunku będą różne formaty, np.: A4, A3, A2? Rozmiar papieru jest jeden.
2. Czy kolejność wydruków ma znaczenie?
3. Czy powinny zostać wydrukowane wszystkie rysunki, czy tylko wybrane?

 

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 

[lisp do automatyzacji wydruku]

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 ?

 

[lisp do automatyzacji wydruku]

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

[Proszę o pomoc w przerobieniu pliku Lispa]

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