quick Q on formatting points.

i have two sets of points, taken on two different surveys.

having converted the survey info to dxf, im just at the point of insert the two separate surveys into the one model space and rotating them to fit into their real world position ontop of a map.

having done this, i go ahead and change the point style and lo and behold the X's are not all rotated the same extent!

i never realised that one model space could have any difference in point style.

and ive certainly no idea how to change the rotation of the points.

my aim is to have all the point X at the same degree rotation.

any help appreciated.

Phil

PhilMont,

The orientation of the point reflects the angle of the UCS that the point was created in. There may be other ways to do it, but this lisp program changes the angle of all points in the drawing to zero.

(defun c:fixpt (/ allpts llen n pname pell)
(setq allpts (ssget "X" '((0 . "POINT"))))
(setq llen (sslength allpts))
(setq n 0)
(while (< n llen)
 (setq pname (ssname allpts n))
 (setq pell (entget pname))
 (setq pell (subst (cons 50 0) (assoc 50 pell) pell))
 (entmod pell)
 (setq n (+ n 1))
)
(setq allpts nil)
(princ)
)

PhilMont,

The orientation of the point reflects the angle of the UCS that the point was created in. There may be other ways to do it, but this lisp program changes the angle of all points in the drawing to zero.

 

(defun c:fixpt (/ allpts llen n pname pell)
(setq allpts (ssget "X" '((0 . "POINT"))))
(setq llen (sslength allpts))
(setq n 0)
(while (< n llen)
 (setq pname (ssname allpts n))
 (setq pell (entget pname))
 (setq pell (subst (cons 50 0) (assoc 50 pell) pell))
 (entmod pell)
 (setq n (+ n 1))
)
(setq allpts nil)
(princ)
)

quick newbie q,

what exactly is a lisp program?

and do i just copy and paste the code into my command bar?>

sorry to make you answer such a silly question but i read lisp program on here everytime i log in, so i gotta ask sometime.

thanks in advance

Phil

Search and ye shall find...

http://www.cadtutor.net/forum/showthread.php?1390-How-to-use-the-LISP-routines-in-this-archive

why thank you.

Phil