Draw outline of blocks

Does anyone have a lisp routine that will draw an outline of a block, or all blocks, contained within a drawing??

Thanks.

 

No one can supply an example on how to accomplish this ??

 

Well now that you're asking for no one.

;;9/29/04 Bill Zondlo
;
;
;
(defun c:BBox_Pts (/ AcadObj p1 p2 p3 p4)
(setq AcadObj (vlax-ename->vla-object (car (entsel)))
)

(vla-GetBoundingBox AcadObj 'MinPnt 'MaxPnt)
(setq p1 (vlax-safearray->list MinPnt)
p2 (vlax-safearray->list MaxPnt)
p3 (list (car p1)(cadr p2))
p4 (list (car p2)(cadr p1))
)

(grvecs (list -4 p1 p3 p3 p2 p2 p4 p4 p1))

(list p1 p2)
)

hth

Bill

 

thanks for your help....

With this though, a box is drawn around the block.
I need a actual outline of the block drawn.

 

Sorry,
I mis-read your post.

Bill

 

Just a thought,

If these are simple 2d blocks, you could use nentsel to get the outside entity(s) and recreate that entity from the eintity information.

Bill

 

Here is a way to do it. It is only a start, and idea, but it can lead you where you want to go.

(setq tbl1 (tblobjname "block" "temp"))
(while (setq tbl1 (entnext tbl1))
(setq tm1 (cons (entget tbl1) tm1))
)
(mapcar 'entmake tm1)

It worked on my little 4 item test block.
Tim