CADForums.net

Gustavo Guidi · Guest

How can I know the entities that a block is made of (that's a way to know
even if a block is nested)
Thanks

--
Gustavo Guidi
g_e_guidi@yahoo.com.ar

Bill DeShawn · Guest

One way:
If you suspect that an object within a block is another block you can list
it with XLIST.

You can use REFEDIT, pick everything in the block and then list everything
in the block.

You can explode a block, list all P(revious) objects, and then undo the
explode.

You are much more capable than you think!

--
Bill DeShawn
bdeshawn@nospamsterling.net
http://my.sterling.net~bdeshawn

"Gustavo Guidi" <gguidi@powernet.net.ar> wrote in message
news:41e3277c_2@newsprd01...

Jason Piercey · Guest

Not sure if this is the proper way to handle this
type of thing. If anyone knows a better way,
please share.

; Function to determine if a given object
; is nested in a block/insert definition.
; Arguments:
; [object] - vla-object
; return values: t, nil, or error message
; Example:
;(nestedObject-p (vlax-ename->vla-object (car (nentsel))))
(defun nestedObject-p (object)
(not
(wcmatch
(vla-get-name
(vla-objectidtoobject
(vla-get-document object)
(vla-get-ownerid object)))
"`*Model_Space,`*Paper_Space")) )

Comments anyone?

--
Autodesk Discussion Group Facilitator

"Gustavo Guidi" <gguidi@powernet.net.ar> wrote in message
news:41e3277c_2@newsprd01...

Luis Esquivel · Guest

Is this what you, are looking for?.... hth

(defun dxf (g e)
(cond
((= (type e) 'ename) (cdr (assoc g (entget e))))
((= (type e) 'list) (cdr (assoc g e)))))

;; scan a ename block and return a list of type and ename
;; (scanblock-lst blk)
;; (("TEXT" <Entity name: 7ef57ec0>)
;; ("LINE" <Entity name: 7ef57ec8>)
;; ("CIRCLE" <Entity name: 7ef57ed0>)
;; ("LWPOLYLINE" <Entity name: 7ef57ed8>))
(defun scanblock-lst (blk / enext entnames)
(setq enext
(cdr
(assoc
-2
(tblsearch
"block"
(dxf 2 (entget blk))))))
(while enext
(setq entnames
(cons (list (dxf 0 (entget enext)) enext)
entnames))
(setq enext (entnext enext)))
(reverse entnames))

--
For free AutoLisp/Visual Lisp resources go to:
http://www.draftteam.com/free.php?&lang=en

"Gustavo Guidi" <gguidi@powernet.net.ar> wrote in message
news:41e3277c_2@newsprd01...

	CADForums.net Forum Index -> Customization	All times are GMT
Page 1 of 1