关于弹出窗口调用txt文字（问题已经解决一半了，还有一半）

battman

1,不支持ctrl＋c <v>,况且一行文字中我只需要选种一个字符以便复制，就不行了，这个程序只能选种一行文字，

2.在弹出的对话框中的Unicode字符都显示为“？”号了，

battman

晕了,这两个问题,不能解决吗?

myjping

这个问题太有难度了，我也不会

Gu_xl

调用windows的notepad，

2. 
   
3. (defun c:op()
   
4.   (startapp "notepad.exe" "c:\\program files\\autocad2005\\temp.txt")
   
5.   )
   
6. 
   

<br /> (defun c:op()<br />   (startapp "notepad.exe" "c:\\program files\\autocad2005\\temp.txt")<br />   )<br /> <br />

edsion24

持续关注中 呵呵 我也需要这个

edsion24

咋没高手继续了呢 呵呵？

Gu_xl

回复 edsion24 的帖子

14楼不是已经给答案了吗？命令行输入：op 弹出记事本对话框！还没达到你的要求？

edsion24

...........

xshrimp

双击复制到剪贴板

2. 
   
3. (defun c:txt()
   
4.   (defun list_ok()
   
5.     (if (/= "" (setq get (get_tile "list")))
   
6.     (progn
   
7.     (setq n (nth (atoi get) strlst))
   
8.     (gps->clip-settxt n)
   
9.     (print n)
   
10.     (princ)
    
11.     )
    
12.     )
    
13.   (done_dialog 1)
    
14.   )
    
15.   (setq dclname
    
16.     (cond  
    
17.       ((setq tempname (vl-filename-mktemp "gps-dcl-tmp.dcl") filen (open tempname "w"))
    
18. 
    
19. (foreach stream  
    
20. 
    
21. '(  
    
22. 
    
23. "txt:dialog { \n"
    
24. 
    
25. "    label = "常用文字选择" ;\n"
    
26. 
    
27. "    :list_box {key = "list" ;label = "文本内容,双击复制到剪贴板" ;}\n"
    
28. 
    
29. "    cancel_button;\n"
    
30. 
    
31. "}\n"
    
32. 
    
33. )
    
34. 
    
35. (princ stream filen)
    
36. 
    
37. )
    
38.        (close filen)
    
39.        tempname
    
40.       ))
    
41.     )
    
42. 
    
43. (setq strlst (gps->file-2strlst "c:\\boot.ini"))
    
44. (setq dclid (load_dialog dclname))  
    
45. (if (not (new_dialog "txt" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))
    
46. 
    
47. (start_list "list")
    
48. (mapcar '(lambda(x)(add_list x)) strlst)
    
49. (end_list)
    
50. (action_tile "list" "(if (= $reason 4)(list_ok))")
    
51. (start_dialog)
    
52. (unload_dialog dclid)
    
53. (vl-file-delete dclname)
    
54. )
    
55. 
    
56. (defun gps->file-2strlst (fn / f line re)   
    
57.   (if  (and  (= (type fn) 'STR) (findfile fn))
    
58.     (progn
    
59.       (setq f (open (findfile fn) "r"))
    
60.       (while (setq line (read-line f))
    
61. 
    
62. (setq re (cons line re ))
    
63.       )
    
64.       (close f)
    
65.       (reverse re)     
    
66.     )  
    
67.   )   
    
68. )
    
69. (defun gps->clip-settxt(str / html result)
    
70. (if (and (= 'str (type str))
    
71.          (setq html   (vlax-create-object "htmlfile"))
    
72.     )
    
73.     (progn
    
74.       (setq result
    
75.              (vlax-invoke-method
    
76.                    (vlax-get
    
77.                       (vlax-get html 'parentwindow)
    
78.                       'clipboarddata
    
79.                     )
    
80.                    'setdata
    
81.                    "text"
    
82.                    str
    
83.               )
    
84.        )
    
85.       (vlax-release-object html)
    
86.       result
    
87.      )
    
88. );end if
    
89. )

<br /> (defun c:txt()<br />   (defun list_ok()<br />     (if (/= "" (setq get (get_tile "list")))<br />     (progn<br />     (setq n (nth (atoi get) strlst))<br />     (gps->clip-settxt n)<br />     (print n)<br />     (princ)<br />     )<br />     )<br />   (done_dialog 1)<br />   )<br />   (setq dclname <br />     (cond  <br />       ((setq tempname (vl-filename-mktemp "gps-dcl-tmp.dcl") filen (open tempname "w")) <br /> <br /> (foreach stream  <br /> <br /> '(  <br /> <br /> "txt:dialog { \n"<br /> <br /> "    label = "常用文字选择" ;\n"<br /> <br /> "    :list_box {key = "list" ;label = "文本内容,双击复制到剪贴板" ;}\n"<br /> <br /> "    cancel_button;\n"<br /> <br /> "}\n"<br /> <br /> )<br /> <br /> (princ stream filen)<br /> <br /> ) <br />        (close filen)<br />        tempname<br />       ))<br />     )<br /> <br /> (setq strlst (gps->file-2strlst "c:\\boot.ini"))<br /> (setq dclid (load_dialog dclname))  <br /> (if (not (new_dialog "txt" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))<br /> <br /> (start_list "list")<br /> (mapcar '(lambda(x)(add_list x)) strlst) <br /> (end_list)<br /> (action_tile "list" "(if (= $reason 4)(list_ok))")<br /> (start_dialog)<br /> (unload_dialog dclid)<br /> (vl-file-delete dclname) <br /> )<br /> <br /> (defun gps->file-2strlst (fn / f line re)    <br />   (if  (and  (= (type fn) 'STR) (findfile fn))<br />     (progn<br />       (setq f (open (findfile fn) "r"))<br />       (while (setq line (read-line f))<br /> <br /> (setq re (cons line re ))<br />       )<br />       (close f) <br />       (reverse re)     <br />     )  <br />   )   <br /> )<br /> (defun gps->clip-settxt(str / html result)<br /> (if (and (= 'str (type str))<br />          (setq html   (vlax-create-object "htmlfile"))<br />     )<br />     (progn<br />       (setq result <br />              (vlax-invoke-method <br />                    (vlax-get<br />                       (vlax-get html 'parentwindow)<br />                       'clipboarddata<br />                     ) <br />                    'setdata <br />                    "text" <br />                    str<br />               )<br />        )<br />       (vlax-release-object html)<br />       result<br />      )<br /> );end if<br /> )

jxlsp

edit_box不支持多行文字啊