Zobrazit plnou verzi příspěvku: Kružnice

Honzicek
27.02.2006, 13:27
dobrý den chtěl jsem se zeptat na zdrojový kod kružnice v autolispu...nějak nevim co se tam zadává.

myslim že by to mělo vypadat nějak takto:

(defun C:kružnice ()
(setq r (getreal"Zadejte poloměr kružnice:"))
(setq bod (getpoint"Zadejte střed kružnice:"))
(command "Kružnice(nebo cyrcle)" a ted nevim jaký se píšou
parametry,jestli první souřadnice středu a pak ten poloměr nebo
obráceně))

kdzžtak děkuji za odpověď


PepaR
27.02.2006, 13:34
prvni je stred

orlik
28.02.2006, 07:30
(command "_circle")
(command "_circle "3B")
(command "_circle "2B" pt1 pt2)

a dalsi jine varianty prikazu. Za "_circle" muze byt jeste bod z GetPointu, popripade polomer(prumer) kruznice pokud jsou tam 2B nebo 3B mohou byt tvorici body zadany programove, ne z GetPointu atd. Ale na to postupne prijdes sam.

Ferdinand
28.02.2006, 09:10
No tak si to prvně odzkoušejte v CADu a dívejte se na textové okno...