Copy filename and path to clipboard

[Anonymous]

Hey guys,

Wondering if I can get some help with this one.

I want to be able to copy the DWGPrefix & DWGName to the clipboard. Somethign along the lines of: 

(defun C:SaveFilePath ()
   (setq filepath (getvar "dwgprefix"))
   (setq filename (getvar "dwgname"))

   **Concatenate variables here**
   (command "ClipBoard Paste" filepath&filename)
(princ))

I've read about some about Doslib but I would prefer to go this route is at all possible.

Thanks

[Ranjit_Singh · Accepted solution]

Try below code

(defun c:somefunc  (/ a htmlObj)
     (setq a       (strcat (getvar 'dwgprefix) (getvar 'dwgname))
           htmlObj (vlax-get-or-create-object "htmlfile"))
     (vlax-invoke (vlax-get (vlax-get htmlObj 'parentwindow) 'clipboarddata) 'setdata "text" a)
     (vlax-release-object htmlObj)
     (setq htmlObj ())
     (gc)
     (princ))