topic Re: superflatten lisp in Visual LISP, AutoLISP and General Customization Forum

superflatten lisp

dvir860 — Sun, 23 Feb 2020 16:50:31 GMT

I have a lip that flattens the drawing to z=0.
I want the Lisp to be set to run automatically on all drawing (without having to manually select elements) and not to open a SuperFlatten options dialog.
What do I need to change or add to the code to do this?

Re: superflatten lisp

pendean — Sun, 23 Feb 2020 22:17:14 GMT

Google Search offers lots of answers including this one http://www.lee-mac.com/autoloading.html

Re: superflatten lisp

dvir860 — Mon, 24 Feb 2020 07:06:45 GMT

The link you have attached shows how to load lisps and this I know how. I asked about editing the code.

Re: superflatten lisp

ronjonp — Mon, 24 Feb 2020 15:17:19 GMT

Download the latest version HERE. Not sure if there is a command line call though.

Re: superflatten lisp

dvir860 — Sun, 23 Aug 2020 07:28:53 GMT

I didn't found solution to my problem. Is anybody know what I need to change in the code that it will solve my problem?

Re: superflatten lisp

dlanorh — Sun, 23 Aug 2020 08:36:01 GMT

It would be pointless altering the superflatten code to do what you want. Try this snippet.

(defun rh:saeou (o / lst) (setq lst (list (list 0.0 0.0 0.0) (list 0.0 0.0 1.0e99) (list 0.0 0.0 1.0e-99) (list 0.0 0.0 0.0))) (while (> (length lst) 1) (vlax-invoke o 'move (car lst) (cadr lst)) (setq lst (cdr lst)) );end_while );end_defun (vl-load-com) (defun c:flatdwg ( / ss cnt) (setq ss (ssget "_X")) (cond (ss (princ "Flattening Drawing. Please Wait.") (repeat (setq cnt (sslength ss)) (rh:saeou (vlax-ename->vla-object (ssname ss (setq cnt (1- cnt))))) );end_repeat ) (t (alert "Nothing Found")) );end_cond (princ) );end_defun (c:flatdwg) (princ)

It should run when loaded.

See HERE for options on how/where to place it.

Re: superflatten lisp

dvir860 — Sun, 23 Aug 2020 08:56:18 GMT

Your lisp isn't flat elements that into blocks.

Re: superflatten lisp

diagodose2009 — Sun, 23 Aug 2020 10:25:19 GMT

You make a demo.Avi .

Can you test this programe flatthen.lsp with many capture-picture BeforeXX.Jpg and AfterXX.JPg..? I need a demo Video , . You put this Video to youtube.com/your-account

Re: superflatten lisp

dlanorh — Sun, 23 Aug 2020 11:23:53 GMT

@dvir860 wrote:
Your lisp isn't flat elements that into blocks.

What type of blocks? xrefs? dynamic? static?

Re: superflatten lisp

dvir860 — Sun, 23 Aug 2020 11:33:24 GMT

I meant that your lisp is not the same as mine because the lisp does indeed surface elements to Z = 0 but does not surface elements within the blocks so it does not help me what you attached.
I'ne interested in using my lisp but without having to manually select elements and not to open a SuperFlatten options dialog.

Re: superflatten lisp

dlanorh — Sun, 23 Aug 2020 12:36:03 GMT

And my question was in what type of blocks do you want the elements flattened, bearing in mind that flattening 3d dynamic blocks will probably break them.

Re: superflatten lisp

john.uhden — Tue, 25 Aug 2020 18:41:18 GMT

Try this one adapted from an oldie of mine...

(defun c:FlattenAll ( / *error* vars vals @flatten cmd ss i n e0 e ent etyp fixed) ;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ;* * ;* FlattenAll.LSP by John F. Uhden * ;* 2 Village Road * ;* Sea Girt, NJ 08750 * ;* * ;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ;; Changes the Z value or 38 code to 0.0 for all objects, including ;; their subentities such as heavy vertices and attributes. ;; Locked layer checking removed. ; v1.0 (8-27-99) ; v15.00 (04-07-00) for R15 (gc) (vl-load-com) (princ "FlattenAll (c)1999-2020, John F. Uhden\n") (princ "Adapted from Z0.lsp (c)1999-2000\n") (defun *error* (error) (mapcar 'setvar vars vals) (vla-endundomark *doc*) (cond ((not error)) ((wcmatch (strcase error) "*QUIT*,*CANCEL*")) (1 (princ (strcat "\nERROR: " error))) ) (princ) ) (setq vars '(cmdecho)) (setq vals (mapcar 'getvar vars)) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*))) (vla-endundomark *doc*) (vla-startundomark *doc*) (mapcar 'setvar vars '(0)) (command "_.expert" (getvar "expert")) ;; dummy command ;;-------------------------------------------------------------------- ;; Function to dig into each entity or subentity and change either its ;; 10, 11, 12, 13, or 38 code to 0.0: ;; (defun @flatten (ent / new) (foreach item ent (cond ((and (= (car item) 38)(/= (cdr item) 0.0)) (setq new (cons 38 0.0) ent (subst new item ent) ) ) ((and (/= etyp "LWPOLYLINE")(vl-position (car item) '(10 11 12 13)) (not (atom (cdr item))) (> (length item) 3) (/= (last item) 0.0)) (setq new (reverse (cons 0.0 (cdr (reverse item)))) ent (subst new item ent) ) ) ) ) (setq fixed (or fixed new)) (if new (entmod ent)) ) (setq i 0 N 0) (vlax-for block (vlax-get *doc* 'blocks) (vlax-for obj block (prompt (strcat "\rProcessing # " (rtos (1+ i) 2 0))) (setq e0 (vlax-vla-object->ename obj) e e0 ent (entget e) etyp (cdr (assoc 0 ent)) fixed nil i (1+ i) ) (if (assoc 66 ent) (while (/= (cdr (assoc 0 ent)) "SEQEND") (@flatten ent) (setq e (entnext e) ent (entget e)) ) (@flatten ent) ) (if fixed (progn (entupd e0) (setq n (1+ n)) ) ) ) ) (prompt (strcat "\nChanged " (rtos n 2 0) " objects to elevation 0.")) (*error* nil) ) (defun c:FA ()(c:FlattenAll))

Re: superflatten lisp

john.uhden — Mon, 31 Aug 2020 22:43:26 GMT

I didn't like the name, so it is now SQUASH.

(defun c:SQUASH ( / *error* vars vals @Anonymous ss i n e0 e ent etyp squashed) ;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ;* * ;* SQUASH.LSP by John F. Uhden * ;* 2 Village Road * ;* Sea Girt, NJ 08750 * ;* * ;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ;; Changes the Z value or 38 code to 0.0 for all objects, including ;; their subentities such as heavy vertices and attributes. ;; Locked layer checking removed. ; v1.0 (8-27-99) ; v15.00 (04-07-00) for R15 ; v??.0 (8-31-2020) renamed from FlattenAll.lsp (gc) (vl-load-com) (princ "Squash (c)1999-2020, John F. Uhden\n") (princ "Adapted from Z0.lsp (c)1999-2000\n") (defun *error* (error) (mapcar 'setvar vars vals) (vla-endundomark *doc*) (cond ((not error)) ((wcmatch (strcase error) "*QUIT*,*CANCEL*")) (1 (princ (strcat "\nERROR: " error))) ) (princ) ) (setq vars '(cmdecho)) (setq vals (mapcar 'getvar vars)) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*))) (vla-endundomark *doc*) (vla-startundomark *doc*) (mapcar 'setvar vars '(0)) (command "_.expert" (getvar "expert")) ;; dummy command ;;-------------------------------------------------------------------- ;; Function to dig into each entity or subentity and change either its ;; 10, 11, 12, 13, or 38 code to 0.0: ;; (defun @Anonymous (ent / new) (foreach item ent (cond ((and (= (car item) 38)(/= (cdr item) 0.0)) (setq new (cons 38 0.0) ent (subst new item ent) ) ) ((and (/= etyp "LWPOLYLINE")(vl-position (car item) '(10 11 12 13)) (not (atom (cdr item))) (> (length item) 3) (/= (last item) 0.0)) (setq new (reverse (cons 0.0 (cdr (reverse item)))) ent (subst new item ent) ) ) ) ) (setq squashed (or squashed new)) (if new (entmod ent)) ) (setq i 0 N 0) (vlax-for block (vlax-get *doc* 'blocks) (vlax-for obj block (prompt (strcat "\rProcessing # " (rtos (1+ i) 2 0))) (setq e0 (vlax-vla-object->ename obj) e e0 ent (entget e) etyp (cdr (assoc 0 ent)) squashed nil i (1+ i) ) (if (assoc 66 ent) (while (/= (cdr (assoc 0 ent)) "SEQEND") (@squash ent) (setq e (entnext e) ent (entget e)) ) (@squash ent) ) (if squashed (progn (entupd e0) (setq n (1+ n)) ) ) ) ) (prompt (strcat "\nSquashed " (rtos n 2 0) " objects to elevation 0.")) (*error* nil) ) (defun c:SQ ()(c:Squash))

Re: superflatten lisp

abdelhalim_bousmaha — Fri, 16 Sep 2022 07:11:27 GMT

Thank you very much John

Re: superflatten lisp

silvestresallesjunior4 — Thu, 28 Sep 2023 12:28:18 GMT

hi, in my case i neet to keep the blocks but in some case the block is exploded, I'll shere the picture and dwg. Can you help me?

Re: superflatten lisp

john.uhden — Thu, 28 Sep 2023 23:52:38 GMT

@silvestresallesjunior4 ,

Have you tried my SQUASH program? It can easily be made to run automatically on start-up with every drawing. No user input is required.

Re: superflatten lisp

bhoomika66Q5H — Mon, 23 Dec 2024 12:44:07 GMT

TOTALLY WORKED FOR ME

Re: superflatten lisp

fceinos — Thu, 05 Mar 2026 10:34:11 GMT

Hi John,

I’ve tested the definition, but I’m getting this error message. Could you please help me with this?

Many thanks!

Re: superflatten lisp

john.uhden — Thu, 05 Mar 2026 23:23:35 GMT

@fceinos ,

Sounds like you lost some of the source code.

Here it is again (attached).

Re: superflatten lisp

fceinos — Fri, 06 Mar 2026 08:52:58 GMT

Thank you very much, @john.uhden . It works perfectly now. I am currently trying to update the routine to flatten blocks and AutoCAD proxy entities as well, but I haven't had any luck with the proxies so far. Regards.