deleting a layout tab by name

[BIGAL]

I have no problems acessing the layout tabs just need help deleting a particular layout tab by its name.

 

(vlax-for lay (vla-get-Layouts doc)
 (setq plotabs (cons (vla-get-name lay) plotabs))
)
(setq plottablist (acad_strlsort plotabs))
(setq len (length plottablist))
(setq x 0)
(repeat len
 (setq name (nth x plottablist))
 (if (= name "layout to be deleted") 
delete tab ?

[pBe]

(defun DelLay (name )
      (foreach nm (layoutlist)
             (if (eq nm name)
              (vla-delete
                    (vla-item
                          (vla-get-layouts
                                (vla-get-ActiveDocument
                                      (vlax-get-acad-object)))
                          nm))
                 )
             )
     (princ)
     )

[Lee Mac]

Another, supply with Document Object:

 

(defun DeleteLayout ( doc name / item )
   (if
       (not
           (vl-catch-all-error-p
               (setq item
                   (vl-catch-all-apply 'vla-item (list (vla-get-layouts doc) name))
               )
           )
       )
       (not (vla-delete item))
   )
)

 

e.g.:

 

(DeleteLayout (vla-get-activedocument (vlax-get-acad-object)) "Layout1")

 

Returns T if Layout is deleted, otherwise nil if Layout is not found.

[BIGAL]

Thanks PBe & Lee we have some third party software that always creates a temporary layout. autoplotting plots it as well.

[Lee Mac]

You're welcome BIGAL; any questions about the code, just ask

[BIGAL]

The code is fine we have a Plotting for Dummy's system here just makes it easier not to have to delete any unwanted plotted layouts. The rest is written in VL so doc is already called. will paste in prior to creating plot list.

[pBe]

The code is fine we have a Plotting for Dummy's system here just makes it easier not to have to delete any unwanted plotted layouts. The rest is written in VL so doc is already called. will paste in prior to creating plot list.

 

Deos you PfD generate a random layout names?

[BIGAL]

No Layout is always a fixed name thanks Pbe for asking trying out my Television at moment for screen but unfortunately still need glasses to see keyboard. Wish I had learnt to rouuchh ype prroperrly.

[pBe]

Wish I had learnt to rouuchh ype prroperrly.

 

 

Curious is all..

 

Cheers Bigal