Trouble with lisp that writes a script

[Anonymous]

I am trying to use the following script.  I have used this before with success but my problem lies in where the script is created.  Previously it went into my C: drive but now I want it to go to a different location.  No matter how I change the path it always goes to my C: drive

;scriptautonumber lisp
;
;create a script for opening dwg files, regen, and saving version
;
(defun C:scriptautonumber ( / COUNT DIR FILENAME FILES SCRIPTNAME)
(if (setq dir (getfiled "Select the drawing directory:" "" "dwg" 0))
(setq dir (vl-filename-directory dir))
)
(if dir
(setq files (vl-directory-files dir "*.dwg" 1))
)
(if files
(progn
(setq scriptname (open "\\bvfileprd\drafting\drafting\users\c_kauffman\batchnumberupdate.scr" "w")
count 0
)
(while (setq filename (nth count files))
(setq filename (strcat dir "\\" filename))
(write-line (strcat "_open \"" filename "\"") scriptname)
(write-line "f2t" scriptname)
(write-line "regen" scriptname)
(write-line "f2tb" scriptname)
(write-line "regen" scriptname)
(write-line "_zoom extents" scriptname)
(write-line "_qsave" scriptname)
(write-line "_close" scriptname)
(setq count (1+ count))
)
(close scriptname)
)
)
(princ)
)

[hmsilva]

Try

(open "\\\\bvfileprd\\drafting\\drafting\\users\\c_kauffman\\batchnumberupdate.scr" "w")

Hope this helps,
Henrique

[Anonymous]

Error.  Bad arguement typ.

[Anonymous]

; error: bad argument type: 

[hmsilva · Accepted solution]

Probably the  script file was not open...

try

 ;scriptautonumber lisp
 ;
 ;create a script for opening dwg files, regen, and saving version
 ;
(defun C:scriptautonumber (/ count dir filename files scriptname)
    (if (and (setq dir (getfiled "Select the drawing directory:" "" "dwg" 0))
             (setq dir (vl-filename-directory dir))
             (setq files (vl-directory-files dir "*.dwg" 1))
             (setq scriptname (open (strcat (chr 34) "\\\\bvfileprd\\drafting\\drafting\\users\\c_kauffman\\batchnumberupdate.scr" (chr 34)) "w"))
             (setq count 0)
        )
        (progn
            (while (setq filename (nth count files))
                (setq filename (strcat dir "\\" filename))
                (write-line (strcat "_open \"" filename "\"") scriptname)
                (write-line "f2t" scriptname)
                (write-line "regen" scriptname)
                (write-line "f2tb" scriptname)
                (write-line "regen" scriptname)
                (write-line "_zoom extents" scriptname)
                (write-line "_qsave" scriptname)
                (write-line "_close" scriptname)
                (setq count (1+ count))
            )
            (close scriptname)
        )
    )
    (princ)
)

Henrique

[Anonymous]

Did not work.  It ran but i cant find the script file anywhere.

[hmsilva]

---

@Anonymous wrote:

Did not work.  It ran but i cant find the script file anywhere.

---

Is the posted path, the real path, or just a sample?

Henrique

[Anonymous]

that is the actual path

[hmsilva]

If you run this 'demo', what happens?

(defun c:demo (/ file ofile)
    (if (and (setq file (strcat (chr 34) "\\\\bvfileprd\\drafting\\drafting\\users\\c_kauffman\\batchnumberupdate.txt" (chr 34)))
             (setq ofile (open file "w"))
             (princ ofile)
        )
        (progn
            (write-line "This is a test" ofile)
            (close ofile)
            (if (findfile file)
                (startapp "Notepad" file)
                (princ "\nFile not found... ")
            )
        )
    )
    (princ)
)

Henrique

[Anonymous]

It's working now.  typo

[hmsilva]

---

@Anonymous wrote:

It's working now.  typo

---

You're welcome, ckauffman
Glad you got a solution!

Henrique