CAD Fórum : Programek v AutoLispu 2 https://www.cadforum.cz/forum/ Wed, 10 Jun 2026 20:10:46 +0000 Wed, 22 Apr 2009 16:28:54 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=8522 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Programek v AutoLispu 2 : V první části si vyberete zda...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8522&PID=43261&title=programek-v-autolispu-2#43261 Autor: alfred
Předmět: 8522
Zasláno: 22.dub.2009 v 16:28

V první části si vyberete zda budete zadávat velikost strany číslem, nebo myší.
V druhé zadáte požadovaným způsobem vzdálenost.
Pak už se nastavují jen nějaké hodnoty bodů a nakonec to spojí úsečkami.

V první části to není řešeno zrovna nejobratněji, ale možná to funguje... (nezkoušel jsem).

]]> Wed, 22 Apr 2009 16:28:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8522&PID=43261&title=programek-v-autolispu-2#43261 <![CDATA[Programek v AutoLispu 2 : Dobrý den.Nasel sem jeden programek...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8522&PID=43260&title=programek-v-autolispu-2#43260 Autor: Petrš
Předmět: 8522
Zasláno: 22.dub.2009 v 16:17

Dobrý den.   Nasel sem jeden programek a neni mi jasne jak pracuje
prvni cast programu. Predem dekuji za vysvetleni.
 
(defun C:rovina ()
(setq x (getstring "Zadejte velikost strany [a] nebo myší [M]:"))
(if (= x "")(EXIT))
(if (= (strcase x) "M")
(setq a (getdist '(0 0 0) "Určete vzdálenost od počátku: "))
(setq a (atof x))        
)

(setq p1 '(0 0 0))
(setq p2 (list a 0 0))
(setq p3 (list a 0 a))
(setq p4 (list 0 0 a))
(setq p5 (list 0 a 0))
(setq p6 (list a a 0))
(setq p7 (list a a a))
(setq p8 (list 0 a a))
(setq p9 (list (/ a 3) 0 0))
(setq p10 (list (/ a 3) a a))
(setq x1 (- a (/ a 3)))
(setq p11 (list  x1 0 0))
(setq p12 (list x1 0 a))
(setq p13 (list  0 x1 a))
(setq p14 (list  0 x1 0))

(command "_line" p1 p2 p3 p4 p1"")
(command "_line" p5 p6 p7 p8 p5"")
(command "_line" p1 p5"")
(command "_line" p2 p6"")
(command "_line" p3 p7"")
(command "_line" p4 p8"")
(command "_line" p1 p6"")
(command "_line" p11 p12 p13 p14 p11"")
(command "_zoom" "m")                             
)
 
]]> Wed, 22 Apr 2009 16:17:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8522&PID=43260&title=programek-v-autolispu-2#43260