Topic: 0 layer current

[Lee Mac]

Did we determine vla-PurgeAll was safe to use?

Code: [Select]

(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(repeat 3 (vla-PurgeAll doc))


[ronjonp]

Here's another 

Code: [Select]

(defun c:0 (/ o)
  (vl-load-com)
  (setq o (vlax-ename->vla-object (tblobjname "layer" "0")))
  (mapcar '(lambda (x) (vlax-put o (car x) (cdr x))) '((freeze . 0) (lock . 0) (layeron . -1)))
  (setvar 'clayer "0")
  (princ)
)

Code: [Select]

(mapcar (function (lambda (x) (apply (function vlax-put) (cons o x))))
             '((freeze 0) (lock 0) (layeron -1))
     )

So many ways to skin a cat  I like it!

[ronjonp]

Did we determine vla-PurgeAll was safe to use?

Code: [Select]

(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(repeat 3 (vla-PurgeAll doc))


Not sure if it's "safe" but I still use it 

[ronjonp]

    I must have too much caffeine in me today....

[alanjt]

Here's another 

Code: [Select]

(defun c:0 (/ o)
  (vl-load-com)
  (setq o (vlax-ename->vla-object (tblobjname "layer" "0")))
  (mapcar '(lambda (x) (vlax-put o (car x) (cdr x))) '((freeze . 0) (lock . 0) (layeron . -1)))
  (setvar 'clayer "0")
  (princ)
)

Code: [Select]

(mapcar (function (lambda (x) (apply (function vlax-put) (cons o x))))
             '((freeze 0) (lock 0) (layeron -1))
     )

So many ways to skin a cat  I like it!

Oh so many.

Did we determine vla-PurgeAll was safe to use?

Code: [Select]

(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(repeat 3 (vla-PurgeAll doc))


Not sure if it's "safe" but I still use it 

Sadly, vla-purgeall ignores MLeader styles.

[ronjonp]

Doe this do it?

Code: [Select]

(defun purge-mleaderstyles (/ mls)
  (if (setq mls (vl-remove-if-not
  '(lambda (x) (= (car x) 350))
  (dictsearch (namedobjdict) "acad_mleaderstyle")
)
      )
    (mapcar 'entdel (mapcar 'cdr mls))
  )
  (princ)
)
(purge-mleaderstyles)

[alanjt]

Doe this do it?

Code: [Select]

(defun purge-mleaderstyles (/ mls)
  (if (setq mls (vl-remove-if-not
 '(lambda (x) (= (car x) 350))
 (dictsearch (namedobjdict) "acad_mleaderstyle")
)
      )
    (mapcar 'entdel (mapcar 'cdr mls))
  )
  (princ)
)
(purge-mleaderstyles)

The problem is, it will still purge if the style is used or active. Which will cause AutoCAD to crash.
Here's a CRAPPY one I did a while back, just as a proof of concept.

Code: [Select]

;;; Purge Multileader Styles (since vla-purgeall ignores them)
;;; Alan J. Thompson, 08.24.09
(defun AT:MleaderStylePurge (/)
  (vl-remove-if
    'null
    (mapcar
      '(lambda (x)
         (and
           (eq 350 (car x))
           (not (eq 330 (car (nth 5 (entget (cdr x))))))
           (not (eq (getvar "cmleaderstyle")
                    (vla-get-name (vlax-ename->vla-object (cdr x)))
                ) ;_ eq
           ) ;_ not
           (entdel (cdr x))
         ) ;_ and
       ) ;_ lambda
      (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")
    ) ;_ mapcar
  ) ;_ vl-remove-if
) ;_ defun
Know that I do not use this, I just have it in a folder of useless subroutines I wrote as learning exercises.