LISP Assistance

[swanny89]

Hi all,

 

I've been trying to accomplish what I thought would be an easy thing, but despite hours of searching I can't seem to get it to work!

 

I'm trying to create a lisp that I can run in AutoCAD LT (2025) that does a "SAVE AS" and simply adds " - EXPORTED" as a suffix onto the original filename. I'd like this to happen without any dialogue boxes popping up, and If it could have the following features it would be absolutley perfect (but these arent crucial).

 

1. specify the file version from within the lisp

2. save the exported versions into a folder within the same directory called "exported" (and overwrite previous versions if they exist)

 

The closest I've gotten is using the below code to do the saveas, but it throws an error (; error: bad argument type: stringp nil)

 

(defun c:TEST ()
  (vl-load-com)
  (vla-SaveAs (vla-get-ActiveDocument (vlax-get-acad-object)) (strcat myfilepath myfilename ".dwg") ac2018_dwg)
)

 

If anyone is able to help me out I'd very much appreciate it

 

 

 

 

[Steven P]

LT is not brilliant with VLA- or VL- commands so best really avoid them for now.

 

Perhaps not the most efficient method but try the (command "_.saveas" ...... ) method

[GLAVCVS]

Hi
It's not certain that all the functions in this code will work in AutoCAD LT.
Try it.

 

(defun c:guardA (/ v nvoD f?)
  (setq v (member (vla-get-saveAsType (vla-get-openSave (vla-get-preferences (vlax-get-acad-object)))) (list acr14_dwg "v14" ac2000_dwg "v2000" ac2004_dwg "v2004" ac2007_dwg "v2007" ac2010_dwg "v2010" ac2013_dwg "v2013" ac2018_dwg "v2018")))
  (setq f? (if (not (vl-directory-files (setq nvoD (strcat (getvar "DWGPREFIX") "EXPORTED\\")))) (VL-MKDIR nvoD) T))
  (vla-saveas (vla-get-activedocument (vlax-get-acad-object)) (strcat (if f? nvoD (getvar "DWGPREFIX")) (VL-FILENAME-BASE (getvar "DWGNAME")) "-EXPORTED_" (cadr v) ".dwg") (car v))
  (princ "\nDone!") 
  (princ) 
)

 

Edited 3 hours ago by GLAVCVS

[Lee Mac]

6 hours ago, swanny89 said:

The closest I've gotten is using the below code to do the saveas, but it throws an error (; error: bad argument type: stringp nil)

 

(defun c:TEST ()
  (vl-load-com)
  (vla-SaveAs (vla-get-ActiveDocument (vlax-get-acad-object)) (strcat myfilepath myfilename ".dwg") ac2018_dwg)
)

 

Have you defined the variables 'myfilepath' and 'myfilename' somewhere?

If not, these symbols will evaluate to nil, yielding the error you have described.