Topic: Find & Replace Script - Quick Question

[M-dub]

I'm not getting it.

I must be missing something, which would also be par for the course.

Code: [Select]

Command: ad APPLOAD textreplace.LSP successfully loaded.


Command:
Text Replace Loaded, enter TextReplace to run.
Command:
Command: TextReplaceDBX
Unknown command "TEXTREPLACEDBX".  Press F1 for help.

[Kerry]

How about TextReplace

Command:
Text Replace Loaded, enter TextReplace to run.

[M-dub]

How about TextReplace

Command:
Text Replace Loaded, enter TextReplace to run.

That was the first one I tried and got

"Error: Automation Error. Problem in loading application"

I have to do a bunch of other stuff to these drawings as well, so I MAY end up just doing EVERYTHING with a script.  I would really hate for all of your help to be in vain, believe me!  I really hate the fact that A)  It's taken me this long to get to this issue, and B)  I can't contribute to the actual creation and troubleshooting of the code.  Just know that I truly do appreciate everyone's efforts just the same.

[Kerry]

TextReplace is the correct command.

Which Acad version are you using ?

Try pasting this at the command line

(atoi (substr (getvar "acadver") 1 2))

[M-dub]

Which Acad version are you using ?

AutoCAD 2002

Try pasting this at the command line

(atoi (substr (getvar "acadver") 1 2))

15

[Kerry]

and this ?

Code: [Select]

      (setq *acad (vlax-get-acad-object))

      (setq odbx (if (< (atoi (substr (getvar "acadver") 1 2)) 16)
                   (vla-getinterfaceobject *acad "ObjectDBX.AxDbDocument")
                   (vla-getinterfaceobject *acad "ObjectDBX.AxDbDocument.16")
                 )
      )

[M-dub]

and this ?

Code: [Select]

      (setq odbx (if (< (atoi (substr (getvar "acadver") 1 2)) 16)
                   (vla-getinterfaceobject *acad "ObjectDBX.AxDbDocument")
                   (vla-getinterfaceobject *acad "ObjectDBX.AxDbDocument.16")
                 )
      )

Error: Automation Error. Problem in loading application

[Kerry]

OK .. in 2002 DBX isn't automatically registered.

Try this as a once off ..

Code: [Select]

(STARTAPP "regsvr32.exe"
          (STRCAT "/s \"" (FINDFILE "axdb15.dll") "\"")
)


added:
...
then try the previous again.
*** make sure to run this first

Code: [Select]

(setq *acad (vlax-get-acad-object))

[M-dub]

OK .. in 2002 DBX isn't automatically registered.

Try this as a once off ..

Code: [Select]

(STARTAPP "regsvr32.exe"
          (STRCAT "/s \"" (FINDFILE "axdb15.dll") "\"")
)


added:
...
then try the previous again.

Not sure if this is what you were looking for, but


33

[M-dub]

Oops... just saw your update, so I tried it...

Code: [Select]

Command: (STARTAPP "regsvr32.exe"
(_>           (STRCAT "/s \"" (FINDFILE "axdb15.dll") "\"")
(_> )
33

Command: (setq odbx (if (< (atoi (substr (getvar "acadver") 1 2)) 16)
((_>                    (vla-getinterfaceobject *acad "ObjectDBX.AxDbDocument")
((_>                    (vla-getinterfaceobject *acad
"ObjectDBX.AxDbDocument.16")
((_>                  )
(_>       )
#<VLA-OBJECT IAxDbDocument 037247a8>

[Kerry]

Whhhheeeeee ... !!!

[Kerry]

Alan may change the test to something like :

Code: [Select]

(SETQ *acad (VLAX-GET-ACAD-OBJECT)
      odbx  (IF (< (SETQ acadvers (SUBSTR (GETVAR "acadver") 1 2)) "16")
              (PROGN
                (IF
                  (NOT (VL-REGISTRY-READ
                         "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
                       )
                  )
                   (STARTAPP "regsvr32.exe"
                             (STRCAT "/s \"" (FINDFILE "axdb15.dll") "\"")
                   )
                )
                (VLA-GETINTERFACEOBJECT *acad "ObjectDBX.AxDbDocument")
              )
              (VLA-GETINTERFACEOBJECT
                *acad
                (STRCAT "ObjectDBX.AxDbDocument" acadvers)
              )
            )
)

[Kerry]

Whhhheeeeee ... !!!

Translates to :
Try the original routine now Mike.

[M-dub]

Many Thanks, Kerry!



I think I have to have all of the dwg's closed for it to work right.

I'm just about at a good spot to break, then I'll try it.

[Kerry]

I HAVE had issues running DBX when drawings are open, so play safe for now ..