[求助]“ctrl+c”系统复制的实现！

EgoEr

终于能发帖子了，原来是3721上网助手搞的鬼，害的我不能发贴！ 我的问题如下： ------------------------------------------------------------------------------------------------------- 我们知道，CAD里面有2种“复制”的方法： 一种用CAD里面的“copy”命令，可以实现复制。 另一种用windows里面的系统复制快捷键“ctrl+c”,也可以实现复制。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我的问题是： 2个数作差后的结果，有没有什么办法，用第二种复制的方法实现复制？ 简单的说，有没有什么函数能够实现“ctrl＋c” mins变量的值？ 程序如下： (defun c:zc()
(prompt "选择被减数:")
(setq A (entsel))
(setq A(atof(cdr(assoc 1 (entget(car A))))))
(prompt "选择减数:")
(setq B (entsel))
(setq B(atof(cdr(assoc 1 (entget(car B)))))) (setq mins(- A B))
)

alin

Doslib 里有个dos_clipboard 的函数可用