do znających się na auto cad (auto lisp)

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Zbyl 09:02 » ligand17 09:00 » Conan Bar 09:00 » cVas 08:56 » rkowalcz 08:53 » ulan 08:53 » Kenny 08:46 » Emios 08:41 » Janusz 08:38 » rooter666 08:36 » myszon 08:34 » Matti 08:33 » Logic-3 08:31 » Ament 08:29 » @GUTEK@ 08:27 » Artaa 08:18 » GLI 08:15 » HetmaN72 08:06 » MARtiuS 08:01 » pawcio 07:59 Dzisiaj przeczytano 15900 postów, wczoraj 62174 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

do znających się na auto cad (auto lisp) , Hawaj 31/01/05 18:11
problem jest tak:
"Na ekranie narysowano polilinie złożoną z dwóch odcinków prostych.
Napisz program rysujący okrąg przechodzący przez trzy wierzchołki tej polilinii"

tutaj jest do tego programik:

(defun c:3pcir()
(setq ss(ssget "X" '((0 . "LWPOLYLINE"))) count(sslength ss) i 0 ipt 0)
(if(= count 1)
(progn
(command "_circle""_3p")
(setq ssdane(entget(ssname ss i)))
(while(and(assoc 10 ssdane)(< ipt 3))
(print ssdane)
(setq pt(cdr(assoc 10 ssdane)) ipt(1+ ipt) ssdane(cdr(member(assoc 10 ssdane)ssdane)))
(command pt)
);while
);progn
)
(princ)
)

Czy ktoś mógły by mi wytłumaczyć o co w nim chodzi (porobić komentarze) albo coś, dzięki za odpowiedz i pozdrawiam

hmm , Dabrow 31/01/05 23:37
autolispy niestety (bo to świetne narzędzie) są mi obce - żyję na poziomie maxi juzera ale nie lispera...
!!!!!TO JEST SPARTA!!!
!Tu się nic nie zmienia!
------dabrow.com------