🚀 go-pugleaf

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/