Delete Layout Tabs at once?

[pmadhwal7]

Hi to all,

is there any lisp which can delete layouts tab from multiple dwg in one go?

[BIGAL]

You can write a script that would do that simplest way. Look at scriptpro.

[maratovich]

9 hours ago, pmadhwal7 said:

Hi to all,

is there any lisp which can delete layouts tab from multiple dwg in one go?

 

 

Use this to process multiple drawings - AutoRunLisp

 

DeleteAllLayout.lsp

[SLW210]

I have moved your thread to the AutoLISP, Visual LISP & DCL Forum. Please post in the correct forum.

[dan20047]

(post deleted) - misread OP
 

Edited May 11, 2021 by dan20047

[Lee Mac]

You can define a basic program such as:

(defun c:deltab ( )
    (vlax-map-collection (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
       '(lambda ( x ) (if (= :vlax-false (vla-get-modeltype x)) (vla-delete x)))
    )
    (princ)
)
(vl-load-com) (princ)

 

And then run the above across multiple drawings using an AutoCAD Script to open each drawing, load & run the AutoLISP program, and then save & close the drawing.

[ronjonp]

1 hour ago, Lee Mac said:

You can define a basic program such as:

(defun c:deltab ( )
    (vlax-map-collection (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
       '(lambda ( x ) (if (= :vlax-false (vla-get-modeltype x)) (vla-delete x)))
    )
    (princ)
)
(vl-load-com) (princ)

 

And then run the above across multiple drawings using an AutoCAD Script to open each drawing, load & run the AutoLISP program, and then save & close the drawing.

Hey Lee .. why did you choose vlax-map-collection over vlax-for ?

[Lee Mac]

44 minutes ago, ronjonp said:

Hey Lee .. why did you choose vlax-map-collection over vlax-for ?

 

No particular reason, I just fancied a change

[ronjonp]

2 hours ago, Lee Mac said:

 

No particular reason, I just fancied a change

Understood 

[pmadhwal7]

12 hours ago, Lee Mac said:

You can define a basic program such as:

(defun c:deltab ( )
    (vlax-map-collection (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
       '(lambda ( x ) (if (= :vlax-false (vla-get-modeltype x)) (vla-delete x)))
    )
    (princ)
)
(vl-load-com) (princ)

 

And then run the above across multiple drawings using an AutoCAD Script to open each drawing, load & run the AutoLISP program, and then save & close the drawing.

is there any way to delete those tab without opening dwg or run this script to multiple dwg in one go

[Lee Mac]

39 minutes ago, pmadhwal7 said:

is there any way to delete those tab without opening dwg or run this script to multiple dwg in one go

 

Yes - as noted in my post, you can create a script to open each drawing, load & run the AutoLISP program, and then save & close the drawing. Such a script could be created using my Script Writer application, or another batch-processing tool.

[BIGAL]

"or another batch-processing tool."

 

Its a little more complicated but way faster Google Accoreconsole, Lee has provided the lisp, which must be loaded via a script. Just need to check for  VL support.

 

 

[maratovich]

In my opinion, the author does not read all the messages, only the last one
I previously gave lisp and solution for all files

[Lee Mac]

On 5/13/2021 at 3:17 PM, maratovich said:

In my opinion, the author does not read all the messages, only the last one
I previously gave lisp and solution for all files

 

I agree - your AutoRunLisp application looks to be impressive & powerful @maratovich, congrats.

[pmadhwal7]

On 5/13/2021 at 7:47 PM, maratovich said:

In my opinion, the author does not read all the messages, only the last one
I previously gave lisp and solution for all files

i was try all the solution provided,and due to heavy work load i am unable to reply