How can i set the new file name in the qsave window
My new file name is "newnumber" as per the below lisp
(command "undefine" "qsave")
(defun c:qsave ()
(setq num (car (entsel"\nSelect Existing File number:\n" )))
(setq texl1 (vlax-ename->vla-object num))
(setq val1(vla-get-TextString texl1 ))
(setq oldnumber1 (substr val1 3 6) )
(setq newnumber (strcat "57" oldnumber1) )
(Princ newnumber)
(command "zoom" "e")
(if (= 1 (getvar "dwgtitled"))
(command ".save" "") ;If already saved, just save it
(command ".save" "~" ) ;If new drawing, open dialog to save
)
(princ)
)
@Anonymous wrote:How can i set the new file name in the qsave window
My new file name is "newnumber" as per the below lisp
....
Look at the (getfiled) function, with its 'default' argument.