社区 › AutoCAD工具插件 › 【已解决】怎样做到点击的属性块某一个文字后，自动把内容复制到剪切板中？

chenry676 发表于 2022-4-16 17:23:28

【已解决】怎样做到点击的属性块某一个文字后，自动把内容复制到剪切板中？

本帖最后由 chenry676 于 2022-4-27 23:40 编辑

怎样做到点击的属性块某一个文字后，自动把内容复制到剪切板中？

e2002 发表于 2022-4-17 23:04:57

本帖最后由 e2002 于 2022-5-14 19:37 编辑

Tip：按住 Ctrl键不松开，同时鼠标点击Attrib就直接能编辑。对应的命令是 ：attipedit



我估计知道这个功能的用户，不超过1%。

xj6019 发表于 2022-4-17 19:01:31

(defun c:NMM (/ atna dxf ent zml-clip-setstring)
(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 dxf (ent i) (cdr (assoc i (entget ent))))
        (setq ent(car(nentsel)))
        (setq atna (dxfent 1))
        (zml-clip-setstring   atna)
        (princ)
)

cj52000 发表于 2022-4-18 13:54:06

xj6019 发表于 2022-4-17 19:01
(defun c:NMM (/ atna dxf ent zml-clip-setstring)
(defun zml-clip-setstring (str / html result)
...

大师你好，程序针对属性块文字和单行文字很有效，但是针对多行文字复制出来会多出很多东西，如下图，如果能将多行文字的格式清除，能完美复制就更完美了

xj6019 发表于 2022-4-16 17:25:55

      CTRL+C

cj52000 发表于 2022-4-17 11:33:07

顶一个，公司图框也是属性块，排计划需要复制属性块文字，常规操作是双击属性块文字，然后复制，然后再粘贴至EXCEL，有点繁琐，如果要是能直接点击属性块文字就复制到剪切板上，就更加方便了

zghmaya 发表于 2022-4-18 02:50:36

感谢楼主分享,收下

chenry676 发表于 2022-4-18 09:45:29

xj6019 发表于 2022-4-17 19:01
(defun c:NMM (/ atna dxf ent zml-clip-setstring)
(defun zml-clip-setstring (str / html result)
...

十分感谢，是我想要的！

xj6019 发表于 2022-4-18 10:46:46

e2002 发表于 2022-4-17 23:04
Tip：按住 Ctrl键不松开，同时鼠标点击Attrib就直接能编辑。

我估计知道这个功能的用户，不超过1%。

涨知识了

cj52000 发表于 2022-4-18 10:46:51

xj6019 发表于 2022-4-17 19:01
(defun c:NMM (/ atna dxf ent zml-clip-setstring)
(defun zml-clip-setstring (str / html result)
...

万分感谢，也是我想要的！

查看完整版本: 【已解决】怎样做到点击的属性块某一个文字后，自动把内容复制到剪切板中？