Topic: Silent Purge

[Jeff_M]

Here ya go. I don't use plotstyles so I tried this on a small test dwg and it appearred to work. If it doesn't work like you think it should, let me know and I'll investigate further.

Code: [Select]


(defun c:cpurge (/ doc del_itms pstyl n namelist styls sub)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq pstyl (vla-item (vla-get-dictionaries doc) "ACAD_PLOTSTYLENAME"))
  (mapcar '(lambda (col)
    (vlax-for x col
      (vl-catch-all-apply 'vla-delete (list x))
      )
    )
 (list (vla-get-dimstyles doc) (vla-get-linetypes doc)
(vla-get-textstyles doc) (vla-get-plotconfigurations doc)
)
 )
  (vlax-for lay (vla-get-layers doc)
    (if (not (member (vla-get-plotstylename lay) namelist))
      (setq namelist (cons (vla-get-plotstylename lay) namelist))
      )
    )
  (setq styls (entget (vlax-vla-object->ename pstyl))
sub (member (assoc 3 styls) styls)
sub (reverse (cddr (reverse sub)))
n 0)
  (while (< (setq n (+ n 2)) (1- (length sub)))
    (if (not (member (cdr (nth n sub)) namelist))
      (setq del_itms (cons (vla-get-objectid (vlax-ename->vla-object (cdr (nth (1+ n) sub)))) del_itms))
      )
    )
  (vlax-for itm pstyl
    (if (member (vla-get-objectid itm) del_itms)
      (vla-delete itm)
      )
    )  
  (princ)
  )

[MP]

Of course, excellent outside the box solution Jeff.  I use the technique for blowing away appids, why not other tables.

<KickSelfForMissingTheObvious.mpg>

[CADaver]

Wayyy cool Jeff, thanks a heap.  I knew somebody 'round here had the answer.

[Chuck Gabriel]

I may be a little late with this, but maybe it will come in handy in the future.  There is a system variable called NOMUTT.  If you set it to one, nothing (and I mean nothing) will appear on the command line unless you specifically put it there.

[CADaver]

I dunno, I couldn't get NOMUTT to work with PURGE.

[Jeff_M]

The first thing I tried was NOMUTT. Somehow, Purge overrides the NOMUTT setting and lists everything purged, or not, no matter what.

[ronjonp]

On another topic.......how would you change the drawing viewres silently?

[daron]

cmdecho 0?

[Jeff_M]

On another topic.......how would you change the drawing viewres silently?

Well, contrary to what the help file says, VIEWRES is NOT a System Variable, so a simple (setvar "viewres" 10000) is out ......
However, this setting is stored for each individual Viewport. Since you can't use ENTMOD on a Viewport object, the only way (other than the command version) to modify it is with the ActiveX property "ArcSmoothness" of a PSViewport or Viewport object.

[Chuck Gabriel]

The first thing I tried was NOMUTT. Somehow, Purge overrides the NOMUTT setting and lists everything purged, or not, no matter what.

Sorry for the bum steer.  I thought for sure it would work.

[Jeff_M]

No problem, Chuck. I thought it would work, too, when I tested it. FYI, that's 2 things NOMUTT doesn't work with (at least in 2002): Purge and Dimstyle->Save

[David Hall]

Not to throw in a huge monkey wrench, but VBA doesn't mutter.  Is it possible to use a vb app called from your lisp?

[Jeff_M]

... but VBA doesn't mutter.

Either does the lisp solution I posted for Randy.....  

[David Hall]

sorry, i quickly scanned and didn't read the whole thread