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

[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.