如何把程序里的字符串放到剪切板上呢？

duotu007

如题，谁能告诉我下，谢谢。

yucpp

程序中的字符串哪里来的？我有个从cad中复制到剪切板的。
;;;=================================================================*
;;;功能：向系统剪贴板写入文字                                       *
(vl-load-com)
(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)
  )
)
;;;=================================================================*
;;函数测试
(defun c:ctv ()
  (setq txtss (ssget '((0 . "*TEXT"))))
  (while (> (sslength txtss) 1)
    (alert "只能选择一个文字串，请重新选择！")
    (setq txtss (ssadd))
    (setq txtss (ssget '((0 . "*TEXT"))))
  )
  (setq txtcon (cdr (assoc 1 (entget (ssname txtss 0)))))
  (ZML-CLIP-SETSTRING txtcon)
  (princ "\n文字已复制到剪切板,可以直接粘贴了！")
  (princ)
)

664571221

yucpp 发表于 2011-3-4 17:53
前段时间从网上搜的代码，大家参考下。

;;;  读写系统剪贴板                                          ...

留个记号呵呵呵呵额啊

Qwer1243

yucpp 发表于 2011-3-4 17:53
前段时间从网上搜的代码，大家参考下。

;;;  读写系统剪贴板                                          ...

谢谢分享!!!!!!!!!!!!!!!!!!

duotu007

谢谢了，正是我想要的，很好。

crazylsp

(defun c:ct()
(setq ss(ssget '((0 . "text")) ))

yucpp

前段时间从网上搜的代码，大家参考下。

;;;  读写系统剪贴板                                                 *
;;;                                                                 *
;;;=================================================================*
;;;功能：读取系统剪贴板中字符串
(defun GET-CLIP-STRING (/ HTML RESULT)
    (and (setq HTML (vlax-create-object "htmlfile"))
(setq RESULT (vlax-invoke
  (vlax-get (vlax-get HTML 'PARENTWINDOW)
    'CLIPBOARDDATA
  )
  'GETDATA
  "Text"
      )
)
(vlax-release-object HTML)
    )
    RESULT
)
;;;=================================================================*
;;;功能：向系统剪贴板写入文字                                       *
(defun SET-CLIP-STRING (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)
    )
)

sy100

学习一下，标记备用

zxjing

学习一下，标记备用

doro

不错不错 这个好用

LLXXZZ

学习一下，标记备用

skynoon

学习一下，标记备用