TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: V-Man on July 09, 2009, 08:28:39 AM
-
Ok, I did a search but could not find much about this topic. I have several drawings with non-graphical non-native objects that of course are invisible and non selectable and I cannot seem to get rid of them. I have tried Wblock'ing the drawing with no success, and of course purging does not do it. I have even tried to explode everything in the drawing and then purge and it does not do it either. I take it these are dictionaries?
These are the problem childs I think.
-- Name: ACAD_MLEADERSTYLE
("AcDbMLeaderStyle" . 1)
-- Name: ACAD_MLINESTYLE
("AcDbMlineStyle" . 1)
-- Name: ACAD_PLOTSTYLENAME
("AcDbPlaceHolder" . 1)
-- Name: ACAD_SCALELIST
("AcDbScale" . 33)
-- Name: ACAD_TABLESTYLE
("AcDbTableStyle" . 2)
-- Name: ACAD_VISUALSTYLE
("AcDbVisualStyle" . 16)
How can I get "RID" of them?
Thanks,
Don
-
Looks like Native ACAD database objects to me. :?
-
Looks like Native ACAD database objects to me. :?
x2
Plus there isn't really that many records in those dictionaries, so I wouldn't think they would be a problem, or slow down a drawing.
-
Plus there isn't really that many records in those dictionaries, so I wouldn't think they would be a problem, or slow down a drawing.
I agree, but unfortunately I have to get them out somehow. Our client standards are very picky and I have no idea how they originally got there but I need them gone. I have tried everything I can think of to get rid of them with no success.
-
You could try converting the drawing to R12 format, but that would most likely hose some other things that would upset your client.
-
You have tried vla-delete?
-
The scale list is because of the annotation option within drawings now. I guess you could slim that down, not sure about getting rid of it altogether.
I'm not sure about the visual styles one. It may have something to do with a vertical.
The table style, just erase the one that isn't standard, and you should be good to go.
Or do you have to erase the dictionaries? If so, you might loose some data that uses that information.
-
You have tried vla-delete?
No I have not.
Or do you have to erase the dictionaries?
Yes, I need/want to just erase all of the dictionaries regardless of the contents.
-
I would think that you could save bac to 2000 or 2002 and remove all but these:
-- Name: ACAD_MLINESTYLE
("AcDbMlineStyle" . 1)
-- Name: ACAD_PLOTSTYLENAME
("AcDbPlaceHolder" . 1)
Then you may be able to delete those.
-
I would think that you could save bac to 2000 or 2002 and remove all but these:
-- Name: ACAD_MLINESTYLE
("AcDbMlineStyle" . 1)
-- Name: ACAD_PLOTSTYLENAME
("AcDbPlaceHolder" . 1)
Then you may be able to delete those.
I thought all versions after R12 would round-trip data even if they didn't know what to do with it.
-
My thought was that you could then delete these once in an eailer version of ACAD.
In 2000 I could delete the styles but not the dictionary. "ACAD_MLINESTYLE" & "ACAD_PLOTSTYLENAME"
_1$ (vla-delete dic)
; error: Automation Error. Object is referenced by other object(s)
-
My thought was that you could then delete these once in an eailer version of ACAD.
In 2000 I could delete the styles but not the dictionary. "ACAD_MLINESTYLE" & "ACAD_PLOTSTYLENAME"
_1$ (vla-delete dic)
; error: Automation Error. Object is referenced by other object(s)
Oh. Now I see what you mean.
-
Tried saving & reopening the DWG. The Dictionary's were empty but still could not delete.
Opening the Layer Manager caused an alert saying "Could not find plot style Default"
My guess is that you can not delete some dictionaries.
Better re think your specifications. :-o
-
What, specifically, do the client standards tell you to get rid of? I haven't seen any that specifically refer to AutoCAD data dictionaries yet, just the usual layers, text styles, that sort of thing.
-
this works for me (acad2005)
((lambda (Ent)
(foreach Dic '("ACAD_MLINESTYLE" "ACAD_PLOTSTYLENAME")
(setq Ent
(vl-remove (cons 3 Dic)
(vl-remove (cadr (member (cons 3 Dic) Ent)) Ent)
)
)
)
(entmod Ent)
)
(entget (namedobjdict))
)
-
This client of yours seems a bit stringent... I'd tell him what he can do with his dictionary standards... :-P
-
Something to try, will empty the dictionaries.
Minimal testing.
(defun c:DicSTYLEClean ( / dics dic dicName tmpname)
(vl-load-com)
(setq dics (vla-get-dictionaries
(vla-get-activedocument (vlax-get-acad-object))
)
)
(foreach dicname '("ACAD_MLEADERSTYLE" "ACAD_MLINESTYLE"
"ACAD_PLOTSTYLENAME" "ACAD_TABLESTYLE"
"ACAD_SCALELIST" "ACAD_VISUALSTYLE"
)
(if (or
(vl-catch-all-error-p
(setq dic (vl-catch-all-apply 'vla-item (list dics dicname))))
(null dic))
(prompt (strcat "\n+++ Dictionary " dicname " does not exist."))
(progn
(prompt (strcat "\nProcessing Dictionary " dicname " ."))
(vlax-for item dic
(setq TmpName (vla-getname dic item))
(if (or (member (strcase TmpName) '("DEFAULT" "STANDARD"))
(vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list item)))
)
(prompt (strcat "\n Dictionary entry " TmpName " can not be deleted."))
(prompt (strcat "\n *** Removed " TmpName " from dictionary."))
)
)
)
)
)
(princ)
)
-
This client of yours seems a bit stringent... I'd tell him what he can do with his dictionary standards
It's kind of hard to tell the GOV what to do.
-
Have you tried copying everything from the origin back to the origin of a new drawing?
dJE
-
Have you tried copying everything from the origin back to the origin of a new drawing?
Yes, that is the first thing I tried.