Expert: Bill DeShawn - 11/18/2010

Question
QUESTION: (defun C:OPR (/ fname sd)
(or (vl-load-com))
(setq sd (getvar "sdi"))
(setvar "sdi" 0)
(setq fname (getfiled "Standard details"
      (getvar "dwgprefix")
         "dwg"
         4)
     )
(if (vl-catch-all-error-p
         (vl-catch-all-apply
         (function (lambda()
         (vla-activate
         (vla-open
         (vla-get-documents
         (vlax-get-acad-object))
         fname
         :vlax-true)
         )
         )
         )
         )
         )
   (alert "Unable to open in read-only mode")
   )
   (setvar "sdi" sd)
   (princ)
   )

this lsp works but i want to set the file folder location specifically to C:\CustomProg\database\Stnd_block hope u could help me figure this out. Thanks

ANSWER: Mich:

Try replacing:
(getvar "dwgprefix")
with
"C:\\CustomProg\\database\\Stnd_block"
and include the quotes.

Keep in touch
Bill DeShawn
http://my.sterling.net/bdeshawn


---------- FOLLOW-UP ----------

QUESTION: Sir, Ive tried replacing it but it doesn't seem to work. i might be missing something. Again appreciate your help.

Answer
Mich:

Paste the following into Windows Explorer Address Window:

C:\CustomProg\database\Stnd_block

If Windows Explorer doesn't go there, then perhaps you've misspelled something or you entered the path incorrectly.  Make sure the path is correctly entered.

Bill DeShawn
http://my.sterling.net/~bdeshawn