CAD Fórum : Lisp https://www.cadforum.cz/forum/ Tue, 09 Jun 2026 23:11:26 +0000 Thu, 14 Mar 2013 07:35:39 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=16136 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Lisp : Celý domácí úkol za vás asi nikdo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76769&title=lisp#76769 Autor: Vladimír Michl
Předmět: 16136
Zasláno: 14.bře.2013 v 07:35

Celý domácí úkol za vás asi nikdo dělat nebude, ale rádi poradíme. Projděte si také příklady LISP programů na http://www.cadforum.cz/cadforum/Vyvojove-prostredky-AutoCADu/
 
Všechny LISP programy (i ty výše uvedené) se dají volat v AutoCADu, bez něj ani nefungují (pro definici příkazu použijte (defun C:MUJPRIKAZ). Pro nakreslení oblouku slouží příkaz _ARC, pro jeho orotování můžte použít OTOČ3D nebo POLE. V LISPu jen zapisujete to co byste prováděl v AutoCADu ručně. Objemový model z drátového jde udělat jen těžko, tam použijte kód z druhého příspěvku v této diskusi.
]]> Thu, 14 Mar 2013 07:35:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76769&title=lisp#76769 <![CDATA[Lisp : Dobrý den,dnes jsem mluvil s profesorem,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76766&title=lisp#76766 Autor: krtecek1600
Předmět: 16136
Zasláno: 13.bře.2013 v 22:55

Dobrý den,

dnes jsem mluvil s profesorem, který mi řekl, že to chce celé dát dohromady a to tak,
že bude vytvořen program v lispu a ja si ho budu moct z autocadu zavolat.

s tím že to celé bude začínat bodem... z bodu udělám půlkruh a ten orotuji a budu mít drátový model a následně pak udělám objemový model.

na tohle opravdu nejsem  tak mi odpuste dotazy pro Vás možná absolutně základní věci,ale pro mne totálně španělská vesnice.

dik za odpověd

]]> Wed, 13 Mar 2013 22:55:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76766&title=lisp#76766 <![CDATA[Lisp : Přímo drátové modely AutoCAD negeneruje,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76698&title=lisp#76698 Autor: Vladimír Michl
Předmět: 16136
Zasláno: 11.bře.2013 v 08:23

Přímo drátové modely AutoCAD negeneruje, ale můžete si pomoci např. přes posloupnost:
 
_MESH _SPHERE
_EXPLODE
3DF2L _P
 
(3DF2L je naše utilita - viz download)
]]> Mon, 11 Mar 2013 08:23:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76698&title=lisp#76698 <![CDATA[Lisp : Děkuju za odezvu, a za program...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76696&title=lisp#76696 Autor: krtecek1600
Předmět: 16136
Zasláno: 10.bře.2013 v 21:20

Děkuju za odezvu,
a za program pro objemový model.

Mohl byste mi prosím ještě poradit jak bude vypadat program pro vytvoření drátového modelu.








Upravil krtecek1600 - 10.bře.2013 v 21:32]]> Sun, 10 Mar 2013 21:20:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=76696&title=lisp#76696 <![CDATA[Lisp : A jako vždy pozor na uchopování....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74324&title=lisp#74324 Autor: chlebovsky
Předmět: 16136
Zasláno: 22.lis.2012 v 16:02

A jako vždy pozor na uchopování.  _OSNAP aby se koule nechytala tam kde nemá, takže osnap vypnout, kouli nakreslit a osnap zapnot..]]> Thu, 22 Nov 2012 16:02:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74324&title=lisp#74324 <![CDATA[Lisp : Takže třeba (nezkoušeno): (defun...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74320&title=lisp#74320 Autor: Vladimír Michl
Předmět: 16136
Zasláno: 22.lis.2012 v 14:30

Takže třeba (nezkoušeno):
 
(defun C:COULE ( / p1 r)
 (setq p1 (getpoint "\nStřed koule: "))
 (setq r (getpoint p1 "\nPoloměr koule: "))
 (command "_SPHERE" p1 r)
 (princ)
)
]]> Thu, 22 Nov 2012 14:30:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74320&title=lisp#74320 <![CDATA[Lisp : potřeboval bych aby ten program...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74192&title=lisp#74192 Autor: krtecek1600
Předmět: 16136
Zasláno: 20.lis.2012 v 21:08

potřeboval bych aby ten program pro tu kouli vypadal nějak takto.... tenhle prográmek je pro vytvoření krychle. program je napsany v lispu. a pak použitý v cadu.



(defun C:KRYCHLE (/ bod1 bod2 bod3 bod4len ang bod5 bod6 bod7 bod8)
                   (setq bod1 (getpoint "\nBod prvního vrcholukrychle: "))
                   (setq bod2 (getpoint "\nBod druhého vrcholukrychle: "))
                   (setq len  (distance bod1 bod2))
                   (setq ang  (angle bod1 bod2))
                   (setq bod3 (polar bod2 (+ ang (/ pi 2.0)) len))
                   (setq bod4 (polar bod3 (+ ang pi) len))
                   (setq bod5 (list (car bod1) (cadr bod1) len))
                   (setq bod6 (list (car bod2) (cadr bod2) len))
                   (setq bod7 (list (car bod3) (cadr bod3) len))
                   (setq bod8 (list (car bod4) (cadr bod4) len))
                   (command "3DKŘIVKA" bod1 bod2 bod3bod4 bod1 bod5 bod8 bod4 bod3 bod7 bod8 bod7 bod6 bod5 bod6 bod2 "U"))


]]> Tue, 20 Nov 2012 21:08:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74192&title=lisp#74192 <![CDATA[Lisp : Myslím že pro tento účel bohatě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74162&title=lisp#74162 Autor: Vladimír Michl
Předmět: 16136
Zasláno: 20.lis.2012 v 13:18

Myslím že pro tento účel bohatě poslouží i standardní příkaz [CMD]PŘEVEĎDWG[/CMD], resp. TrueView - viz starší tip:
http://www.cadforum.cz/cadforum/qaID.asp?tip=4705
]]> Tue, 20 Nov 2012 13:18:08 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74162&title=lisp#74162 <![CDATA[Lisp : ScriptPro je generátor scriptů....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74160&title=lisp#74160 Autor: Seiner
Předmět: 16136
Zasláno: 20.lis.2012 v 13:08

ScriptPro je generátor scriptů. Jeho výhoda oproti jiným je, že do určité míry je schopen řešit selhání, nevýhoda podle mého je, že toto řešení vyžaduje prodlevy v zavírání výkresů.
  Jednoduché scripty /dema jde v podstatě tvořit pomocí notepadu, když si třeba za základ vezmete výstup příkazu Dir. Ale generátor má tu výhodu, že může (bez znalosti syntage Dir) prolézt adresářovou strukturu a "vysbírat" soubory, a že můžete mít připravené vyzkoušené sekvence příkazů pro různé účely.


Upravil Seiner - 20.lis.2012 v 13:09]]> Tue, 20 Nov 2012 13:08:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74160&title=lisp#74160 <![CDATA[Lisp : To neznám, co to umí? ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74159&title=lisp#74159 Autor: hoboj
Předmět: 16136
Zasláno: 20.lis.2012 v 12:35

To neznám, co to umí?]]> Tue, 20 Nov 2012 12:35:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16136&PID=74159&title=lisp#74159