【求助】如何将lisp中变量的值送入剪贴板中？

;;;=================================================================*
;;;功能：向系统剪贴板写入文字 *
( defun ZML-CLIP-SETSTRING ( STR / HTML RESULT )
( and ( = ( type STR ) ' STR )
( setq HTML ( vlax-create-object "htmlfile" ) )
( setq RESULT ( vlax-invoke
( vlax-get ( vlax-get HTML ' PARENTWINDOW )
' CLIPBOARDDATA
)
' SETDATA
"Text"
STR
)
)
( vlax-release-object HTML )
)
)
;;;=================================================================*