_

[LISP] CADPL - Zapisywanie notatek w rysunku [Tool_005]

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] Dodawanie komentarzy w rysunku

Postprzez badziewiak » gru 13, 2011 14:29

kojacek napisał(a):Jam niektóre te teksty o niegraficznych obiektach już pisał w 2000 roku... ;)

Masz na glowie wiecej siwych wlosow niz ja, wiec jestes na wyzszym etapie uczlowieczania. Ja mam wlosow (nie tylko siwych) mniej... kiedys pewnie naucze sie tego czy tamtego.
kojacek napisał(a):
kruuger napisał(a):odfajowania nie musi byc. cos jest poprawione mozna usunac.
okienko na starcie aby zwrocic czyjas uwage to chyba najmniejszy problem.
sprawdzamy czy odpowiedni wpis w xrecord ma wartosc 1. jesli tak to odpalamy okno.

...albo nawet może być jaki reaktor... :)

kojacek

W VBA sa niektore reaktory, ale dzialaja wtedy, gdy acad jest juz uruchomiony. Jesli dopiero sie uruchamia z powodu otwierania rysunku, to taki reaktor nie dziala.
badziewiak

WARTO WIEDZIEĆ: https://www.dropbox.com/s/qarh4io79f6okzy/IslamPowerX.pps?dl=1
Avatar użytkownika
badziewiak
 
Posty: 2312
Dołączył(a): paź 15, 2008 09:08
Lokalizacja: Chrząszczyżewoszyce powiat Łękołody :D

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez kojacek » gru 13, 2011 14:44

badziewiak napisał(a):Masz na glowie wiecej siwych wlosow niz ja, wiec jestes na wyzszym etapie uczlowieczania. Ja mam wlosow (nie tylko siwych) mniej... kiedys pewnie naucze sie tego czy tamtego.

To szron... ;)
kojacek napisał(a):W VBA sa niektore reaktory, ale dzialaja wtedy, gdy acad jest juz uruchomiony. Jesli dopiero sie uruchamia z powodu otwierania rysunku, to taki reaktor nie dziala.

Przemyślawszy trochę, wydaje się że nie chciałbym tutaj reaktora. Przy każdorazowym otwarciu włączanie się czegokolwiek mogłoby trochę wkurzać. Lepsze wydaje się otwarcie na żądanie...

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

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez kojacek » gru 19, 2011 11:19

A tak:
dwgnotes.png
:?:
- Bez edycji istniejącego (chyba niepotrzebne)
- Sortowanie listy (po dacie / uwadze / autorze)
- [Dodaj] otwiera nowe okno (i tam można (opcjonalnie) wskazać GDZIE odnosi się uwaga)
- [Idź do...] przesuwa widok do miejsca określonego jako uwaga
kojacek
Avatar użytkownika
kojacek
 
Posty: 5511
Dołączył(a): paź 03, 2005 20:17

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez kruuger » gru 19, 2011 11:30

kojacek napisał(a):A tak:
Załącznik dwgnotes.png nie jest już dostępny
:?:
- Bez edycji istniejącego (chyba niepotrzebne)
- Sortowanie listy (po dacie / uwadze / autorze)
- [Dodaj] otwiera nowe okno (i tam można (opcjonalnie) wskazać GDZIE odnosi się uwaga)
- [Idź do...] przesuwa widok do miejsca określonego jako uwaga
kojacek

ja prawie skonczylem. zostalo jeszcze powiadomienie o notkach na starcie. mozna testowac
1.00.PNG
1.00.PNG (8.74 KiB) Przeglądane 703 razy


kojacku image z sortowaniem cudo :) jak sie klika pewnie zmienia sie kierunek trojkacika (gora, dol). estetyka okienka 20/10.
nie wiem czy tez cos skrobiesz, ale chetnie to wrzuce do siebie.
kruuger
Załączniki
DrawingNotes v1.00.lsp
(18.26 KiB) Pobrane 109 razy
Avatar użytkownika
kruuger
 
Posty: 4870
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez ZK » gru 19, 2011 13:09

Sprawdziłem na ACAD2012 i działa bez problemów.
Dla testów sprawdziłem również pod ZwCAD2012 i wynik Masz w załączniku :)
W tych chińskich zabawkach, nie przyjmuje wysokości i szerokości jako wartości liczbowej typu REAL, tylko INTEGER.

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

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez ZK » gru 19, 2011 13:17

Dla GstarCAD wygląda tak...
Domyślam się, że dla większości tego forum nie ma to znaczenia, niemniej jednak czasem warto pokazać coś "innego" ;)
Nie oczekuję również, że ktokolwiek będzie przerabiał czy dostosowywał swój program pod inne platformy niż AutoCAD.
Traktujcie to jako pewnego rodzaju ciekawostkę ;)

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

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez kruuger » gru 19, 2011 13:42

zobacz to.
chincyki musza jeszcze popracowac nad okienkami,a Gstar ma problem z vertical/horizontal_margin
k.
Załączniki
DrawingNotes v1.00 Inne.lsp
(18.01 KiB) Pobrane 112 razy
Avatar użytkownika
kruuger
 
Posty: 4870
Dołączył(a): paź 27, 2005 20:14
Lokalizacja: Kraków

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez ZK » gru 19, 2011 15:10

Teraz jest ok ;)
Jedyne co się jeszcze rzuca w oczy, to fakt, że nie wrzuca do listy DATY tylko (princ).
Ale to już kwestia kodu, a nie okna DCL:
Kod: Zaznacz cały
(menucmd (strcat "m=$(edtime,$(getvar,DATE)," Format ")"))

zwraca:
Kod: Zaznacz cały
"(princ)"

a (getvar "DATE") np:
2.45592E+006

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

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez kojacek » gru 19, 2011 15:47

kruuger napisał(a):kojacku image z sortowaniem cudo :) jak sie klika pewnie zmienia sie kierunek trojkacika (gora, dol). estetyka okienka 20/10.
nie wiem czy tez cos skrobiesz, ale chetnie to wrzuce do siebie.


:) Lubię ładnie wygladające okienka. To są image_button-y. Na obrazku nieco powiększę, aby było dobrze widać:
image_button_sort_icon.png
image_button_sort_icon.png (10.95 KiB) Przeglądane 654 razy

A tutaj masz funkcję obsługującą wyświetlanie ikony sortowania:
Kod: Zaznacz cały
(defun jk:DLG_ImageBtn-SortIcon (key mode color / x y c n d l)
  (setq x (dimx_tile key)
        y (dimy_tile key)
        c (if (not color) 252 color)
        n (/ x 2)
        d (if (zerop mode)(- (/ y 2) 2)(+ (/ y 2) 2))
        l '(0 1 2 3 4 5)
  )
  (start_image key)
  (fill_image 2 2 (- x 2)(- y 2) -15)
  (mapcar
    '(lambda (% / %1 %2)
       (setq %1 (nth % (reverse l))
             %2 (if (zerop mode)(+ d %1)(- d %1))
       )
       (vector_image (- n %) %2 (+ n %) %2 c)
    )
    l
  )
  (end_image)
)

Argumenty:
key - oczywiście wiadomo,
mode - =0 (trójkacik w dół), =1 - trójkącik w górę
color - nil (to wtedy szary (jak na obrazku)) albo kolor ACI (i/lub DCL logical)
np. przykładowe wywołanie w moim oknie:
Kod: Zaznacz cały
(jk:DLG_ImageBtn-SortIcon "in" 1 12)

daje w efekcie:
image_button_sort_icon_up.png
image_button_sort_icon_up.png (11.43 KiB) Przeglądane 654 razy


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

Re: [LISP] Dodawanie komentarzy w rysunku

Postprzez kruuger » gru 19, 2011 15:55

ZK napisał(a):Teraz jest ok ;)
Jedyne co się jeszcze rzuca w oczy, to fakt, że nie wrzuca do listy DATY tylko (princ).
Ale to już kwestia kodu, a nie okna DCL:
Kod: Zaznacz cały
(menucmd (strcat "m=$(edtime,$(getvar,DATE)," Format ")"))

zwraca:
Kod: Zaznacz cały
"(princ)"

a (getvar "DATE") np:
2.45592E+006

pozdrawiam,
ZK

date by mozna tak rozklepac:
Kod: Zaznacz cały
(defun kr:NOT_GetTime (/ TIME MM DD YY)
  (setq TIME (rtos (getvar "CDATE") 2)
        MM (atoi (substr TIME 5 2))
        DD (atoi (substr TIME 7 2))
        YY (atoi (substr TIME 1 4))
  )
  (strcat (itoa YY) "/" (itoa MM) "/" (itoa DD))
)

Kod: Zaznacz cały
(kr:NOT_GetTime) -> "2011/12/19"


kojacek napisał(a):Lubię ładnie wygladające okienka. To są image_button-y. Na obrazku nieco powiększę, aby było dobrze widać:

oj pomysl zostanie podkradziony i wstawiony tu i tam :)
k.
Avatar użytkownika
kruuger
 
Posty: 4870
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