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
	» Wedrowiec 23:22 » Fl@sh 23:17 » Kilgor 23:15 » metacom 23:12 » cVas 23:12 » Dexter 23:10 » ToM78 22:52 » Kenny 22:50 » rooter666 22:46 » Ramol 22:42 » Menah 22:33 » DJopek 22:33 » Guli 22:05 » yeger 21:28 » Chrisu 21:18 » Sherif 21:06 » GULIwer 20:47 » Kenjiro 20:35 » PeKa 20:30 » Bergerac 20:23 Dzisiaj przeczytano 75046 postów, wczoraj 90545 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------