Weird Error - Can't figure

[cadman_meg]

Upon executing this routine:

; Written By: Peter Jamtgaard
; This program will delete all unused dimstyles.

(defun CurgeDimStyles
 (vl-load-com)
 (vlax-for DSTYOBJ
           (vla-get-dimstyles             (vla-get-activedocument              (vlax-get-acad-object)            &nbsp           &nbsp   (vl-catch-all-apply 'vla-delete (list DSTYOBJ)) &nbsp
)

I got this message "#<%catch-all-apply-error%>"

Not sure what to do to fix it or why this is happening. There are 3 unused dimstyles in the test drawing. Help is very much appreciated. Thanks.

 

[R. Robert Bell]

Peter just wasn't cleaning up after himself:

(defun CurgeDimStyles
(vl-load-com)
(vlax-for DSTYOBJ
(vla-get-dimstyles
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vl-catch-all-apply 'vla-delete (list DSTYOBJ))
)
(princ) ; <- added
)

However, are you saying that the unused dimstyles are *not* being deleted anyway?

--
R. Robert Bell, MCSE
www.AcadX.com

| Upon executing this routine:
| ; Written By: Peter Jamtgaard
| ; This program will delete all unused dimstyles.
|
| (defun CurgeDimStyles
| (vl-load-com)
| (vlax-for DSTYOBJ
| (vla-get-dimstyles
| (vla-get-activedocument
| (vlax-get-acad-object)
| )
| )
| (vl-catch-all-apply 'vla-delete (list DSTYOBJ))
| )
| )
|
| I got this message "#<%catch-all-apply-error%>"
|
| Not sure what to do to fix it or why this is happening. There are 3 unused dimstyles in the test drawing. Help is very much appreciated. Thanks.
|

 

[cadman_meg]

That's right. They aren't being deleted.

 

[cadman_meg]

Robert,

This still doesn't work. When I execute it, nothing happens and nothing is shown in the command line.

 

[R. Robert Bell]

Are you sure they are unreferenced?

New drawing:

Command: Dim

Dim: save
Enter name for new dimension style or [?]: ?
Enter dimension style(s) to list <*>:
Named dimension styles:
Standard
Enter name for new dimension style or [?]: Bad1

Dim: save
Enter name for new dimension style or [?]: ?
Enter dimension style(s) to list <*>:
Named dimension styles:
Standard
Bad1
Enter name for new dimension style or [?]: Bad2

Dim: restore
Enter a dimension style name, [?] or <select dimension>: ? Enter dimension style(s) to list <*>:
Named dimension styles:
Standard
Bad1
Bad2
Enter a dimension style name, [?] or <select dimension>: standard Current dimension style: Standard

Dim: exit

Command: (defun CurgeDimStyles
(_> (vl-load-com)
(_> (vlax-for DSTYOBJ
((_> (vla-get-dimstyles
(((_> (vla-get-activedocument
((((_> (vlax-get-acad-object)
((((_> )
(((_> )
((_> (vl-catch-all-apply 'vla-delete (list DSTYOBJ))
((_> )
(_> (princ) ; <- added
(_> )
CURGEDIMSTYLES

Command: purgedimstyles
Command:
Command: dim

Dim: restore
Enter a dimension style name, [?] or <select dimension>: ? Enter dimension style(s) to list <*>:
Named dimension styles:
Standard
Enter a dimension style name, [?] or <select dimension>: *Cancel*

 

[cadman_meg]

Duh, I was going into the text style command and not the dim style command. Must be a long day for me not to notice that. Much appreciate the help.