I have an export routine that I would like to improve on.
It's "fine" but I would like it to do two things.
The first thing (and most important) is that the unused layers go away. I need that not to happen.
The second thing is that it would be nice if the file could overwrite itself, but I don't think that is possible. But I can do a work around for that.
Below is the code.
- (defun c:E2A ( / filename) (setq filename (strcat (getvar "dwgprefix") "acad-" (getvar "dwgname"))) ; (setq filename (strcat (getvar "dwgprefix") "" (getvar "dwgname"))) (if (findfile filename) (progn (Princ "\nOverwriting and exporting file to AutoCAD ...") (command "_.-exporttoautocad" "_F" "2010" "" filename "_Y") ) (progn (Princ "\nExporting new file to AutoCAD ...") (command "_.-exporttoautocad" "_F" "2010" "" filename) ) ) (princ))
Greg | 
置顶卡
