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

tranney

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

zjsru_18_505

1. (defun C:TT (/ E I LEN OBJ SS TEXT)
   
2.     (vl-load-com)
   
3.     (if        (setq SS (ssget '((0 . "text"))))
   
4.         (progn (setq LEN  (sslength SS)
   
5.                      I          -1
   
6.                      TEXT ""
   
7.                )
   
8.                (repeat LEN
   
9.                    (setq E    (ssname SS (setq I (1+ I)))
   
10.                          TEXT (strcat TEXT (cdr (assoc 1 (entget E))) "\n")
    
11.                    )
    
12.                )
    
13.         )
    
14.     )
    
15.     (setq OBJ (vlax-create-object "htmlfile"))
    
16.     (vlax-invoke
    
17.         (vlax-get (vlax-get OBJ 'PARENTWINDOW) 'CLIPBOARDDATA)
    
18.         'SETDATA
    
19.         "Text"
    
20.         TEXT
    
21.     )
    
22.     (vlax-release-object OBJ)
    
23.     (princ)
    
24. )

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

tranney

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

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

vlisp2012

;;;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

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

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

ivde

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=504042