拷贝TEXT,MTEXT，多行散TEXT，表格（块）内容到剪切板

Lispboy · 发表于 2016-12-25 18:04:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

函数 XD::TEXT:ToClipboard 见 http://bbs.xdcad.net/thread-706639-1-1.html

[sell]

(defun c:XDTB_TOCLIPBOARD ( / ss)
  (xdrx_begin)
  (xdrx_initssget "\n选取拷贝剪切板的文字、表格<退出>:")
  (if (setq ss (xdrx_ssget '((-4 . "<or") (0 . "*text,ACAD_TABLE")
                            (2 . "*TABLE*")
                            (-4 . "or>")
                           )
               )
      )
    (progn
      (if (not (xd::pickset:getsub ss '((0 . "*TEXT"))))
        (setq ss (ssname ss 0))
      )
      (if (XD::TEXT:ToClipboard ss)
        (xdrx_prompt "\n选择内容已经拷贝到剪切板.")
        (xdrx_prompt "\n拷贝失败，请检查数据.")
      )
    )
  )
  (xdrx_end)
  (princ)
)

[/sell]

forb0217 · 发表于 2016-12-26 08:04:51

ctrl+c再ctrl+v不就行了吗？

ps122 · 发表于 2016-12-26 08:23:05

谢谢分享，自动识别TEXT,MTEXT

Lisphk · 发表于 2016-12-26 10:51:39

forb0217 发表于 2016-12-26 08:04

你可以试试CTRL+C后，到EXCEL里面CTRL+V能把表格粘贴过去不。

Lisphk · 发表于 2016-12-26 10:58:51

用这个，可以轻松在CAD和EXCEL直接转换表格了

737077 · 发表于 2016-12-27 14:33:24

选完就提示这个，错误: no function definition: XD::TEXT:TOCLIPBOARD

newer · 发表于 2016-12-27 14:45:31

737077 发表于 2016-12-27 14:33

仔细看下帖子，函数连接在帖子里面呢。

hhhlike · 发表于 2017-1-8 16:51:18

实用的功能，顶一个

cq_qg68 · 发表于 2017-1-8 20:42:16

这个不错，前一阵还找这个呢

ming1789 · 发表于 2017-2-9 12:28:33

正需要，支持楼主大人了！

ming1789 · 发表于 2017-2-15 20:28:25

正需要，支持楼主大人了！

tanwei1 · 发表于 2017-8-27 13:01:50

实用的功能

sjj · 发表于 2017-8-28 04:09:12

这个可以有

liulisheng · 发表于 2017-9-7 16:15:41

sjj · 发表于 2017-9-9 03:09:12

{\f宋体|b0|i0|c134;\C7;序号
怎么多出控制符？哪里出问题了

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

[表格] 拷贝TEXT,MTEXT，多行散TEXT，表格（块）内容到剪切板

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子