Something is wrong with my polar function

[harrison-matt]

All,

 

I am having some issues with my polar function:

 

(setq pre_ang 0)
(setq ang (/ (* 3 pi) 2))
(setq int '(46.8854 43.1495 0.0))
(setq apt_int '(52.8854 49.1495 0.0))
(setq width 6)
(setq ptLst
(mapcar
   '(lambda(x)(trans x 0 1))
	(list
	  (setq eli int)
	  (setq el1 (polar eli (+ pi pre_ang) (/ width 3.)))
	  (setq el2 (polar el1 (+ (/ pi 2) pre_ang) width))
	  (setq el3 (polar eli ang (/ width 3.)))
	  (setq el4 (polar el3 (+ (/ pi 2) ang) width))
	  (setq ela apt_int)
	 )
 )
)
(mapcar '(lambda (x)(command "point" x)) ptlst)

 

el1 and el3 are not going in correctly...

_$
(polar '(46.8854 43.1495 0.0) 3.14159 2.0) ;entered in console [el1]
(44.8854 43.1495 0.0) ; return

Any thoughts why this is not working for me?

 

Kind Regards,

 

Matt

Edited April 16, 2011 by harrison-matt
Was missing the pre_ang and ang values. I added a point function. I added my evaluation.

[harrison-matt]

(setq ptLst (mapcar
              '(lambda(x)(trans x 0 1))
                 (list
                    int
                    (polar int (+ pi pre_ang) (/ width 3.))
                    (polar apt_int (+ pi pre_ang) (+ (/ width 3) width))
                    apt_int
                    (polar int ang (/ width 3.))
                    (polar apt_int ang (+ (/ width 3) width))
                    apt_int )))
(mapcar '(lambda (x)(command "point" x)) ptlst))

 

I simplified my code.... Still is not working as it should...

[harrison-matt]

Well... it works when i draw a polyline, but not when i am using points to show them.... any thoughts why?

[Lee Mac]

Consider OSnap perhaps - change:

 

(mapcar '(lambda (x)(command "point" x)) ptlst))

 

to:

 

(mapcar '(lambda (x)(command "_.point" "_non" x)) ptlst))

[David Bethel]

Well... it works when i draw a polyline, but not when i am using points to show them.... any thoughts why?

 

Points are alway WCS.