Getting rid of Ldata

[Zoeyanne]

The LData comes from AtgPro.vlx which was a plot stamp routine we used to use. The routine was encrypted, so it is difficult to figure out exactly how it worked. When I run the remallLdata lisp routine I see that it does indeed remove AtgPro from the data dictionary, but other things are also gone. (I also loaded DictEdit.lsp which shows the data dictionaries in the file.) The ones that are there prior to removing LData but not after are:
ACAD_ASS0CPERSSUBENTMANAGER (doesn't show anything in that dictionary- if I am interpreting it correctly)
AcAec (shows AcAecLayerManager as an item in the dictionary)
GWSUNDORECORDER (no items listed with this one either)

Update: tested again, this time not letting the remallLdata routine to "hang" as long. Hit escape after about 4 minutes and the only thing gone was the AtgPro.

I don't get a "not responding", but I am unable to type anything into the command line until I hit escape. An audit shows no errors after that.
Could a lisp be written to only remove the atgpro?

Thanks!
Zoeyanne

[BlackBox]

Could a lisp be written to only remove the atgpro?

This seems to work on my end, just be sure the ATGPRO dictionary's name is spelled correctly:

(vl-load-com)

(defun c:c:DeleteAtgProLData (/ *error* acDoc)

  (defun *error* (msg)
    (if acDoc
      (vla-endundomark acDoc)
    )
    (cond ((not msg))                                                   ; Normal exit
          ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
          ((princ (strcat "\n** Error: " msg " ** ")))                  ; Fatal error, display it
    )
    (princ)
  )

  (vla-startundomark
    (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
  )
  (vlax-for x (vla-get-dictionaries acDoc)
    (if
      (and
        (vlax-property-available-p x 'name)
        (= "AUTOTAGPRO" (strcase (vla-get-name x)))
      )
       (vla-delete x)
    )
  )

  (*error* nil)
)

[Zoeyanne]

AutoTagPro.png
I get an error message when I load it:
; error: malformed string on input

I ran it anyway, but it did not remove it.
I did change the lisp to read AutoTagPro as your specified.

Any ideas?
Thanks so much!

Zoeyanne

[BlackBox]

If you're getting a 'malformed' error, then you've simply copied the code incompletely by mistake, so far as I can tell.

[Zoeyanne]

You are of course correct! When I copied into notepad I didn't enter after the last line. When I fixed that it does load without error. However, the AutoTagPro dictionary still persists after running the program. What could be preventing it from being removed? Do items in a dictionary have to be removed first?

Thanks again,
Zoeyanne

[BlackBox]

Do items in a dictionary have to be removed first?

Perhaps - Can you post a sample drawing?

[Zoeyanne]

Attached is a drawing with the dreaded LData. Once again I thank you for your time and help!

Zoeyanne

[BlackBox]

Thanks for the sample drawing.

The revised code in this post worked first try, without first needing to delete the Dictionary's sub-elements.

Cheers

[Zoeyanne]

A million kudos! Thank you so much!! Worked like a charm!

Zoeyanne