大部分写入剪切板的代码都是利用htmlfile来实现，下面的代码借助于WSH来实现剪切板写入和清空。


  3. (Defun HTML:CLIPBOARD-WRITE (txt)
  4.   (vlax-invoke
  5.     (vlax-get-property
  6.       (vlax-get-property
  7.   (vlax-create-object "htmlfile")
  8.   "ParentWindow"
  9.       )
  10.       "ClipBoardData"
  11.     )
  12.     "SetData"
  13.     "Text"
  14.     txt
  15.   )
  16.   txt
  17. )

  19. (Defun WSH:CLIPBOARD-WRITE (txt / WSH)
  20.   (vlax-invoke
  21.     (setq wsh (vlax-create-object "Wscript.Shell"))
  22.     "run"
  23.     (strcat "cmd /c \042echo " txt " | clip\042")
  24.     0
  25.     :vlax-false
  26.   )
  27.   (vlax-release-object wsh)
  28.   txt
  29. )
  30. (Defun WSH:CLIPBOARD-CLEAR () (WSH:CLIPBOARD-WRITE ""))




网友答: 原来是在回应之前的求助贴
  • 上一篇：可不可以用LISP实现线割费用计算，如图。
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025