CAD Fórum : zadání bodu https://www.cadforum.cz/forum/ Sat, 13 Jun 2026 12:49:19 +0000 Mon, 22 Dec 2008 17:15:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=7800 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[zadání bodu : Ano, máte pravdu. V MAPu 2006...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39328&title=zadani-bodu#39328 Autor: alfred
Předmět: 7800
Zasláno: 22.pro.2008 v 17:15

Ano, máte pravdu. V MAPu 2006 se v příkazu [CMD]BOD[/CMD] (_POINT) zadá jeden bod a příkaz končí, nemusí se entrovat prázdné zadání a tudíž ta dvojce uvozovek je zbytečná.
Nezkoušel jsem to před napsáním příspěvku a už si ani nepamatuji v jaké verzi to takhle fungovalo a jestli jsem se prostě nespletl... Embarrassed



]]> Mon, 22 Dec 2008 17:15:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39328&title=zadani-bodu#39328 <![CDATA[zadání bodu : Pokud se jedná o křivku tak bych...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39327&title=zadani-bodu#39327 Autor: chlebovsky
Předmět: 7800
Zasláno: 22.pro.2008 v 10:09

Pokud se jedná o křivku tak bych to řešil takto :
(defun c:kkk (/)
  (setq pocet 601)
  (setq ent (list (cons 0 "LWPOLYLINE")
    (cons 100 "AcDbEntity")
    (cons 67 0)
    (cons 410 "Model")
    (cons 8 "0")
    (cons 100 "AcDbPolyline")
    (cons 90  pocet)
    (cons 70 0)
    (cons 43 0.0)
    (cons 38 0.0)
    (cons 39 0.0)))
  (while (> pocet 0)
    (setq x (* 0.01 (- pocet 601)))
    (setq y (* 2 pocet))
    (setq ent (append ent (list (cons 10 (list x y 0.0)))))
    (setq ent (append ent (list (cons 40 0.0))))
    (setq ent (append ent (list (cons 41 0.0))))
    (setq ent (append ent (list (cons 42 0.0))))
    (setq pocet (- pocet 1))
  )
  (setq ent (append ent (list (cons 210 (list 0.0 0.0 1.0)))))
  (entmakex ent)
)
 
Jinak s těma uvozovkama to ale není tak úplně pravda. Záleží na verzi cadu, jestli se jedná o samotný dod, či multibod.
To ale otestujete tak že prostě napíšete :
a) (command "_point" (list x y)) a příkaz skončí
nebo
b) (command "_point" (list x y)) a příkaz bude chtít zadávat další bod, pak budete muset ty uvozovky napsat.


 
]]> Mon, 22 Dec 2008 10:09:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39327&title=zadani-bodu#39327 <![CDATA[zadání bodu : bod musí být ve formátu LIST.(list...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39322&title=zadani-bodu#39322 Autor: alfred
Předmět: 7800
Zasláno: 21.pro.2008 v 22:32

bod musí být ve formátu LIST.
(list x y z)
např. bod X,Y,Z=1,2,3  je :
(list 1 2 3)
jde to zadat i takhle:
'(1 2 3)

Pokud Vám to nepůjde zkuste se podívat jaký formát vrací funkce (getpoint)

Ve Vašem případě to bude :
(command "_point" (list x y) "")

PZN: ty koncové uvozovky "" jsou protože při příkazu _POINT je potřeba odentrovat pro ukončení příkazu





]]> Sun, 21 Dec 2008 22:32:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39322&title=zadani-bodu#39322 <![CDATA[zadání bodu : Dobrý den potřeboval bych poradit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39321&title=zadani-bodu#39321 Autor: zchmela
Předmět: 7800
Zasláno: 21.pro.2008 v 21:51

Dobrý den potřeboval bych poradit s jednoduchým prográmkem v lispu na kreslení křivky určené body x,y :
 
  (setq pocet 601)
  (while (> pocet 0)
    (setq x (* 0.01 (- pocet 601)))
    (setq y (* 2 pocet))
    (command "_point" x y)  ----- zde nevím jak zadat správnou syntaxi !!!
    (setq pocet (- pocet 1))
  )
Díky za radu
]]> Sun, 21 Dec 2008 21:51:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7800&PID=39321&title=zadani-bodu#39321