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

664571221

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

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

咏郡

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

tranque

用手敲代替复制粘贴试试

664571221

(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文字已复制到剪切板,可以直接粘贴了！")
)谢谢永君