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

chenry676

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

e2002

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



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

xj6019

(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 (dxf  ent 1))
        (zml-clip-setstring   atna)
        (princ)
)

cj52000

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

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

xj6019

      CTRL+C

cj52000

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

zghmaya

感谢楼主分享,收下

chenry676

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

十分感谢，是我想要的！

xj6019

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

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

涨知识了

cj52000

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

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