一对读写剪贴板文字的程序

狂刀无痕

2. (defun c:setclipbtext ()
3.   (command
4.     ".vbastmt"        "Set textObj = New DataObject"
5.     ".vbastmt"        (strcat "textObj.SetText "" (getstring "\n 输入文本:") """)
6.     ".vbastmt"        "textObj.PutInClipboard"
7.     ".vbastmt"                       "Set textobj = nothing"
8.    )     ;command
9.   (princ)
10. )
11. (defun c:GETclipbtext ()
12.   (command
13.     ".vbastmt"        "Set textObj = New DataObject"
14.     ".vbastmt"        "textObj.GetfromClipboard"
15.     ".vbastmt"                       "Set textobj = nothing"
16.    )     ;command
17.   (princ)
18. )

(defun c:setclipbtext ()   (command     ".vbastmt"        "Set textObj = New DataObject"     ".vbastmt"        (strcat "textObj.SetText "" (getstring "\n 输入文本:") """)     ".vbastmt"        "textObj.PutInClipboard"     ".vbastmt"                       "Set textobj = nothing"    )     ;command   (princ) ) (defun c:GETclipbtext ()   (command     ".vbastmt"        "Set textObj = New DataObject"     ".vbastmt"        "textObj.GetfromClipboard"     ".vbastmt"                       "Set textobj = nothing"    )     ;command   (princ) )

补充：cad2010版本以上需要vba支持。其余的不知道适用情况，大家测试下
读写剪贴板的程序有很多方法，调用html的，vbscript的，直接用vb或vba的，上面的实际上是在lisp借助"vbastmt"命令调用vba。好像没怎么见人贴过。贴出来玩玩

雪山飞狐_lzh

顶下，2010的Application.Eval不知支不支持VBA的语句了，没试过

狂刀可以试下

雪山飞狐_lzh

可以试下使用Application.Eval调用VBA语句

另外，可以用冒号分隔多个语句把VBA代码写成一行，调用一次

caoyin

运行vbastmt 命令仍然有“VBA未安装”的提示

不死猫

2. ;by nonsmall @ mjtd
3. (setq htm (vlax-create-object "htmlfile"))
4. (defun nonsmall_GetClipboard();获取剪切板
5. (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData))
6. (Vlax-Invoke Clip_Bord 'GetData "text")
7. )
8. (defun nonsmall_SetClipboard(clip);设置剪切板
9. (Vlax-Invoke Clip_Bord 'SetData "text" clip)
10. )

;by nonsmall @ mjtd (setq htm (vlax-create-object "htmlfile")) (defun nonsmall_GetClipboard();获取剪切板 (setq Clip_Bord (Vlax-Get-Property (Vlax-Get htm 'ParentWindow) 'ClipboardData)) (Vlax-Invoke Clip_Bord 'GetData "text") ) (defun nonsmall_SetClipboard(clip);设置剪切板 (Vlax-Invoke Clip_Bord 'SetData "text" clip) )

xshrimp

;清空剪贴板
(Vlax-Invoke Clip_Bord 'cleardata "text" clip)

sy100

向各位学习！

gtj116600

呵呵，狂刀和不死猫