|
TwojePC.pl © 2001 - 2026
|
 |
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------
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2026, TwojePC.PL |
 |
|
|
|
