Topic: Delete Objects on Layers from List

[CAB]

(vlar-yourwelcome Gary)

Not sure if it will work with ObjectDBX though

[T.Willey]

(vlar-yourwelcome Gary)

Not sure if it will work with ObjectDBX though

Nope.  You can't use (ssget.... ) with ObjectDBX.  I just code that way most of the time now, no biggie Alan.  If it's only for the current draiwng, no need to. 

[GDF]

Tim

Thanks

So is this how I should call it?

(DeletLays_ExplodeBlk
    (vla-get-ActiveDocument (vlax-get-Acad-Object)) '("A-ARE*" "A-DIM*" "A-NOT*" "A-PAT*" "A-SHT*" "A-SYM*") '("UT*"))

Gary

[T.Willey]

Tim

Thanks

So is this how I should call it?

(DeletLays_ExplodeBlk
    (vla-get-ActiveDocument (vlax-get-Acad-Object)) '("A-ARE*" "A-DIM*" "A-NOT*" "A-PAT*" "A-SHT*" "A-SYM*") '("UT*"))

Gary

For the current draiwng, yes.

[GDF]

Tim

Thanks. I was not sure. I get this error.

Because I can't speak vla I just want to be sure that the code expodes the blocks before deleteing the layers.


Command: (DeletLays_ExplodeBlk
(_>     (vla-get-ActiveDocument (vlax-get-Acad-Object))
(_>     '("A-ARE*" "A-DIM*" "A-NOT*" "A-PAT*" "A-SHT*" "A-SYM*")
(_>     '("UT*"))
; error: bad argument type: VLA-OBJECT nil

Gary

[LE]

vla-have vla-you vla-check vla-how vla-many vla-arguments vla-the vla-function vla-is vla-required vla-?

vlax-just vlax-guessing

[GDF]

vla-have vla-you vla-check vla-how vla-many vla-arguments vla-the vla-function vla-is vla-required vla-?

vlax-just vlax-guessing

Luis

vla-this-many -> (defun DeletLays_ExplodeBlk (Doc LayList BlkList / cnt)

Gary

[LE]

Have not tested Tim's code.... are you making sure that is possible to explode the block? and is not nested?, it is a valid list of blocks, it is check with vla-item? against vla-get-blocks?.... (again guessing)

[CAB]

Oops
<reply removed.>

[LE]

Code: [Select]

(vl-position (strcase (vla-get-Name x)) (mapcar 'strcase BlkList))

Notice in the above code line, you are passing a wild card name not the valid block name.... and I think in the other calls too.....

[GDF]

Luis

Have not tested Tim's code.... are you making sure that is possible to explode the block? and is not nested?, it is a valid list of blocks, it is check with vla-item? against vla-get-blocks?.... (again guessing)

Yes, the unit blocks are have been "bind inserted" from xrefs that can be exploded.
It is not nested. It does however occur multiple times within the building plan.

Example: "building plan" drawing file has the following unit plans that were xrefed, but are now blocks within the drawing:
UTA4  four blocks
UTA5  four blocks
UTA6  two blocks

I hope this is clear. If I understood vlisp better I could read Tim's code

Here is what I am using:

Code: [Select]

;;;by Tim Willey 8/24/06
  (defun ReloadBindXrefs  (Doc / XrefList LstLen TroubleList)
    (vlax-for
   Blk (vla-get-Blocks Doc)
      (if (= (vla-get-IsXref Blk) :vlax-true)
(progn
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Reload (list Blk)))
    (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Detach (list Blk)))
      (setq TroubleList (cons Blk TroubleList))
      (prompt (strcat "\n Detached xref: " (vla-get-Name Blk))))
    (progn (vla-Bind Blk :vlax-true)
   (if (and (= (vla-get-IsXref Blk) :vlax-true)
    (not (vl-position (vla-get-Name Blk) XrefList)))
     (setq XrefList (cons Blk XrefList))))))))
    (setq LstLen (length XrefList))
    (while (and (> LstLen 0) (> LstLen (setq LstLen (length XrefList))))
      (foreach
     Blk  XrefList
(if (or (= (vla-get-IsXref Blk) :vlax-false)
(and (vla-Bind Blk :vlax-true) (= (vla-get-IsXref Blk) :vlax-true)))
  (setq XrefList (vl-remove Blk XrefList)))))
    (foreach
   Blk (append XrefList TroubleList)
      (prompt (strcat "\n Unable to bind xref: " (vla-get-Name Blk))))
    (princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;by Tim Willey 8/28/06
  (defun DeletLays_ExplodeBlk  (Doc LayList BlkList / cnt)
    (defun ExplodeList (ObjList BlkList / NewObjList)
      (mapcar
'(lambda (x)
   (if (and (= (vla-get-ObjectName x) "AcDbBlockReference")
    (vl-position (strcase (vla-get-Name x)) (mapcar 'strcase BlkList)))
     (if (vl-catch-all-error-p
   (setq NewObjList
  (vla-catch-all-apply 'vlax-invoke (list x "Explode"))))
       (setq cnt (1+ cnt))
       (ExPlodeList NewObjList BlkList)))
   ObjList))
      (princ))
    ;------------------------------------------------------------------------------
    (setq cnt 0)
    (vlax-for
   Lo  (vla-get-Layouts Doc)
      (vlax-for
     Obj  (vla-get-Block Lo)
(cond
  ((vl-position
     T
     (mapcar '(lambda (x) (wcmatch (strcase (vla-get-Layer Obj)) (strcase x)))
     LayList))
   (vla-Delete Obj))
  ((and (= (vla-get-ObjectName x) "AcDbBlockReference")
(vl-position (strcase (vla-get-Name x)) (mapcar 'strcase BlkList)))
   (if
     (vl-catch-all-error-p
       (setq NewObjList (vla-catch-all-apply 'vlax-invoke (list x "Explode"))))
      (setq cnt (1+ cnt))
      (ExPlodeList NewObjList BlkList))))))
    (princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (ReloadBindXrefs (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (DeletLays_ExplodeBlk
    (vla-get-ActiveDocument (vlax-get-Acad-Object))
    '("A-ARE*" "A-DIM*" "A-NOT*" "A-PAT*" "A-SHT*" "A-SYM*")
    '("UT*"))
  (princ))
(princ)

Gary

[LE]

Gary;

Test this:

In the block list argument, place the following:

(list "UTA4" "UTA5"  "UTA6") instead of ("UT*")

[GDF]

Luis

I already tried that. Also the wildcard worked in Tim's eariler example.
However it only exploded one occurance of the block and not all four.

This one works for exploding the block...just not all of the ones with the same name.

Code: [Select]

;;;by Tim Willey 8/24/06
(defun ReloadBindXrefs (Doc / XrefList LstLen TroubleList)
  (vlax-for
Blk  (vla-get-Blocks Doc)
    (if (= (vla-get-IsXref Blk) :vlax-true)
      (progn
(if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Reload (list Blk)))
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Detach (list Blk)))
    (setq TroubleList (cons Blk TroubleList))
    (prompt (strcat "\n Detached xref: " (vla-get-Name Blk))))
  (progn (vla-Bind Blk :vlax-true)
(if (and (= (vla-get-IsXref Blk) :vlax-true)
  (not (vl-position (vla-get-Name Blk) XrefList)))
   (setq XrefList (cons Blk XrefList))))))))
  (setq LstLen (length XrefList))
  (while (and (> LstLen 0) (> LstLen (setq LstLen (length XrefList))))
    (foreach
   Blk XrefList
      (if (or (= (vla-get-IsXref Blk) :vlax-false)
      (and (vla-Bind Blk :vlax-true) (= (vla-get-IsXref Blk) :vlax-true)))
(setq XrefList (vl-remove Blk XrefList)))))
  (foreach
Blk  (append XrefList TroubleList)
    (prompt (strcat "\n Unable to bind xref: " (vla-get-Name Blk))))
  (princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;by Tim Willey 8/28/06
  (defun DeletObjLays  (Doc LayList)
    (vlax-for
   Lo  (vla-get-Layouts Doc)
      (vlax-for
     Obj  (vla-get-Block Lo)
(if
  (vl-position
    T
    (mapcar '(lambda (x) (wcmatch (strcase (vla-get-Layer Obj)) (strcase x)))
    LayList))
   (vla-Delete Obj))))
    (princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;by Tim Willey 8/28/06
(defun ExplodeBlkList  (Doc BlkList / cnt)
  (setq cnt 0)
  (vlax-for
Lo  (vla-get-Layouts Doc)
    (vlax-for
   Obj (vla-get-Block Lo)
      (if
(and (= (vla-get-ObjectName Obj) "AcDbBlockReference")
     (vl-position
       T
       (mapcar '(lambda (x) (wcmatch (strcase (vla-get-Name Obj)) (strcase x)))
       BlkList)))
(if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Explode (list Obj)))
   (setq cnt (1+ cnt)))))
    (prompt (strcat "\n " (itoa cnt) " were not able to be exploded."))
    (princ)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (ReloadBindXrefs (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (ExplodeBlkList
  (vla-get-ActiveDocument (vlax-get-Acad-Object))
  '("UT*"))
  (DeletObjLays
    (vla-get-ActiveDocument (vlax-get-Acad-Object))
    '("*A-ARE*" "*A-DIM*" "*A-NOT*" "*A-PAT*" "*A-SYM*"))
  (princ))
(princ)

Gary

[LE]

Maybe an old fashion way of using the undocumented QAFLAGS variable = 1 and then to 0 and in between simple call the explode command on your selection set.

(setvar "qaflags" 1)
(command "_.explode" your_selection_set "")
(setvar "qaflags" 0)

[LE]

And for your selection it can be:

Code: [Select]

(setq ss (ssget (list (cons 8 "A-ARE*,A-DIM*,A-NOT*,A-PAT*,A-SHT*,A-SYM*") (cons 2 "UT*"))))