Forum Konstruktor budowlany Strona Główna Konstruktor budowlany
Forum projektantów
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Ciekawe lispy.

 
Napisz nowy temat   Odpowiedz do tematu    Forum Konstruktor budowlany Strona Główna -> CAD
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Parikon
Skokovis



Dołączył: 09 Lip 2014
Posty: 2109
Przeczytał: 0 tematów

Pomógł: 38 razy
Ostrzeżeń: 0/5
PostWysłany: Śro 18:15, 23 Gru 2015    Temat postu: Ciekawe lispy.
Jeśli znacie jakieś ciekawe kody(oczywiście free) lisp-ów to proszę tu wrzucać z krótkim opisem.

Ostatnio ściągnąłem taki lisp. Brak autora w kodzie

Kod:
;stx.lsp () 2004;
(defun make-sum-dial ()
(setq fname (vl-filename-mktemp "sumtotal.dcl"))
;;;(setq fname (strcat (getvar "dwgprefix") "sumtotal.dcl")) ;debug only
(setq fn (open fname "w"))
(write-line "sumnumb : dialog {" fn)
(write-line
(strcat "label = " "\"" "Text summation" "\"" ";")
fn)
(write-line ": edit_box {" fn)
(write-line (strcat "label = " "\"" "Summ :" "\"" ";") fn)
(write-line (strcat "key = " "\"" "sum" "\"" ";") fn)
(write-line "width = 8; height = 1;}" fn)
(write-line "spacer;" fn)
(write-line ": text {" fn)
(write-line
(strcat "label = " "\"" "Copy text to clipboard" "\"" ";}")
fn)
(write-line "spacer;" fn)
(write-line "ok_cancel; " fn)
(write-line "}" fn)
(close fn)
)
;;;(make-sum-dial);ok

(defun run-lib-dial (num)

(setq dcl_ex (load_dialog fname))
(new_dialog "sumnumb" dcl_ex)

(set_tile "sum" (rtos num 2 3))
(mode_tile "sum" 2)
(action_tile "sum" "(setq sum $value)")
(action_tile "accept" "(done_dialog 1)")

(setq knock (start_dialog))
(unload_dialog dcl_ex)
(done_dialog)
(vl-file-delete fname)
)

(defun C:stx   (/)
(if (setq ss (ssget (list (cons 0 "*TEXT"))))
(progn
(make-sum-dial)
(setq sum 0 subt 0)
(while
(setq en (ssname ss 0))
(setq elist (entget en))
(setq subt (atof (cdr (assoc 1 elist))))
(setq sum (+ sum subt))
(ssdel en ss))
(run-lib-dial sum)
)
)
(princ)
)
(prompt "\nType STX to execute...")
(princ


Po załadowaniu działa tak:
komendą stx wywołujemy program. Następnie wskazujemy teksty liczbowe i lisp podaje nam ich sumę. Przydaje się przy zliczaniu sumy powierzchni pomieszczeń itp.
W tekstach używamy kropki. Działa w AutoCAD-zie. W ZWCad nie sprawdzałem.

Post został pochwalony 0 razy

Ostatnio zmieniony przez Parikon dnia Śro 18:16, 23 Gru 2015, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
mictos
Początkujący Forumowicz



Dołączył: 14 Lip 2016
Posty: 4
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
PostWysłany: Czw 9:42, 14 Lip 2016    Temat postu:
Fajna stronka z lispami to afralisp

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Merlin-hs
Aktywny Forumowicz



Dołączył: 28 Paź 2008
Posty: 38
Przeczytał: 0 tematów

Pomógł: 2 razy
Ostrzeżeń: 0/5
Skąd: Kielce
PostWysłany: Czw 12:46, 14 Lip 2016    Temat postu:
Cała masa świetnych lispów jest na stronie :
[link widoczny dla zalogowanych]

Bardzo fajne na tej stronie jest szybkie pokazanie działania lispa w formie krótkiej animacji.

W codziennej pracy używam co najmniej połowę z tych lispów.

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Konstruktor budowlany Strona Główna -> CAD Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin
Na skróty:Sprawy organizacyjneAktualnościProjektyProjektowanie Konstrukcji BudowlanychUstawodawstwo i UprawnieniaPoradyProgramyKonstrukcje żelbetoweUprawnienia, certyfikatyKonstrukcje stalowePytania i prośbyGeotechnikaPrawo i przepisyFinansePracaRobotKonstrukcje drewnianeOddziaływania na konstrukcjeHyde ParkAxisVMRM-WINNowe programyInne programyGRAITEC Advance CADKonstrukcje muroweFizyka budowliSprzętOstrzeżeniaAutodesk Building Design, Revit, ASD