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 

Wolne LISPY przyśpieszające pracę w CAD
Idź do strony Poprzedni  1, 2, 3, 4, 5, 6  Następny
 
Napisz nowy temat   Odpowiedz do tematu    Forum Konstruktor budowlany Strona Główna -> Programowanie
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: Sob 15:17, 16 Sty 2016    Temat postu:

ProjektK66 napisał:
Wniosek jest prosty, jeśli kogoś stać kupić autodziadka - nawet lt.. to stać go kupować doń komercyjne dodatki. Bazą do takich działań powinien być program free lup GNU.

Cytat:
Gdybym tam wstawił HEA100 przy założeniu, że jednostką modelu jest 1 mm to ten przekrój HEA100 na modelu byłby dużo większy od tego przekroju, który tam jest wstawiony.
zawsze 1:1 ..
jako model 2D/ 3D zależy co potrzeba i to model podlega skali i później dobiera się wygodną skalę np do arkusza A4. W tedy wielkość wymiarów itp jest właściwa.


Byle gówno, które realizuje proste obliczenia potrafi kosztować 800zł. Jak ktoś dostaje projekt za 300 000 to musi zakupić kilka stanowisk, do każdego stanowiska jakieś nakładki, gdyż sam Autocad czy też ZwCad wiosny nie czyni.

Zrobienie nakładek nakładu czasu potrzebuje wiec ich cena za stanowisko jest rzędu 3000 zł. Są robione tak, aby były trudne do złamania więc twórcy używają odpowiedniego języka i zabezpieczeń. Same nakładki są często tak przemyślane, że więcej w nich ustawień niż ustawy przewidują . Przy delikatnych zmianach zrobienie copy czy stretcha jest bardziej opłacalne niż zmienianie parametrów.

W moim regionie projektant tworzy projekt w milimetrach. Inżynier konsultant, czyli ja robię schematy konstrukcyjne w metrach. Sprawdzam założenia projektu za pomocą ARSY lub Robota Millenium. Dodatkowo oferuje projektantowi, że podam mu jaka forma jest najlepsza, żeby nie musiał znów przeliczać. Często projektant prosi mnie o wykonanie projektu technicznego dla formy, którą mu podsunąłem. Nawet w dowód zasług robi mnie projektantem. Co nie znaczy że zaczynam tworzyć w milimetrach. Nigdy w życiu. Ja tylko zmieniam wymiary tak, aby opis był w milimetrach. Twisted Evil


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
adam_47
Doświadczony Forumowicz



Dołączył: 05 Cze 2010
Posty: 1000
Przeczytał: 8 tematów

Pomógł: 23 razy
Ostrzeżeń: 0/5

PostWysłany: Sob 15:42, 16 Sty 2016    Temat postu:

ProjektK66 napisał:
Wniosek jest prosty, jeśli kogoś stać kupić autodziadka - nawet lt.. to stać go kupować doń komercyjne dodatki.

A to ciekawe twierdzenie. Może jakiś dowód? Może zrobimy ankietę?


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
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: Sob 16:11, 16 Sty 2016    Temat postu:

adam_47 napisał:
ProjektK66 napisał:
Wniosek jest prosty, jeśli kogoś stać kupić autodziadka - nawet lt.. to stać go kupować doń komercyjne dodatki.

A to ciekawe twierdzenie. Może jakiś dowód? Może zrobimy ankietę?


@ProjektK66 miał chyba na myśli, że jak ktoś w aktualnej rzeczywistości kupuje Autocada zamiast ZwCad lub korzystac z innych darmowych form wyrażania swjej twórczości to jest albo głupi albo bogaty. Wink

Ale są tacy jak ja co są "bogaci" w Autocada ARSA i ZwCada ale na nowe nakładki go nie stać. Wink To moje bogactwo to efekt 16 lat pracy w zawodzie. Jednak pieniądze same z nieba nie lecą. Dodatkowo w perspektywie jestem za ZwCad-em.

Jego cena jest naprawdę przystępna. Będzie oferował raczej licencje wieczyste a i lispy też będzie wspierał. Dodatkowo jak coś się zmienia profile normy itp to nakładki często trzeba kupować od nowa a nawet programy obliczeniowe. A taka nakładka free była by na bieżąco zmieniana.

Ponieważ mam doświadczenie w zawodzie i rysuję dużo konstrukcji to wiem czego bym oczekiwał od nakładki minimum, która spełniałaby 100% oczekiwań kreślarza rysującego schematy konstrukcji i rysunki elementów.
______________________________________________________

Projekt nie ma być dla super programistów czy też dla projektantów sprawdzających. Ma to być projekt wspomagający kreślenie rysunków w dziedzinie rysunku technicznego. Odpowiednio superprogramiści i projektanci sprawdzający mogą mi lub nam pomóc. Przymusu nie ma.

Zainstalowałem ZWCad + 2014 na swoim stanowsku. Wrzuciłem plik freekon.dwt do katalogu template.
Już wiem jaki będzie pierwszy lisp.

Będzie to lisp, który zapyta lub wyświetli okno z zapytaniem: Podaj skalę w jakiej chcesz wymiarować.
komenda na jaką reaguje lisp - "skalanowa" - skrót jaki będzie wywoływał tego lispa- powiedzmy "ss"

Teraz sprawdźmy. Aby zmienić skalę wymiarów wystarczy wpisać komendę _dimscale i podać odpowiednią wartość

Dla rysunku w skali 1:5 wartość odpowiedniej zmiennej dimscale odczytamy z pliku freekon.dwt.
jest to wartość 0.01 i odpowiada ona skali 1:5
0.01=0.2
dla skali 1:20?


ile wynosi dimscale gdy skala równa się 1:20
Program zapyta: Podaj skalę w jakiej chcesz wymiarować.
My odpowiemy liczbą która jest po 1:
Jeśli odpowiemy 20 to program musi ustawić odpowiednią wartość zmiennej dimscale.
Ta wartość dla skali 20 będzie odpowiednio większa od skali wyjściowej. Czyli 4 x większa
Czyli gdy odpowiem 20 to program ustawi zmienną na wartość 0,04

Gdy odpowiem 50 to program ustawi wartość na 0.2*50*0,01
czyli gdy odpowiem X to wartość dimscale=X*0,002

Dla scali 1:100 dimscale będzie 0.2.

sprawdzimy czy nasze założenia są słuszne (ZWCad):
kopiuję prostokąt w lewo
dimscale ustawiam na 0.02
wymiaruje oba boki
przechodzę na papier
kopiuję okno z modelem to po prawej
mam nowe okno
pisze w lini poleceń komendę MO i daje enter
wyskakuje nowe okno z parametrami
wskazuję ramkę skopiowanego okna z modelu (tego trzeciego)
wartość standard scale ustawiam na 1:100
Porównuje czy wszystko gra.
Najmniejszy powinien być model z trzeciego okna. Ale wymiary powinny być tej samej wysokości.



Teraz trzeba napisać naszego pierwszego lispa, który będzie ustawiał wartość zmiennej dimscale po odczytaniu skali jaką mu podamy zgodnie ze wzorem dimscale=podana skala razy liczba 0,002.

Ktoś poda kod takiego lispa?


Post został pochwalony 0 razy

Ostatnio zmieniony przez Parikon dnia Nie 14:06, 17 Sty 2016, w całości zmieniany 4 razy
Powrót do góry
Zobacz profil autora
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: Nie 13:42, 17 Sty 2016    Temat postu:

PO chwili nauki wyszło mi coś takiego.

Kod:
;=================================================SKALA.LSP
;Program ustawiający wielkość wymiarów zgodnie z podaną skalą.
;wersja 0.001
;Program pakietu FREEKONSTRUKTOR -
;http://www.konstruktorbudowlany.fora.pl/programowanie,14/wolne-lispy-przyspieszajace-prace-w-cad,10299.html
;=================================================SKALA.LSP
(defun C:skalanowa ()
(setvar "cmdecho" 0)
 (setq S (GETINT "\PODAJ WSPOLCZYNNIK SKALI:"))
 (setq SS ( * S 0.002 ))
(command
"_dimscale" SS
);command
(princ "\ZROBIONE")
(princ)
)
)
;
;=KONIEC=


Proszę o poprawę jeśli można to napisać lepiej lub są duże błędy. Działa, ale po wczytaniu i zamknięciu okna wyskakuje w ZWCAD I AUTOCAD komunikat.
; error: extra right paren on input

Natomiast wywołanie komendy "skalanowa" działa zgodnie z zamierzeniem i zmienia odpowiednio do podanej skali wielkość wymiarów.


Post został pochwalony 0 razy

Ostatnio zmieniony przez Parikon dnia Nie 14:46, 17 Sty 2016, w całości zmieniany 4 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
adam_47
Doświadczony Forumowicz



Dołączył: 05 Cze 2010
Posty: 1000
Przeczytał: 8 tematów

Pomógł: 23 razy
Ostrzeżeń: 0/5

PostWysłany: Nie 14:20, 17 Sty 2016    Temat postu:

Powinieneś deklarować zasięg używanych. Wydaje się, że powinno być
Kod:
(defun C:skalanowa ( / S SS) ...
Chyba, że z jakiś powodów chcesz mieć je globalne (wtedy proponuję jakieś specjalne nazwy np. #MOJA_MOJA_S itp. I, chyba, wyrzuć ostatni prawy nawias.
Co prawda nie mam jak teraz tego sprawdzić Sad.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
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: Nie 14:46, 17 Sty 2016    Temat postu:

adam_47 napisał:
Powinieneś deklarować zasięg używanych. Wydaje się, że powinno być
Kod:
(defun C:skalanowa ( / S SS) ...
Chyba, że z jakiś powodów chcesz mieć je globalne (wtedy proponuję jakieś specjalne nazwy np. #MOJA_MOJA_S itp. I, chyba, wyrzuć ostatni prawy nawias.
Co prawda nie mam jak teraz tego sprawdzić Sad.


Po modyfikacjach:

Kod:
; |----------------------------------------------------------------------------------------------|
; |FREEKONSTRUKTOR - LISP STARTOWY         start.lsp - pierwszy autor PARIKON ver. 0.002        |
; |----------------------------------------------------------------------------------------------|
; |Ładuje aplikacje zawarte w pakiecie.                                 
; |http://www.konstruktorbudowlany.fora.pl/programowanie,14/wolne-lispy-przyspieszajace-prace-w-cad,10299.html
; |----------------------------------------------------------------------------------------------|
(princ "\n *** PROGRAMY PAKIETU FREEKONSTRUKTOR ZALADOWANO... ***")
(load "skala" "\n Brak pliku skala.lsp")
(princ "[ OK ]")
(princ)
; | koniec |


Kod:
;=================================================SKALA.LSP
;Program ustawiający wielkość wymiarów zgodnie z podaną skalą.
;wersja 0.002
;Program pakietu FREEKONSTRUKTOR -
;http://www.konstruktorbudowlany.fora.pl/programowanie,14/wolne-lispy-przyspieszajace-prace-w-cad,10299.html
;=================================================SKALA.LSP
(defun C:skalanowa ()
 (setq S (GETINT "\PODAJ WSPOLCZYNNIK SKALI:"))
 (setq SS ( * S 0.002 ))
(command
"_dimscale" SS
);command
(princ "\ZROBIONE")
(princ)
)
;
;=KONIEC=


Nawias wyrzucony działa bez zarzutu.

Oczywiście to jeszcze nie wszystko. Program skala.lsp powinien zapytać o skalę.
Potem zapytać o jednostki wymiarowania przy czym możliwe są tylko 3 odpowiedzi m, mm, cm.
To nam do rysunku technicznego wystarczy.
Na koniec jeszcze może zapytać się o styl przy czym ten styl będzie się objawiał podmianą strzałek, które są zdefiniowane w pliku freekon.dwt
style będą 3:
architektura
stal
beton

Dodatkowo trzeba stworzyć pierwsze aliasy dla pakietu FREEKONSTRUKTOR w pliku *.PGP

Komenda skalowania będzie wywoływana skrótem SS.

Kod:
;********************************************************
;###       GRUPA ALIASÓW PAKIETU FREEKONSTRUKTOR        ###
;********************************************************
; Lispy obsługujące SKALA
SS,      *SKALANOWA
; Aliasy zalecane
DF,       *DIMLINEAR



oraz potrzebujemy znaku graficznego .ico aby stworzyć przycisk wywołujący lispa skala.

Ponieważ bez okienek dziś się nie da to zadanie z pierwszym lispem będzie ukończone gdy otrzymamy taki efekt końcowy.



Post został pochwalony 0 razy

Ostatnio zmieniony przez Parikon dnia Nie 19:25, 17 Sty 2016, w całości zmieniany 6 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
ProjektK66
Doświadczony Forumowicz



Dołączył: 29 Sie 2012
Posty: 1778
Przeczytał: 0 tematów

Pomógł: 25 razy
Ostrzeżeń: 0/5
Skąd: Krosno

PostWysłany: Nie 18:40, 17 Sty 2016    Temat postu:

Masę energii - w coś co jest dla mnie oczywiste, dostępne w standardzie.
Potrzeba mi styl wymiarowania w metrach ? tworzę nowy styl w domyślnym szablonie i już go mam.
Ba mogę i rysuje w m.. piszę 1m / 1mm 1cm 1in 1ft od razu co pasuje.
I tak samo skalę .. wpiszę skalę 100 wymiaru i pamięta już tą skalę .. potrzebuję większej wpisuje 200, każdy wymiar może i jest w oddzielnej skali.
[link widoczny dla zalogowanych] for ziro zł Smile


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
focusdg
Doświadczony Forumowicz



Dołączył: 24 Sie 2010
Posty: 847
Przeczytał: 34 tematy

Pomógł: 10 razy
Ostrzeżeń: 0/5

PostWysłany: Nie 18:49, 17 Sty 2016    Temat postu:

A właśnie dobrze, że ktoś próbuje coś zrobić.

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
piotrbu (Piotr Buśka)
Doświadczony Forumowicz



Dołączył: 19 Sty 2010
Posty: 1018
Przeczytał: 6 tematów

Pomógł: 28 razy
Ostrzeżeń: 0/5
Skąd: Okolice Warszawy

PostWysłany: Nie 18:51, 17 Sty 2016    Temat postu:

adam_47 napisał:
(w ogóle jak można twierdzić, że VBA jest bardziej czytelny???)


Wystarczy porównać dwa kawałki kodu? Sposób użycia nawiasów i użycie notacji polskiej MZ wystarczą by przekonać, że nie jest to składnia zrobiona pod człowieka. Inne języki są do siebie podobne, ten nie. W ogóle jest to jeden z najstarszych języków programowania.
Ale nie chcę się kłócić, faktem jest, że w programach CAD Lisp jest standardem.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
ProjektK66
Doświadczony Forumowicz



Dołączył: 29 Sie 2012
Posty: 1778
Przeczytał: 0 tematów

Pomógł: 25 razy
Ostrzeżeń: 0/5
Skąd: Krosno

PostWysłany: Nie 18:56, 17 Sty 2016    Temat postu:

Nie neguję, czemu mam negować, tylko ze skromnego doświadczenia wiem, że czasem nie warto wyważać otwartych drzwi. Nie raz, nie dwa się na tym złapałem.

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
adam_47
Doświadczony Forumowicz



Dołączył: 05 Cze 2010
Posty: 1000
Przeczytał: 8 tematów

Pomógł: 23 razy
Ostrzeżeń: 0/5

PostWysłany: Nie 19:21, 17 Sty 2016    Temat postu:

@piotrbu
To był żart.
Z językami programowania jest trochę jak z kobietami. Jednemu Kaśka, drugiemu Baśka, a jednemu i drugiemu nie wytłumaczysz, że jednak Maryśka.
Ja nie zmienię zdania, choć znam i w pewnym stopniu podzielam opinię, że lisp to skrót od "zagubiony w głupich nawiasach" (lost in ...).
Ale to jest tylko moja subiektywna ocena, którą dzielę się z innymi, szanując jednocześnie zupełnie odmienne.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
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: Nie 19:36, 17 Sty 2016    Temat postu:

ProjektK66 napisał:
Masę energii - w coś co jest dla mnie oczywiste, dostępne w standardzie.
Potrzeba mi styl wymiarowania w metrach ? tworzę nowy styl w domyślnym szablonie i już go mam.
Ba mogę i rysuje w m.. piszę 1m / 1mm 1cm 1in 1ft od razu co pasuje.
I tak samo skalę .. wpiszę skalę 100 wymiaru i pamięta już tą skalę .. potrzebuję większej wpisuje 200, każdy wymiar może i jest w oddzielnej skali.
[link widoczny dla zalogowanych] for ziro zł Smile


ja robię teraz tak:
zwcad>tools>options
zakładka user preferens
wybieram przycisk
right click customization
włączam lub włanczam enable-time....
pozostawiam 250 milisecond

w sekcji edit mode wybieram repeat last command.

Zatwierdzam i zamykam.

ss jest skrótem do komendy skalanowa
df jest skrótem do komendy wymiar linear.

wczytuje plik freekon.dwt

ss (enter prawym klawiszem myszy) lewą ręką wpisuje 10 (enter -mysz) df (enter-mysz) rysuję wymiar w skali 1:10 ss (enter) wpisuje 20 enter dim enter up enter wskazuję wcześniej narysowany wymiar. Mam wymiar (ten sam w nowej skali).

For 0 zł . Jedynie - nie dla opornych Twisted Evil

działa w autocad jak i zwcad+2014. To dla mnie najważniejsze. Nie namawiam użytkowników Microstation do współpracy. Wink
Pytanie czy zadziała w ZWCad Classic? W wersji demo.

Równie dobrze, ktoś może powiedzieć ten sam program w innym języku. Proszę - napisałem. Robi to samo.


Post został pochwalony 0 razy

Ostatnio zmieniony przez Parikon dnia Nie 19:53, 17 Sty 2016, w całości zmieniany 5 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
ProjektK66
Doświadczony Forumowicz



Dołączył: 29 Sie 2012
Posty: 1778
Przeczytał: 0 tematów

Pomógł: 25 razy
Ostrzeżeń: 0/5
Skąd: Krosno

PostWysłany: Nie 19:52, 17 Sty 2016    Temat postu:

A może wywołanie skrótem klawiaturowym ? jeśli już idzie programowo ?

Post został pochwalony 0 razy

Ostatnio zmieniony przez ProjektK66 dnia Nie 19:54, 17 Sty 2016, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
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: Nie 19:54, 17 Sty 2016    Temat postu:

ProjektK66 napisał:
A może wywołanie skrótem klawiaturowym ? jeśli już idzie programowo ?


Przecież już go wywołuje skrótem.

Ściągasz ZWCada demo o ile można w nim uruchamiać lispy.
Na dysku tworzysz dowolny folder o dowolnej nazwie.
W tym folderze umieszczasz start.lsp i skala.lsp
Wchodzisz tools>options lub narzędzia>opcje tak chyba będzie po polsku.
Tam masz zakładkę files (pliki)
w Support file search path wskazujesz ten folder z lispami
Wchodzisz w tools>load aplication>star-up suite i wskazujesz lisp start.lsp

Od tej pory lisp skala.lsp będzie ci się uruchamiał przy starcie.

Teraz wchodzisz w tools>customize>edit program paramete *.pgp
otworzy ci plik tekstowy
Na samej górze lub samym dole dodajesz to co napisałem wyżej.

Kod:
;********************************************************
;###       GRUPA ALIASÓW PAKIETU FREEKONSTRUKTOR        ###
;********************************************************
; Lispy obsługujące SKALA
SS,      *SKALANOWA
; Aliasy zalecane
DF,       *DIMLINEAR



Post został pochwalony 0 razy

Ostatnio zmieniony przez Parikon dnia Nie 20:07, 17 Sty 2016, w całości zmieniany 2 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
ProjektK66
Doświadczony Forumowicz



Dołączył: 29 Sie 2012
Posty: 1778
Przeczytał: 0 tematów

Pomógł: 25 razy
Ostrzeżeń: 0/5
Skąd: Krosno

PostWysłany: Nie 20:03, 17 Sty 2016    Temat postu:

ss jest skrótem do komendy skalanowa
df jest skrótem do komendy wymiar linear.
[link widoczny dla zalogowanych] racja
Czy ZwCAD ma wbudowany arkusz kalkulacyjny ?


Post został pochwalony 0 razy

Ostatnio zmieniony przez ProjektK66 dnia Nie 20:04, 17 Sty 2016, w całości zmieniany 1 raz
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 -> Programowanie Wszystkie czasy w strefie EET (Europa)
Idź do strony Poprzedni  1, 2, 3, 4, 5, 6  Następny
Strona 3 z 6

 
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