Witam!
Podrzucam mały lispik, który być może rozwiąże problem.
;;;*****************
(defun c:lstud (/ pt1 pt10 pt121 pt122 pt121p pt121l pt2 pt20 r a oldmode)
(setq r 1 ;;;promien
a (* 2 r) ;;;bok trojkata
pt2 (list 0 0)
oldmode (getvar "osmode")
)
(setq pt1 (getpoint "\nWskaż punkt początkowy: "))
(command "_circle" pt1 r)
(while pt2
(progn
(if (setq pt2 (getpoint pt1 "\nWskaż następny punkt: "))
(progn
(setq
pt10 (polar pt1 (angle pt1 pt2) r)
pt121 (polar pt1 (angle pt1 pt2) (- (/ (distance pt1 pt2) 2.0) (/ (* a (sqrt
3.0)) 4) ))
pt122 (polar pt1 (angle pt1 pt2) (+ (/ (distance pt1 pt2) 2.0) (/ (* a
(sqrt 3.0)) 4) ))
pt121p (polar pt121 (- (angle pt1 pt2) (/ pi 2.0)) (/ a 2.0))
pt121l (polar pt121 (+ (angle pt1 pt2) (/ pi 2.0)) (/ a 2.0))
pt20 (polar pt1 (angle pt1 pt2) (- (distance pt1 pt2) r))
pt1 pt2
)
(setvar "osmode" 0)
(command
"_circle" pt2 r
"_line" pt10 pt121 pt121p pt122 pt121l pt121 ""
"_line" pt122 pt20 ""
)
(setvar "osmode" oldmode)
)
)
)
);while
(princ "\nKoniec lstud")
(princ)
)
;;PK
;;***************************
Właściwie to już niewiele brakuje, aby programik rysował polylinię lub
zapisywał współrzędne studzienek.
Pozdrowienia
Piotr Knyś
Amig0 <amigo2me@interia.pl> napisał(a):
> W dniu 2010-05-07 20:09, Wojtek pisze:
>
> >
> > Witam
> > Jeżeli projektujesz kanalizację mając do dyspozycji tylko "czystego"
> > Autocada to szczerze współczuje.
>
> >
> > I po sprawie.
> > Pozdrawiam
> > Wojtek
>
> Nie, a tak źle to nie jest, do profili mam program, któremu wczytuję
> wierzchołki polilinii wyciągnięte poleceniem "lista" i dalej już łatwo
> tworzę profil w nim.
> Tylko najpierw muszę wrysować trasę, powstawiać studnie i strzałki,
> potem dopiero pociągnąć to polilinią żeby dostać współrzęne, szukałem
> sposobu żeby od razu rysować polilinią, zadać jej styl linii który by za
> mnie załatwił studnie i oznaczenia kierunku spływu.
--
Wysłano z serwisu Usenet w portalu Gazeta.pl ->
http://www.gazeta.pl/usenet/