Topic: System variable

[mohan]

Pls. help some system variable got changed ! 

When I run this

Code: [Select]

(defun c:purgeblock ( / )
(repeat 3
(command "_.purge" "_b" "*" "_no")) (princ))
Command: purgeblock
_.purge
Command: _b Unknown command "B".  Press F1 for help.

Command: * Unknown command "*".  Press F1 for help.

Command: _no Unknown command "NO".  Press F1 for help.

Command: _.purge
Command: _b Unknown command "B".  Press F1 for help.

Command: * Unknown command "*".  Press F1 for help.

Command: _no Unknown command "NO".  Press F1 for help.

Command: _.purge
Command: _b Unknown command "B".  Press F1 for help.

Command: * Unknown command "*".  Press F1 for help.

Command: _no Unknown command "NO".  Press F1 for help.

dialogue block displays each time

[BIGAL]

Try -purge normal purge opens a dcl.

[gile]

@Bigal,
 while called from a (command ...) LISP expression the dialog box is not used except when (initdia) is called before.

@mohan,
try with the complete name of the option.

Code - Auto/Visual Lisp: [Select]

1. (defun c:purgeblock ( / )
2. (repeat 3
3. (command "_.purge" "_blocks" "*" "_no")) (princ))

[mohan]

Command: PURGEBLOCK Unknown command "BLOCKS".  Press F1 for help.
Unknown command "*".  Press F1 for help.
Unknown command "NO".  Press F1 for help.
Unknown command "BLOCKS".  Press F1 for help.
Unknown command "*".  Press F1 for help.
Unknown command "NO".  Press F1 for help.
Unknown command "BLOCKS".  Press F1 for help.
Unknown command "*".  Press F1 for help.
Unknown command "NO".  Press F1 for help.

Same error (dialogue block displays each time)

This Error was today from morning

yesterday I was working with script

Code: [Select]

QAFLAGS 31
_RECOVER "D:\Drawings\Hospital\BP2# Civil Package - 1\Landscape\L-100.dwg" _.qsave _.close
_RECOVER "D:\Drawings\Hospital\BP2# Civil Package - 1\Landscape\L-101.dwg" _.qsave _.close
_RECOVER "D:\Drawings\Hospital\BP2# Civil Package - 1\Landscape\L-301.dwg" _.qsave _.close
_RECOVER "D:\Drawings\Hospital\BP2# Civil Package - 1\Landscape\L-401+2+3.dwg" _.qsave _.close
_RECOVER "D:\Drawings\Hospital\BP2# Civil Package - 1\Landscape\L-410.dwg" _.qsave _.close
QAFLAGS 16
QUIT
;;End Script
;;End Script
Then one lisp I loaded

Code: [Select]

(defun c:rcdir ( / pth filelst)
(setq pth (getstring "\nType path where are *.dwg files to recover <ex. c:/.../.../> : "))
(setq filelst (vl-directory-files pth "*.dwg"))
(foreach file filelst (command "recoverall" (strcat pth file)))
(princ))

[gile]

So, I was wrong about dialog box. @BIGAL was right.
Try this way:

Code - Auto/Visual Lisp: [Select]

1. (defun c:purgeblock ()
2.   (repeat 3
3.     (command "_.-purge" "_blocks" "*" "_no")) (princ))

[mohan]

Try this way:

Code - Auto/Visual Lisp: [Select]

1. (defun c:purgeblock ()
2.   (repeat 3
3.     (command "_.-purge" "_blocks" "*" "_no")) (princ))

Yes, this was working, but do I have to update all my lisps . . .

[mohan]

Hi Guys
The issue is this system variable got changed - QAFLAGS 31

Now all my previous lisps work fine.