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
	» Artaa 09:22 » wukillah 09:21 » jablo 09:13 » MayheM 09:11 » XepeR 09:10 » AdiQ 09:10 » Chrisu 09:03 » Fight 09:03 » jenot 09:01 » Ament 08:59 » Kenny 08:55 » DYD 08:53 » steve 08:51 » Magnus 08:50 » Dhoine 08:50 » KHot 08:48 » alkatraz 08:38 » maddog 08:37 » sofolok 08:20 » myszon 08:18 Dzisiaj przeczytano 112262 postów, wczoraj 408716 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------