Hello everyone!
I need help on LISP routine that will launch new email outlook and attach all files with same name as drawing name (no matter what the extension is) in same directory. Please help!!!! Thanks in advance 🙂
Solved! Go to Solution.
Solved by hmsilva. Go to Solution.
Solved by hmsilva. Go to Solution.
@JCprog wrote:
It worked!!!!!!!!!!! Thank you very much Henrique!!!!!!!!!!
The only thing is it also grabs .dwl files that acad generates when drawing file is open.
You're welcome, JCprog
Replace the filelst function by this one
(defun filelst (/ LST NAME PATH) (setq path (getvar 'DWGPREFIX) name (vl-filename-base (getvar 'DWGNAME)) ) (foreach x (vl-directory-files path nil 1) (if (and (wcmatch (vl-filename-base x) name) (not (wcmatch (vl-filename-extension x) ".dwl2,.dwl")) ) (setq lst (cons (strcat path x) lst)) ) ) lst )
HTH
Henrique
Thank you, mid-awe,
but all credits from the "rjp-OutlookMessage" function going to ronjonp, I just put it together with the "filelst" function to suit the OP...
Cheers
Henrique