_

[LISP] CADPL - Tool translator [Tool]

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".

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kojacek » mar 15, 2012 12:03

kruuger napisał(a):moze cos takiego (numer linii) ? ulatwi to tlumaczenie nastepnego dnia

No to może też jakaś historia? Albo choćby - Otwórz (plik) ostatnio edytowany...?

Ja to się (ponadto) zastanawiam nad czyms takim, które w jasny sposób określi który plik edytujesz. Wg mnie ten pierwszy wybrany, czyli cos takiego:
1) Wybiersz plik np. MojProg.lsp
2) W momencie pierwszego Save, tworzona jest kopia pliku wybranego (nieruszonego w istocie) pod nazwą np. MojProg_20121503105923.lsp (z datą czy coś), a zmiany zapisywane są w MojProg.lsp
Takie coś wydaje się bardziej naturalne, i ułatwia testowanie (zawsze ładujesz MojProg.lsp). Jak coś nie tak, masz zawsze kopię (nieśmiganą) ;)

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

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kruuger » mar 15, 2012 12:12

kojacek napisał(a):
kruuger napisał(a):moze cos takiego (numer linii) ? ulatwi to tlumaczenie nastepnego dnia

No to może też jakaś historia? Albo choćby - Otwórz (plik) ostatnio edytowany...?

Ja to się (ponadto) zastanawiam nad czyms takim, które w jasny sposób określi który plik edytujesz. Wg mnie ten pierwszy wybrany, czyli cos takiego:
1) Wybiersz plik np. MojProg.lsp
2) W momencie pierwszego Save, tworzona jest kopia pliku wybranego (nieruszonego w istocie) pod nazwą np. MojProg_20121503105923.lsp (z datą czy coś), a zmiany zapisywane są w MojProg.lsp
Takie coś wydaje się bardziej naturalne, i ułatwia testowanie (zawsze ładujesz MojProg.lsp). Jak coś nie tak, masz zawsze kopię (nieśmiganą) ;)

kojacek

no, ma to wszystko sens. tylko co z kopiami (te z data) ? rozumie ze trzeba je bedzie usuwac samemu ?
k.
Avatar użytkownika
kruuger
 
Posty: 4845
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez ZK » mar 15, 2012 12:29

no, ma to wszystko sens. tylko co z kopiami (te z data) ? rozumie ze trzeba je bedzie usuwac samemu ?


I dobrze. W ten sposób każdy kontroluje sam co się dzieje.
Pliki można sobie gdzieś archiwizować albo usuwać, ale przynajmniej użytkownik świadomie coś z nimi wykona.

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

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kruuger » mar 19, 2012 08:20

wiec tak:
- zapamietywanie ostatnio otwartego pliku z pozycja na liscie
- jesli plik zostanie usuniety/zmodyfikowany to program powinien dac sobie z tym rade (nawet z grzebaniem w rejestrze)
- zapisywanie pliku jeszcze po staremu (pyta uzytkownika)
- przycisk "Zmien" jeszcze bez zadnego sprawdzania

do zrobienia:
- usprawnienie zapisu
- kopia pliku
- gdyby chciec historie plikow to chyba wywolanie w osobnym okienku, bo sciezki moga byc dosc przudlugawe. bawimy sie w to? jakies wywolanie np TTRAH.
cos wam jeszzcze do glowy przyszlo ?

1. mysle aby umiescic gdzies moze sciezke do pliku ktory edytujemy. padlo na belke okienka. pasuje ?
jesli scieza bedzie dluga trzeba by skrobnac jakas funkcje skracajaca do "C:\Dokumenty\...\tool.lsp"
2. macie moze funkcje wydobywajaca sama nazwe pliku z:
Kod: Zaznacz cały
(getfiled "Wybierz plik do tłumaczenia" "" "lsp" 0)

czy trzeba sie pobawic stringami ?
kruuger
Załączniki
Translator.lsp
(9.6 KiB) Pobrane 70 razy
Translator.dcl
(971 Bajtów) Pobrane 80 razy
Avatar użytkownika
kruuger
 
Posty: 4845
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kojacek » mar 19, 2012 09:31

kruuger napisał(a):wiec tak:
- zapamietywanie ostatnio otwartego pliku z pozycja na liscie
- jesli plik zostanie usuniety/zmodyfikowany to program powinien dac sobie z tym rade (nawet z grzebaniem w rejestrze)
- zapisywanie pliku jeszcze po staremu (pyta uzytkownika)
- przycisk "Zmien" jeszcze bez zadnego sprawdzania

do zrobienia:
- usprawnienie zapisu
- kopia pliku
- gdyby chciec historie plikow to chyba wywolanie w osobnym okienku, bo sciezki moga byc dosc przudlugawe. bawimy sie w to? jakies wywolanie np TTRAH.
cos wam jeszzcze do glowy przyszlo ?

1. mysle aby umiescic gdzies moze sciezke do pliku ktory edytujemy. padlo na belke okienka. pasuje ?
jesli scieza bedzie dluga trzeba by skrobnac jakas funkcje skracajaca do "C:\Dokumenty\...\tool.lsp"
2. macie moze funkcje wydobywajaca sama nazwe pliku z:
Kod: Zaznacz cały
(getfiled "Wybierz plik do tłumaczenia" "" "lsp" 0)

czy trzeba sie pobawic stringami ?
kruuger



Kod: Zaznacz cały
(setq a (getfiled "Wybierz plik do tłumaczenia" "" "lsp" 0))
(fnsplitl a)
(vl-filename-directory a)
(vl-filename-base a)
(vl-filename-extension a)

Tak się zastanawiam nad historią... może to zbędne? Otwiera się ostatni, lub się wskazuje... powinno wystarczyć.
kojacek
Avatar użytkownika
kojacek
 
Posty: 5464
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kruuger » mar 19, 2012 10:29

kojacek napisał(a):
Kod: Zaznacz cały
(setq a (getfiled "Wybierz plik do tłumaczenia" "" "lsp" 0))
(fnsplitl a)
(vl-filename-directory a)
(vl-filename-base a)
(vl-filename-extension a)

Tak się zastanawiam nad historią... może to zbędne? Otwiera się ostatni, lub się wskazuje... powinno wystarczyć.
kojacek

ooo, dobre. nie trzeba sie bedzie meczyc specjalnie.
dzieki
kruuger
Avatar użytkownika
kruuger
 
Posty: 4845
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kruuger » mar 19, 2012 13:33

poprawiony zapis.
tworzony jest plik tool_2012-03-19.lsp
jesli istnieje to wykonywany jest tylko zapis do pliku tool.lsp
k.
Załączniki
Translator.lsp
(11.36 KiB) Pobrane 87 razy
Avatar użytkownika
kruuger
 
Posty: 4845
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kruuger » mar 21, 2012 23:08

jakies sposoby na sprawdzanie parzystosci liczby ? jednej funkcji chyba nie ma ?
Kod: Zaznacz cały
(defun _Even (Nbr)
  (repeat (/ Nbr 2)
    (setq Nbr (- Nbr 2))
  )
  (if (zerop Nbr) T nil)
)

Kod: Zaznacz cały
(_Even 12) -> T
(_Even 7) -> nil
(_Even 0) -> T

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

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kojacek » mar 21, 2012 23:15

kruuger napisał(a):jakies sposoby na sprawdzanie parzystosci liczby ? jednej funkcji chyba nie ma ?
Kod: Zaznacz cały
(defun _Even (Nbr)
  (repeat (/ Nbr 2)
    (setq Nbr (- Nbr 2))
  )
  (if (zerop Nbr) T nil)
)

Kod: Zaznacz cały
(_Even 12) -> T
(_Even 7) -> nil
(_Even 0) -> T

k.


Kod: Zaznacz cały
(zerop (rem Num 2))
zwraca T lub nil...
kojacek
Avatar użytkownika
kojacek
 
Posty: 5464
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] CADPL - Tool translator [Tool]

Postprzez kruuger » mar 21, 2012 23:21

kojacek napisał(a):
Kod: Zaznacz cały
(zerop (rem Num 2))
zwraca T lub nil...
kojacek

a jednak jest (prawie) :)
dzieki
k.
Avatar użytkownika
kruuger
 
Posty: 4845
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Poprzednia stronaNastępna strona

Powrót do AutoCAD

Kto przegląda forum

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