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
	» infinity 06:25 » XepeR 06:24 » dugi 06:19 » Demo 06:12 » BONUS 05:48 » Promilus 05:45 » @GUTEK@ 05:30 » alien1 05:16 » ini1 05:14 » PiotrexP 04:11 » Shark20 03:09 » cVas 03:07 » Zibi 02:45 Dzisiaj przeczytano 41119 postów, wczoraj 25974 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------