Make the world go flat - FLATTEN

[jrb63]

Someone mentioned to me that they used to have a lisp routine at thier previous place of employment that would make all entities in a drawing have an elevation equal to zero and z-coordinate values of zero. This would make my life alot easier when I need to x-ref surveyor's drawing files into my plans. Does anybody have a lisp routine I could load into Architectural Desktop 2004? I could go crazy over the number of times I could not fillet a line that was drawn by snapping to something in the x-ref with a line I drew because they were not coplaner. Thanks for your help.
Jamie

[Opie]

Have you installed the Express Tools? It contains a FLATTEN command.

[Wanderer]

Jamie...

hi, if you don't have the express tools (or even if you do and want to try something different), check out the AUGI exchange, entry number EX001339 for Flatten.lsp.

also, check out some other 3D to 2D options people have come up with and shared...

Someone mentioned to me that they used to have a lisp routine at thier previous place of employment that would make all entities in a drawing have an elevation equal to zero and z-coordinate values of zero. This would make my life alot easier when I need to x-ref surveyor's drawing files into my plans. Does anybody have a lisp routine I could load into Architectural Desktop 2004? I could go crazy over the number of times I could not fillet a line that was drawn by snapping to something in the x-ref with a line I drew because they were not coplaner. Thanks for your help.
Jamie

[tedg]

Someone mentioned to me that they used to have a lisp routine at thier previous place of employment that would make all entities in a drawing have an elevation equal to zero and z-coordinate values of zero. This would make my life alot easier when I need to x-ref surveyor's drawing files into my plans. Does anybody have a lisp routine I could load into Architectural Desktop 2004? I could go crazy over the number of times I could not fillet a line that was drawn by snapping to something in the x-ref with a line I drew because they were not coplaner. Thanks for your help.
Jamie

Here's one I've had for a long time

(defun c:ELZ (/ cent el ent i na newel nst st stx)
   (princ "\nElevation Zero")

(defun WORKING ()
   (if (= wrkcnt nil)(setq wrkcnt 0))
   (setq wrkcnt (1+ wrkcnt))
   (if (= wrkcnt 1)(setq wrk "-"))
   (if (= wrkcnt 2)(setq wrk "\\"))
   (if (= wrkcnt 3)(setq wrk "|"))
   (if (= wrkcnt 4)
      (progn (setq wrk "/")(setq wrkcnt 0))
   )
   (princ (strcat "\n" wrk "\n"))
)
           
   (setq ent (ssget '((-4 . "<OR")(0 . "LINE")(0 . "TEXT")
      (0 . "POLYLINE")(0 . "LWPOLYLINE")(0 . "VERTEX")(0 . "ARC")
      (0 . "CIRCLE")(0 . "ELLIPSE")(0 . "INSERT")
      (0 . "MTEXT")(0 . "POINT")(-4 . "OR>")))
   )
   (setq el (sslength ent))
   (princ el)
   (setq i 0)
   (repeat el
      (working)
      (setq na (ssname ent i) i (1+ i))
      (setq cent (entget na))
      (setq st (assoc 10 cent))
      (setq stx (cadr st) sty (caddr st))
      (setq nst (list 10 stx sty 0.0))
      (setq newel (subst nst st cent))
      (entmod newel)
      (if (= (cdr (assoc 0 cent)) "LINE")
         (progn
            (setq na (ssname ent (- i 1)))
            (setq cent (entget na))      
            (setq st (assoc 11 cent))      
            (setq stx (cadr st) sty (caddr st))
            (setq nst (list 11 stx sty 0.0))
            (setq newel (subst nst st cent))
            (entmod newel)
         )
      )
   )
   (princ)
)

(princ)

command: ELZ (select everything you want to set to zero elevation)

Works great.

[Hammer.John.J]

the ldd one i find better...

Sorry for the *edit* but I believe it would best if this file was *not* posted on the AUGI web site, unless the author has given their permission. If you know of a web site that is hosting this file, please provide a link for others to follow.

AUGI can not take any chances with regard to Copyright infringements that may exist. It would be good manners to obtain the author's permission before posting their work.

Thanks for your understanding,

Richard
Forum Moderator

[lmitsou]

Give this a try...

http://discussion.autodesk.com/threa...hreadID=401072

Thanks,

[jrb63]

Have you installed the Express Tools? It contains a FLATTEN command.

Opie
I found the flatten command to not work completely. I tried it on a survey with contours in 3d and it did flatten the contours, but they shifted far away from their original x,y locations.
thanks
Jamie

[jrb63]

Melanie,

I tried the flatten command that came the express tools with limited success. I downloaded the file from the AUGI exchange that you suggested and it seems to work completely. Thanks for your help. I can see why they made you a supermoderator!

Jamie

[rana_2103603987]

Great work, thanks a lot