NEED HELP WITH LISP ROUTINE - PURGE linetype lisp

[ECASAOL350033]

Hi guys,

I have this lisp routine that somehow used to work though it deletes all my layouts now.

(defun c:removeline ()
  (vlax-for n (vla-get-blocks
                (vla-get-activedocument
                  (vlax-get-acad-object)
                )
              )
    (vl-catch-all-apply 'vla-delete (list n))
  )
  (princ)
)

This routine used to remove all nested linetypes that were not used. It worked a couple of time though for some reason it deletes all the layout tabs. I think that either a variable has been changed or something else. It has the same effect on all the other pc's in the office (deletes layout tabs)

Thanks heaps.

Rico

[BlackBox]

Rico,

I've moved your thread to the AutoLISP forum, since that's what you're asking about here, and have also removed the additional paren (to mitigate the unbalanced bracket message), and added [CODE ] Tags for you.

[Opie]

The code you posted deletes blocks not linetypes. Being that layouts are also blocks, they may be removed as well.

[BlackBox]

I have this lisp routine that somehow used to work though it deletes all my layouts now.

(defun c:removeline ()
  (vlax-for n (vla-get-blocks
                (vla-get-activedocument
                  (vlax-get-acad-object)
                )
              )
    (vl-catch-all-apply 'vla-delete (list n))
  )
  (princ)
)

This routine used to remove all nested linetypes that were not used. It worked a couple of time though for some reason it deletes all the layout tabs. I think that either a variable has been changed or something else. It has the same effect on all the other pc's in the office (deletes layout tabs)

No... This code must have been changed, as it will never remove Linetypes, nor Layouts by deleting Block Definitions (it will delete the geometry from a given Layout's Block though).

To delete unused Linetypes, instead consider:

(vl-load-com)

(defun c:PurgeLin ()
  (princ "\nProcessing, please wait... ")
  (princ)
  (vlax-for lin (vla-get-linetypes
                  (vla-get-activedocument
                    (vlax-get-acad-object)
                  )
                )
    (vl-catch-all-apply 'vla-delete (list lin))
  )
  (princ)
)

[BlackBox]

... layouts are also blocks...

More specifically:

The representation of a layout is slightly different in ActiveX from that of the AutoCAD user interface. In ActiveX, the content of a standard AutoCAD layout is broken out into two separate objects: Layout object and Block object. The Layout object contains the plot settings and the visual properties of the layout as it appears in the AutoCAD user interface. The Block object contains the geometry for the layout.

Each Layout object is associated with one Block object. To access the Block object associated with a given layout, use the Block property. Conversely, each Block object is associated with one Layout object. To access the Layout object associated with a given Block, use the Layout property for that block.

In ActiveX, in addition to the paper space layouts, model space is considered a layout.

[ECASAOL350033]

MR BLACKBOX,

YOU ARE THE BEST!!!

[BlackBox]

MR BLACKBOX,

YOU ARE THE BEST!!!

That is kind of you to say; I'm happy to help.