_

[LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Forum poświęcone flagowemu produktowi oraz aplikacjom pochodnym Autodesku. To jedyne forum mające w tytule nazwę programu, a to ze względu na jego olbrzymią popularność w Polsce. Można tutaj umieszczać również posty z ogólnie pojętej tematyki "Kreślarskie 2D".

[LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kruuger » kwi 19, 2012 13:10

po raz kolejny zostalismy "zmuszeni" do napisania programu ;)
tym raz drukowanie zdefiniowanych widokow (View)
nieco wiecej informacji tutaj:
ustawienia-wydruku-t78925.html
masowy-wydruk-widokow-view-t77993.html

na razie tylko maly wstepniak.
k.
Załączniki
PlotViewsN.lsp
tworzy widok z kontynuacją numeracji
(5.37 KiB) Pobrane 119 razy
PlotViews.lsp
tworzy widok z pierwszym wolnym numerem
(4.65 KiB) Pobrane 209 razy
Avatar użytkownika
kruuger
 
Posty: 4850
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kojacek » kwi 19, 2012 13:21

kruuger napisał(a):po raz kolejny zostalismy "zmuszeni" do napisania programu ;)
tym raz drukowanie zdefiniowanych widokow (View)
nieco wiecej informacji tutaj:
ustawienia-wydruku-t78925.html
masowy-wydruk-widokow-view-t77993.html

na razie tylko maly wstepniak.
k.


Pierwsza uwaga:
W cd:006_PlotViews zamiast linii:
Kod: Zaznacz cały
 (if (setq pe (getpoint "\nWskaz drugi naroznik widoku: "))

dać:
Kod: Zaznacz cały
 (if (setq pe (getcorner ps "\nWskaz drugi naroznik widoku: "))


kojacek
Avatar użytkownika
kojacek
 
Posty: 5492
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kruuger » kwi 19, 2012 13:28

kojacek napisał(a):
kruuger napisał(a):po raz kolejny zostalismy "zmuszeni" do napisania programu ;)
tym raz drukowanie zdefiniowanych widokow (View)
nieco wiecej informacji tutaj:
ustawienia-wydruku-t78925.html
masowy-wydruk-widokow-view-t77993.html

na razie tylko maly wstepniak.
k.


Pierwsza uwaga:
W cd:006_PlotViews zamiast linii:
Kod: Zaznacz cały
 (if (setq pe (getpoint "\nWskaz drugi naroznik widoku: "))

dać:
Kod: Zaznacz cały
 (if (setq pe (getcorner ps "\nWskaz drugi naroznik widoku: "))


kojacek

przygotowalem sobie initget a nie dalem:
Kod: Zaznacz cały
(setq pe (getpoint ps "\nWskaz drugi naroznik widoku: "))

ale getcorner bedzie lepszy
k.
Avatar użytkownika
kruuger
 
Posty: 4850
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kojacek » kwi 19, 2012 15:31

Jeszcze trzeba zmienić wywołanie:
Kod: Zaznacz cały
(kr:ENT_MakeView
    (setq vi (cd:STR_TableNameAuto "VIEW" "CADPL_PLV_" nil "0" 5))
    ;;; 0
    (if (= "MODEL" (strcase (getvar "CTAB"))) 0 1) ;;; <---------------------------------
    (car dim) (cadr dim) cen 0 nil
  )

bowiem, tworzy widok modelowy wszędzie, a ma być czasem i papierowy... ;)
kojacek
Avatar użytkownika
kojacek
 
Posty: 5492
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez ZK » kwi 20, 2012 08:17

Nie mogę się doszukać funkcji:
(setq UCS# (kr:UCS_UcsToVLA Ucs))
co prawda wiadomo o co loto, ale po prostu brak jej w Twoim załączonym pliku.

ZK
**************************************
********* http://madebynati.com *********
**************************************
Avatar użytkownika
ZK
 
Posty: 1082
Dołączył(a): mar 11, 2009 12:08
Lokalizacja: Poznań

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kruuger » kwi 20, 2012 08:25

ZK napisał(a):Nie mogę się doszukać funkcji:
(setq UCS# (kr:UCS_UcsToVLA Ucs))
co prawda wiadomo o co loto, ale po prostu brak jej w Twoim załączonym pliku.

ZK

na razie z niej nie korzystalem wiec jakos mi sie pominela
k.
Avatar użytkownika
kruuger
 
Posty: 4850
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kojacek » kwi 20, 2012 11:26

Może się później przyda takie coś - spacer po widokach... Wyświetla wskazany widok, rozróżnia widoki Modelu i Papieru (różnopoapierowe już nie), taki szkic ogólny na razie. Ładuję CADPL i PlotViews.lsp (bo coś tam bierze też). Wygladać tak:
vsdialog.png
vsdialog.png (9.43 KiB) Przeglądane 1665 razy

Pliki póki co pliki osobno (by nie mieszać)...
Polecenie:
Załączniki
sview.zip
(1.35 KiB) Pobrane 127 razy
Avatar użytkownika
kojacek
 
Posty: 5492
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez ZK » kwi 20, 2012 11:31

A nie wystarczy do tego narzędzie ACAD?

ZK
Załączniki
cad.jpg
**************************************
********* http://madebynati.com *********
**************************************
Avatar użytkownika
ZK
 
Posty: 1082
Dołączył(a): mar 11, 2009 12:08
Lokalizacja: Poznań

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez kojacek » kwi 20, 2012 11:34

ZK napisał(a):A nie wystarczy do tego narzędzie ACAD?

1) Mówimy o swoim narzedziu do tworzenia i drukowaniu widoków. Polecenie _VIEW tego nie oferuje w całości
2) Polecenie _VIEW, wyświetla wszystkie widoki jednocześnie (Model + Papier), tutaj zaś działamy w każdym obszarze osobno
3) Polecenie _VIEW nie umozliwia "spaceru" po widokach, zdaje się.

kojacek
Avatar użytkownika
kojacek
 
Posty: 5492
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] CADPL - Drukowanie widoków (View) [Tool_006]

Postprzez ZK » kwi 20, 2012 11:36

Oki doki, kto pyta nie błądzi, a akurat temat drukowania, widoków itp. jest dla mnie neutralny, tj. w ogóle z tego nie korzystam...
A teraz przynajmniej wszystko jest wiadome :)

ZK
**************************************
********* http://madebynati.com *********
**************************************
Avatar użytkownika
ZK
 
Posty: 1082
Dołączył(a): mar 11, 2009 12:08
Lokalizacja: Poznań

Następna strona

Powrót do AutoCAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników