tranney 发表于 2014-8-23 11:50:20

求个lisp能讲选择的文字，等内容复制到系统内存里

求个lisp能讲选择的文字等内容复制到系统内存里，非常感谢各位大神援手~~

zjsru_18_505 发表于 2014-8-23 19:36:11

(defun C:TT (/ E I LEN OBJ SS TEXT)
    (vl-load-com)
    (if        (setq SS (ssget '((0 . "text"))))
        (progn (setq LEN(sslength SS)
                     I          -1
                     TEXT ""
             )
             (repeat LEN
                   (setq E    (ssname SS (setq I (1+ I)))
                       TEXT (strcat TEXT (cdr (assoc 1 (entget E))) "\n")
                   )
             )
        )
    )
    (setq OBJ (vlax-create-object "htmlfile"))
    (vlax-invoke
        (vlax-get (vlax-get OBJ 'PARENTWINDOW) 'CLIPBOARDDATA)
        'SETDATA
        "Text"
        TEXT
    )
    (vlax-release-object OBJ)
    (princ)
)

tranney 发表于 2014-9-9 14:07:22

zjsru_18_505 发表于 2014-8-23 19:36 static/image/common/back.gif


不能够成功，希望大侠改改

vlisp2012 发表于 2014-9-9 14:22:14

;;;ZML大侠的
;;;功能：向系统剪贴板写入文字                                       *
(defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
(setvar "cmdecho" 0)
(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)
)
)

tranney 发表于 2014-9-9 14:28:22

vlisp2012 发表于 2014-9-9 14:22 static/image/common/back.gif
;;;ZML大侠的
;;;功能：向系统剪贴板写入文字                                       *
(defun ZML-CLIP ...

我怎呢用不了呢，提示错误: 参数太少

ivde 发表于 2014-9-9 14:43:37

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=504042
页: [1]
查看完整版本: 求个lisp能讲选择的文字，等内容复制到系统内存里