明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: duotu007

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

  [复制链接]
发表于 2011-6-16 23:19 | 显示全部楼层
学习,标记下。
发表于 2011-6-17 18:04 | 显示全部楼层
(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 | 显示全部楼层
学习一下,很实用
发表于 2012-8-19 00:22 | 显示全部楼层
(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)
)
;批量调整
发表于 2018-9-7 15:41 | 显示全部楼层
yucpp 发表于 2011-3-4 17:53
前段时间从网上搜的代码,大家参考下。

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

留个记号呵呵呵呵额啊
发表于 2020-4-13 17:49 | 显示全部楼层
反过来怎么写呢?比如在文本复制字符怎么写入CAD呢
发表于 2020-5-14 16:15 | 显示全部楼层
yucpp 发表于 2011-3-4 17:53
前段时间从网上搜的代码,大家参考下。

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

谢谢分享!!!!!!!!!!!!!!!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 19:07 , Processed in 0.155195 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表