also flatten inside the blocks?

The lisp "Flatten" does flatten the insertion points of the blocks and all
other elements, but doesn't flatten the lines IN the Block. I've tried to
find a version which does it but haven't found it. Is there a lips that also
flattens the inner elements of blocks and attributes?
Is the only way to explode the blocks first? I hope not....

Hope some can help,

Laura

 

Laura,

Maybe run flatten while using refedit?

Joe Burke

 

Select the blocks, then control+1 for properties and change the Z Scale factor to 1e-99

 

hi Joe,

Flatten works in blocks. That is not the problem. But I have to do it with a
lot of different blocks before I have changed the whole drawing. And the
Attributes in with the block are a bigger problem then, because you can't
change them at all. When you use -ATTEDIT to change the position of the
attribute you have to fill in a 2D point.

laura

 

That is not realy the problem. Flatten changes the z-coordinate of the
insertionpoint of the block to zero, but not the elements/lines INSIDE the
block. And also the attributes stay at a Z-level. Ofcourse I can use the
flatten while using refedit, but i have to do a whole lot of blocks that way
in one drawing. And the attribute stays on a Z-level

Laura

factor to 1e-99

 

That is not realy the problem. Flatten changes the z-coordinate of the
insertionpoint of the block to zero, but not the elements/lines INSIDE the
block. And also the attributes stay at a Z-level. Ofcourse I can use the
flatten while using refedit, but i have to do a whole lot of blocks that way
in one drawing. And the attribute stays on a Z-level

Laura

factor to 1e-99

 

Laura,

I think this is right, but I only tested it once. Try it on a copy of your drawing.

Joe Burke

(defun c:FlattenLaura ( / blocks stpt enpt inspt )
(setq blocks
(vla-get-blocks
(vla-get-activedocument
(vlax-get-acad-object))))
(vlax-for blk blocks
(vlax-for item blk
(if (= "AcDbLine" (vlax-get item 'ObjectName))
(progn
(setq stpt (vlax-get item 'StartPoint))
(setq stpt (subst 0.0 (caddr stpt) stpt))
(vlax-put item 'StartPoint stpt)
(setq enpt (vlax-get item 'EndPoint))
(setq enpt (subst 0.0 (caddr enpt) enpt))
(vlax-put item 'EndPoint enpt)
)
)
(if (= "AcDbAttributeDefinition" (vlax-get item 'ObjectName))
(progn
(setq inspt (vlax-get item 'InsertionPoint))
(setq inspt (subst 0.0 (caddr inspt) inspt))
(vlax-put item 'InsertionPoint inspt)
)
)
)
)
(princ)
) ;end

 

<<That is not realy the problem. Flatten changes the z-coordinate of the insertionpoint of the block to zero>>

You missed my point, I said change the Z "SCALE" to 1e-99. that makes the z-"SCALE" factor essentially 0, or flat.

 

Laura, you did miss his point.

 

I'm very sorry, I didn't do it correctly.
Even the attributes are going with it. Great!

Thanks

Laura