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

zhb236623 · 发表于 2011-6-16 23:19:28

学习，标记下。

祥子 · 发表于 2011-6-17 18:04:10

(setq HTML (vlax-create-object "htmlfile"))
   (setq RESULT (vlax-invoke
                  (vlax-get       (vlax-get HTML 'PARENTWINDOW)
                              'CLIPBOARDDATA
                  )
                  'SETDATA
                  "Text"
                  STR
                  )

如果系统不是管理员身份就会出错，好多类似的方法都必须要是管理员身份，

看来还是不完善的

★飞飛★ · 发表于 2012-8-17 13:08:35

学习一下，很实用

历史片 · 发表于 2012-8-19 00:22:11

(defun c:w2()
(vl-load-com)
  (setq txtcon (strcat))
   (setq txtss (ssget '((0 . "*TEXT,DIMENSION"))))
   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (setq i 0)
  (setq txtcon (strcat))
  (repeat (vla-get-count ssv)
      (setq txtcon (apply '(lambda (v) (setq txtcon (strcat txtcon  v "\n ")))
   (progn
   (if (= (vla-get-ObjectName (vla-item ssv i)) "AcDbRotatedDimension")
         (progn (if (= (vla-get-TextOverride (vla-item ssv i)) "")
                                    (setq pt (rtos (vla-get-Measurement (vla-item ssv i)) 2 2))
                                    (setq pt (vla-get-TextOverride (vla-item ssv i)) )))
                           (setq pt (vla-get-TextString (vla-item ssv i)))
   )
                     (list pt)
   )))
      (setq i (1+ i))
      )
  (ZML-CLIP-SETSTRING txtcon)
  (princ "\n文字已复制到剪切板,可以直接粘贴了！")
(princ)
)
；批量调整

664571221 · 发表于 2018-9-7 15:41:43

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

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

留个记号呵呵呵呵额啊

hn10183051 · 发表于 2020-4-13 17:49:40

反过来怎么写呢？比如在文本复制字符怎么写入CAD呢

Qwer1243 · 发表于 2020-5-14 16:15:41

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

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

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

账号		自动登录	找回密码
密码			注册

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