[分享]：给大家新写了个天正5的“自由粘贴”的增强版本...

XDSoft

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    命令：XPasteClip
   
6.    功能：自由粘贴
   
7.    说明：1、对于剪切板中的文字，将给出修改行距、是否删除前导空格等操作
   
8.         2、运行在ACAD2002下
   
9.         3、可以任意拖动，在拖动中可以做旋转、缩放、对齐等操作。
   
10. |;
    
11. (defun c:XPasteClip (/ ss)
    
12.   ($XDlsp_CheckA2k+)
    
13.   (xdrx_begin)
    
14.   (xdrx_setmark)
    
15.   (if (xdrx_getclipboard)
    
16.     (progn
    
17.       ($xdrx_load "txt_tool.lsp")
    
18.       (c:txt_getclip)
    
19.     )
    
20.     (progn
    
21.       (command "._pasteclip" '(0 0 0))
    
22.     )
    
23.   )
    
24.   (if (setq ss (xdrx_getss 8))
    
25.     (progn
    
26.       ($xdlsp_dragm ss nil nil)
    
27.     )
    
28.   )
    
29.   (xdrx_end)
    
30.   (princ)
    
31. )
    
32. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    命令：XPasteClip<br />    功能：自由粘贴<br />    说明：1、对于剪切板中的文字，将给出修改行距、是否删除前导空格等操作<br />         2、运行在ACAD2002下<br />         3、可以任意拖动，在拖动中可以做旋转、缩放、对齐等操作。<br /> |;<br /> (defun c:XPasteClip (/ ss)<br />   ($XDlsp_CheckA2k+)<br />   (xdrx_begin)<br />   (xdrx_setmark)<br />   (if (xdrx_getclipboard)<br />     (progn<br />       ($xdrx_load "txt_tool.lsp")<br />       (c:txt_getclip)<br />     )<br />     (progn<br />       (command "._pasteclip" '(0 0 0))<br />     )<br />   )<br />   (if (setq ss (xdrx_getss 8))<br />     (progn<br />       ($xdlsp_dragm ss nil nil)<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> [/FONT]