Topic: Problem with (command "open") (must be Monday)

[Dommy2Hotty]

Just tested my new menu out, works great.  Loaded it on a ACAD2004 machine, and it flops.  Here are a bunch of different attempts:

Code: [Select]

[Basement]^C^C^C^P_open;"C:/Rockford Building Maintanence/Basement.dwg";
**BRINGS UP FILEDIALOG BOX, I CLICK CANCEL**
Unknown command ""C:/ROCKFORD BUILDING MAINTANENCE/SECOND FLOOR.DWG"".  Press
F1 for help.

Code: [Select]


Command: (command "open" "C:/Rockford Building Maintanence/Basement.dwg")
open
Command: C:/Rockford Building Maintanence/Basement.dwg Unknown command
"C:/ROCKFORD BUILDING MAINTANENCE/BASEMENT.DWG".  Press F1 for help.

Command: nil

Code: [Select]

[Basement]^C^C^C(setq fdia (getvar "filedia"));(setvar "filedia" 0);open;"C:/Rockford Building Maintanence/Basement.dwg");(setvar "filedia" 0);
Command: (setq fdia (getvar "filedia"))
1

Command: (setvar "filedia" 0)
0

Command: open
Enter name of drawing to open <.>: ***I HAVE TO HIT ESC***
Command: "C:/Rockford Building Maintanence/Basement.dwg")
Unknown command ""C:/ROCKFORD BUILDING MAINTANENCE/BASEMENT.DWG")".  Press F1
for help.

Command: (setvar "filedia" 0)
0

Code: [Select]


[Basement]^C^C^C(setq fdia (getvar "filedia"));(setvar "filedia" 0);(setq file "C:/Rockford Building Maintanence/Basement.dwg");(command "open" file);(setvar "filedia" 0);
Command: (setq fdia (getvar "filedia"))
0

Command: (setvar "filedia" 0)
0

Command: (setq file "C:/Rockford Building Maintanence/Basement.dwg")
"C:/Rockford Building Maintanence/Basement.dwg"

Command: (command "open" file)
open
Command: C:/Rockford Building Maintanence/Basement.dwg Unknown command
"C:/ROCKFORD BUILDING MAINTANENCE/BASEMENT.DWG".  Press F1 for help.

Command: nil

Command: (setvar "filedia" 0)
0

Code: [Select]


[Basement]^C^C^C(setq fdia (getvar "filedia"));(setvar "filedia" 0);(setq file "C:/Rockford Building Maintanence/Basement.dwg");open;!file;(setvar "filedia" 0);
Command: (setq fdia (getvar "filedia"))
0

Command: (setvar "filedia" 0)
0

Command: (setq file "C:/Rockford Building Maintanence/Basement.dwg")
"C:/Rockford Building Maintanence/Basement.dwg"

Command: open
Enter name of drawing to open <.>: ***I HAVE TO HIT ESC***
Command: !file
"C:/Rockford Building Maintanence/Basement.dwg"

Command: (setvar "filedia" 0)
0

[David Hall]

What did it work on before 2004?

[Dommy2Hotty]

What did it work on before 2004?

I have 2005 on my machine...sorry...shoulda mentioned that...my sig is kinda small

[David Hall]

Actually I should open my eyes.

OK , so what is different about 2005 than 4?  do you have SDI = 0 on both? Any other custom settings you use that the average user wouldn't have?

[Dommy2Hotty]

I've got custom settings up the butt on mine, but the 2004 system is raw AutoCAD.  Thing is, I'm not using anything custom in my macro.  Just your standard open command.

[David Hall]

yes, but there could be a sysver that neither of us is thinking of that is preventing your "plain" macro from working

[CAB]

Have you tried

Code: [Select]

[Basement]^C^C^C^P_open;"C:\\Rockford Building Maintanence\\Basement.dwg";

Another Option

Code: [Select]

;;; SOPEN.LSP
;;; Open command that works for all cases
;;; Works for SDI=0 or SDI=1

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2003 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 1999-09-12 - First release
;;; 2002-05-14 - Bug fixed
;;; Written for AutoCAD 2000+
;;; Ex: (sopen "c:\\drawing1.dwg")
;;; Note that QAFLAGS might not be restored to 0 so you might want to add (setvar "qaflags" 0) to acaddoc.lsp or any other startup lisp.

;;; opens and activates a file as Read-Only
(defun openRO (fna)
  (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fna :VLAX-TRUE))
)

(defun sopen (fna / n)
  (if (= 0 (getvar "SDI"))
    (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fna))
    (progn
      (if (not (equal 2 (logand 2 (getvar "qaflags"))))
        (setvar "qaflags" (+ (getvar "qaflags") 2))
      )
      (if (not (equal 4 (logand 4 (getvar "qaflags"))))
       (setvar "qaflags" (+ (getvar "qaflags") 4))
      )
      (command "_.open")
      (if (not (equal 0 (getvar "dbmod")))
        (command "_y")
      )
      (command fna)  
      (setq n 0)
      (while (and (< n 4)
                  (wcmatch (getvar "cmdnames") "*OPEN*")
             )
          (T
            (command "")
          )
        (setq n (+ n 1))
      )
      (setvar "qaflags" 0)
    )
  )
)

[Dommy2Hotty]

yes, but there could be a sysver that neither of us is thinking of that is preventing your "plain" macro from working

Yeah...there is...SDI

Set it to "1" on the 2004 machine and it worked fine.  SO!  Now that I know it's the SDI mode that's causing this, does anyone know a work around for that?  I'm developing this menu system for client, and I would like it to be able to work with both SDI on and off.