Little Help from my Friends

[CadDog]

Hi everyone,

This is a old lisp with opens current folder.

Yes, I know that I can use dwg tab but it's just easier and faster to type a command.
I having problem using this code with AutoCAD 2018 only.

Here is the lisp:

(defun C:XE ()(Setvar "cmdecho" 0)
   (setq XXEE (strcat "explorer /e," (getvar "dwgprefix")))
   (command "start" XXEE)
   (Setvar "cmdecho" 1)
   (princ)
)

What I get now is this:

C:\Users\caddog\Documents

Again, works find with all other version but not with 2018.

Thanks

[Tharwat]

Hi,

Please try the following code and let me know how you get on with it.

(defun c:OpenSource (/ target shell)
  ;; Tharwat - AUGI. 30.Mar.2018	;;
  (if (and (setq target (findfile (vl-string-right-trim "\\" (getvar 'DWGPREFIX) )))
           (setq shell (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application"))
       )
    (progn
      (vlax-invoke shell 'open target)
      (vlax-release-object shell)
     )
 )
 (princ)
) (vl-load-com)

[CadDog]

... Works Great ...

I'm back pumping out the work...

Thanks Tharwat

Your the Man

[Tharwat]

... Works Great ...

I'm back pumping out the work...

Thanks Tharwat

Your the Man

Excellent, You are welcome anytime.

[rkmcswain]

I having problem using this code with AutoCAD 2018 only.

Again, works find with all other version but not with 2018.

Thanks

That is odd. It works fine here in 2018, and there is no reason for you to be having issues with it.

Must be some other variable at play here.