Przesunięty przez: dmatusz3
Pon Sie 01, 11 15:42 |
[LISP] okno systemowe DCL |
| Autor |
Wiadomość |
Assgarth 
programista
Pomógł: 2 razy
Dołączył: 26 Sty 2009
Posty: 136
Skąd: Poznań
|
  Wysłany: Czw Lip 28, 11 10:16 [LISP] okno systemowe DCL
|
|
|
Witam,
takie przykładowe okienko DCL - systemowe.
Istnieje zastępcze dla ZwCAD?
(load_dialog "ACAD") - tutaj widzę możliwość taką:
(load_dialog "gpdialog.dcl")
lecz dla:
(new_dialog "acad_txtedit" id)
już nie znalazłem...
Oczywiście zdaję sobie sprawę, że utworzenie takiego okna od podstaw w DCL jest do zrobienia,
jednakże skoro istnieją inne możliwości, to czemu z nich nie skorzystać...
| Kod: | (defun LM:EditBox ( string / id )
(and
(< 0 (setq id (load_dialog "ACAD")))
(new_dialog "acad_txtedit" id)
(set_tile "text_edit" string)
(action_tile "text_edit" "(setq string $value)")
(if (zerop (start_dialog)) (setq string nil))
)
(if (< 0 id) (unload_dialog id))
string
) |
wywołanie:
| Kod: | | (LM:EditBox "To jest test") |
pozdrawiam |
_________________
Obecnie używam ZwCAD:
_VERNUM = "2011.10.30(17176)" |
|
 |
|
 |
kruszynski
Pomógł: 17 razy
Dołączył: 02 Sty 2009
Posty: 312
|
| Wysłany: Czw Lip 28, 11 10:26
|
|
|
| Nie znam zamienników, ale postaram się ustalić. |
|
 |
|
|
Jason
Pomógł: 4 razy
Dołączył: 25 Sty 2011
Posty: 33
|
| Wysłany: Czw Lip 28, 11 10:33 Re: [LISP] okno systemowe DCL
|
|
|
| Assgarth napisał/a: | Witam,
takie przykładowe okienko DCL - systemowe.
Istnieje zastępcze dla ZwCAD?
(load_dialog "ACAD") - tutaj widzę możliwość taką:
(load_dialog "gpdialog.dcl")
lecz dla:
(new_dialog "acad_txtedit" id)
już nie znalazłem...
Oczywiście zdaję sobie sprawę, że utworzenie takiego okna od podstaw w DCL jest do zrobienia,
jednakże skoro istnieją inne możliwości, to czemu z nich nie skorzystać...
| Kod: | (defun LM:EditBox ( string / id )
(and
(< 0 (setq id (load_dialog "ACAD")))
(new_dialog "acad_txtedit" id)
(set_tile "text_edit" string)
(action_tile "text_edit" "(setq string $value)")
(if (zerop (start_dialog)) (setq string nil))
)
(if (< 0 id) (unload_dialog id))
string
) |
wywołanie:
| Kod: | | (LM:EditBox "To jest test") |
pozdrawiam |
isnieje  wystarczy skopiowac z autocada plik acad.dcl i zapodac go do Zwcada.
sa tam gotowe definicje kilku okienek systemowych m.in.:
| Kod: | acad_txtedit : dialog {
label = "Edit Text";
initial_focus = "text_edit";
: edit_box {
label = "Text:";
key = "text_edit";
edit_width = 40;
edit_limit = 2048;
allow_accept = true;
}
ok_cancel;
} |
patrz na to:
| Kod: | | (lisped ( (lambda (/ C) (setq C "") (foreach % (list 72 97 108 111) (setq C (strcat C (chr %))))))) |
j. |
| |
|
|
|
|
|
Assgarth
programista
Pomógł: 2 razy
Dołączył: 26 Sty 2009
Posty: 136
Skąd: Poznań
|
| Wysłany: Czw Lip 28, 11 10:41
|
|
|
| Cytat: | | wystarczy skopiowac z autocada plik acad.dcl i zapodac go do Zwcada. |
No no no
Kopiowanie całości, części lub udostępnianie publiczne kodu, jest niezgodne z licencją 
Skoro już jednak znalazłeś źródło tego okna "acad_txtedit", to można na bazie tego stworzyć np. "zwcad_txtedit"...
Swoją drogą może ZwCAD też z czasem doda takie systemowe okienka - się zobaczy.
Tak jak napisałem, samo stworzenie takiego okienka to nie problem - się zastanawiałem czy po prostu ZwCAD ma coś takiego już wbudowane w swoją strukturę.
pozdrawiam |
_________________
Obecnie używam ZwCAD:
_VERNUM = "2011.10.30(17176)" |
|
|
|
|
|
Jason
Pomógł: 4 razy
Dołączył: 25 Sty 2011
Posty: 33
|
| Wysłany: Czw Lip 28, 11 10:46
|
|
|
| Assgarth napisał/a: | | Cytat: | | wystarczy skopiowac z autocada plik acad.dcl i zapodac go do Zwcada. |
No no no
Kopiowanie całości, części lub udostępnianie publiczne kodu, jest niezgodne z licencją
pozdrawiam |
mam nadzieje ze jeszcze nie jada po mnie
jest tam tego sporo. dodatkowo jeszcze plik base.dcl
j. |
|
|
|
|
|
Assgarth
programista
Pomógł: 2 razy
Dołączył: 26 Sty 2009
Posty: 136
Skąd: Poznań
|
| Wysłany: Czw Lip 28, 11 10:55
|
|
|
| Cytat: | mam nadzieje ze jeszcze nie jada po mnie
jest tam tego sporo. dodatkowo jeszcze plik base.dcl |
Zgadza się, jest tych plików kilka i każdy zwiera przykłady ale i niezbędne składniki do tego, aby w AutoCAD w ogóle uruchamiały się okna DCL.
Niemniej jednak są one integralną częścią AutoCADa i kopiowanie ich jest bezprawne
W ZwCAD też istnieją base.dcl oraz gpdialog.dcl tyle, że posiadają dużo mniej przykładów. |
_________________
Obecnie używam ZwCAD:
_VERNUM = "2011.10.30(17176)" |
|
|
|
|
|
kruszynski
Pomógł: 17 razy
Dołączył: 02 Sty 2009
Posty: 312
|
| Wysłany: Sro Sie 03, 11 11:26
|
|
|
| Zgłoszenie zapotrzebowania otrzymało numer ID: T4225 |
|
|
|
|
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Rejestracja
Zaloguj
