Flatten inside of a block

[Anonymous]

So I have a flatten routian that works on a file in model space, but when I am in block editor, and run the app it reverts back to model space and finished the command, Is there a way to proform that same command and have it work in  the block editor?

(defun zeroz (key zelist / oplist nplist)
   (setq oplist (assoc key zelist)
         nplist (reverse (append '(0.0) (cdr (reverse oplist))))
         zelist (subst nplist oplist zelist)
   );setq
   (entmod zelist)
);defun

(prompt "\nFLATTEN v.2.1 loaded.  Type FLATTEN to run it.")
(princ)

[dbroad]

The function you posted appears to have no relationship to the flatten command.  The built-in flatten command seems to work in bedit although it does trigger a few error messages.  How is the built in flatten command not working for you?

[Anonymous]

My company did not load the express tools so I dont have a stock flatten command. Maybe I am just stuck until I get my IT department to load the Express tools.

[Anonymous]

Sorry, I didnt go high enough to copy all the code. Here it is.

					; FLATTEN.LSP version 2.1, 14 Mar 94
					;
					; FLATTEN sets the Z-coordinates of LINEs, POLYLINEs, CIRCLEs, ARCs,
					;  TEXT, Block INSERTs, POINTs, and SOLIDs to 0.
					;------------------------------------------------------------------------
					; copyright 1990, 1993, 1994 by Mark Middlebrook
					;   Daedalus Consulting
					;   435 Clifton Street
					;   Oakland, CA 94618
					;   CompuServe ID #73030,1604
					;
					; You are free to distribute FLATTEN.LSP to others so long as you do not
					; charge for it.
					;------------------------------------------------------------------------
					;*Why Use FLATTEN?:
					;
					; FLATTENing is useful in at least two situations:
					;  1) You receive a DXF file created by another CAD package and discover
					;     that all the Z coordinates contain small round-off errors. These
					;     round-off errors can prevent you from object snapping to intersections
					;     and make your life difficult in other ways as well.
					;  2) In a supposedly 2D drawing, you accidentally create one entity with a
					;     Z elevation and end up with a drawing containing entities partly in and
					;     partly outside the Z=0 X-Y plane. As with the round-off problem, this
					;     situation can make object snaps and other procedures difficult.
					;------------------------------------------------------------------------
					;*How to Use FLATTEN:
					;
					; FLATTEN v.2.1 requires AutoCAD Release 12, although you can run it with
					; previous versions of AutoCAD by deleting the underscores that proceed
					; command and suboption names. For example, change:
					;  (command "._UCS" "_Restore" ...)
					; to:
					;  (command ".UCS" "Restore" ...)
					;
					; To run FLATTEN, load it using AutoCAD's APPLOAD command, or type:
					;   (load "FLATTEN")
					; at the AutoCAD Command prompt. Once you've loaded FLATTEN.LSP, type:
					;   FLATTEN
					; to run it. FLATTEN will tell you what it's about to do and ask you
					; to confirm that you really want to flatten entities in the current
					; drawing. If you choose to proceed, FLATTEN prompts you to select entities
					; to be flattened (press ENTER to flatten all entities in the drawing).
					; After you've selected entities and pressed ENTER, FLATTEN goes to work.
					; It reports the number of entities it flattens and the number left
					; unflattenened (because they were entities not recognized by FLATTEN; see 
					; the list of supported entities above).
					;
					; If you don't like the results, just type U to undo FLATTEN's work.
					;
					; Note that FLATTEN flattens entities onto the Z=0 X-Y plane in AutoCAD's
					; world coordinate system (UCS).
					;------------------------------------------------------------------------

;(defun C:FLATTEN (/	  olderr  oldcmd  ss1	  ss1len  i
;		  numchg  numnot  numno0  ssno0	  ename	  elist
;		  etype	  yorn
;		 )
;					;*error handler
;  (setq olderr *error*)
;  (defun *error* (msg)
;    (if	(= msg "quit / exit abort")
;      (princ)
;      (princ (strcat "error: " msg))
;    )
;    (setq *error* olderr)
;    (command "._UCS"	       "_Restore"	 "$FLATTEN-TEMP$"
;	     "._UCS"	       "_Delete"	 "$FLATTEN-TEMP$"
;	    )
;    (command "._UNDO" "_End")
;    (setvar "CMDECHO" oldcmd)
;    (princ)
;  )
;
;					;*setup
;  (setq oldcmd (getvar "CMDECHO"))
;  (setvar "CMDECHO" 0)
;  (command "._UNDO" "_Group")
;  (command "._UCS" "_Save" "$FLATTEN-TEMP$" "._UCS" "World")
;					;set World UCS
;
;					;*get input
;  (prompt
;    "\nFLATTEN sets the Z coordinates of Lines, Polylines, Circles, "
;  )
;  (prompt
;    "\nArcs, Text, Block Inserts, Points, and Solids to zero."
;  )
;
;  (initget "Yes No")
;  (setq yorn (getkword "\nDo you want to continue <Y>: "))
;  (cond	((/= yorn "No")
;	 (graphscr)
;	 (prompt "\nChoose entities to FLATTEN ")
;	 (prompt
;	   "[press return to select all entities in the drawing]"
;	 )
;	 (setq ss1 (ssget))
;	 (if (null ss1)			;if enter...
;	   (setq ss1 (ssget "X"))	;select all entities in database
;	 )				;if
;
;
;					;*initialize variables
;	 (setq ss1len (sslength ss1)	;length of selection set
;	       i      0			;loop counter
;	       numchg 0			;number changed counter
;	       numnot 0			;number not changed counter
;	       numno0 0			;number not changed and Z /= 0 counter
;	       ssno0  (ssadd)		;selection set of unchanged entities
;	 )				;setq
;
;					;*do the work
;	 (prompt "\nWorking.")
;	 (while	(< i ss1len)		;while more members in the SS
;	   (if (= 0 (rem i 10))
;	     (prompt ".")
;	   )
;	   (setq ename (ssname ss1 i)	;entity name
;		 elist (entget ename)	;entity data list
;		 etype (cdr (assoc 0 elist)) ;entity type
;	   )				;setq
;
;					;*change group 10 Z coordinate to 0 for listed entity types
;	   (if (member etype
;		       '("LINE"	     "POLYLINE"	 "TEXT"
;			 "INSERT"    "CIRCLE"	 "ARC"
;			 "POINT"     "SOLID"
;			)
;	       )
;	     (setq elist  (zeroz 10 elist)
;					;change entities in list above
;		   numchg (1+ numchg)
;	     )				;setq
;	     (progn			;leave others alone
;	       (setq numnot (1+ numnot))
;	       (if (/= 0.0 (car (reverse (assoc 10 elist))))
;		 (progn			;add it to special list if Z /= 0
;		   (setq numno0 (1+ numno0))
;		   (ssadd ename ssno0)
;		 )			;progn
;	       )			;if
;	     )				;progn
;	   )				;if
;
;					;*change group 11 Z coordinate to 0 for LINEs, TEXT, and SOLIDs
;	   (if (member etype '("LINE" "TEXT" "SOLID"))
;	     (setq elist (zeroz 11 elist))
;	   )				;if
;
;					;*change groups 12 and 13 Z coordinate to 0 for SOLIDs
;	   (if (member etype '("SOLID"))
;	     (progn
;	       (setq elist (zeroz 12 elist))
;	       (setq elist (zeroz 13 elist))
;	     )
;	   )				;if
;
;	   (setq i (1+ i))		;next entity
;	 )				;while
;	 (prompt " Done.")
;
;					;*print results
;	 (prompt (strcat "\n" (itoa numchg) " entity(s) flattened"))
;	 (prompt
;	   (strcat "\n" (itoa numnot) " entity(s) not flattened")
;	 )
;
;	 (if (/= 0 numno0)		;if there any entities in ssno0, show them
;	   (progn
;	     (prompt (strcat "  ["
;			     (itoa numno0)
;			     " with non-zero base points]"
;		     )
;	     )
;	     (getstring
;	       "\nPress enter to see non-zero unchanged entities... "
;	     )
;	     (command "._SELECT" ssno0)
;	     (getstring "\nPress enter to unhighlight them... ")
;	     (command "")
;	   )				;progn
;	 )				;if
;	)
;  )					;cond
;
;  (command "._UCS"	     "_Restore"	       "$FLATTEN-TEMP$"
;	   "._UCS"	     "_Delete"	       "$FLATTEN-TEMP$"
;	  )
;  (command "._UNDO" "_End")
;  (setvar "CMDECHO" oldcmd)
;  (setq *error* olderr)
;  (princ)
;)					;defun
;
;
;
;					;*function to change Z coordinate to 0
;
;(defun zeroz (key zelist / oplist nplist)
;  (setq	oplist (assoc key zelist)
;	nplist (reverse (append '(0.0) (cdr (reverse oplist))))
;	zelist (subst nplist oplist zelist)
;  )					;setq
;  (entmod zelist)
;)					;defun
;
;(prompt "\nFLATTEN v.2.1 loaded.  Type FLATTEN to run it.")
;(princ)
;

[Anonymous · Accepted solution]

I got it to work. My IT depoartment needed to install express tools for me and that fixed the problem.