664571221 发表于 2024-4-19 15:37:56

各位大神帮忙看下，这个图纸复制文字不能复制到粘贴板，复制的是第二行的文字，能....

各位大神帮忙看下，这个图纸复制文字不能复制到粘贴板，复制的是第二行的文字，能不能做一个复制文字的功能 复制第一行那个文字

如图本来我想复制第一行11#集水井，可是用复制功能复制的是RS1#集水井
可不可以做一个输入TT点击文字后 复制的是11#集水井

咏郡 发表于 2024-4-19 22:05:23

不会:lol我复制怎么就是上面的呀，是不是版本改跟新了

tranque 发表于 2024-4-20 10:13:39

用手敲代替复制粘贴试试

664571221 发表于 2024-4-20 10:19:41

(defun c:tt(/ ent txt 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)
)
)
        (setq ent(ssname (ssget ":s")0))
        (setq txt (cdr(assoc 2(entget ent))))
        (ZML-CLIP-SETSTRING txt)
        (princ "\n文字已复制到剪切板,可以直接粘贴了！")
)谢谢永君
页: [1]
查看完整版本: 各位大神帮忙看下，这个图纸复制文字不能复制到粘贴板，复制的是第二行的文字，能....