例如，用lisp程序得到点的x坐标值，想用程序实现把这个坐标值送入剪贴板中，以便直接粘贴到别的地方去。哪位大侠知道怎么实现？
例如，用lisp程序得到点的x坐标值，想用程序实现把这个坐标值送入剪贴板中，以便直接粘贴到别的地方去。哪位大侠知道怎么实现？
2楼
;;;=================================================================*
;;;功能：向系统剪贴板写入文字 *
(
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
)
)
)
;;;=================================================================*
回复
