[建议]：改一下程序代码按钮

秋枫

<p><font color="#FF0000">[/CODE]</font><font color="#008000">[ＦＯＮＴ=courier new]</font></p>
<p>ｘｘｘｘｘｘ</p>
<p><font color="#008000">[/ＦＯＮＴ]</font><font color="#FF0000">[/CODE]</font></p>

秋枫

这种Courier New字体一般是用来贴源程序的。

XDSoft

常规模式和高级模式都已经加好了，在高级模式下，“封闭当前标签”可用，“封闭所有标签”还没有加入，实验一下吧。

其实用现在现有的“代码标签按钮”，“字体标签按钮”很方便的，而且在“高级模式”下，可以用封闭所有标签自动封闭它们。

2. 
   
3.   [FONT=courier new]
   
4. ;|
   
5. 命令：BLK_RCLIP
   
6. 
   
7. 功能：恢复上面程序裁减的块和XREF的边界。
   
8. |;
   
9. 
   
10. (defun c:blk_rclip (/ ss e)
    
11.   (prompt "\n请选取恢复的裁减图块或XREF实体<全选>:")
    
12.   (if (not (setq ss (ssget '((0 . "insert")))))
    
13.     (setq ss (ssget "x" '((0 . "insert"))))
    
14.   )
    
15.   (xdrx_setsstodb ss 0)
    
16.   (while (setq e (xdrx_getentdata 0))
    
17.     (xdrx_block_removeclip e)
    
18.   )
    
19.   (princ)
    
20. )
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;| <br /> 命令：BLK_RCLIP <br /> <br /> 功能：恢复上面程序裁减的块和XREF的边界。 <br /> |;<br /> <br /> (defun c:blk_rclip (/ ss e)<br />   (prompt "\n请选取恢复的裁减图块或XREF实体<全选>:")<br />   (if (not (setq ss (ssget '((0 . "insert")))))<br />     (setq ss (ssget "x" '((0 . "insert"))))<br />   )<br />   (xdrx_setsstodb ss 0)<br />   (while (setq e (xdrx_getentdata 0))<br />     (xdrx_block_removeclip e)<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

XDSoft

最初由 秋枫 发布
[B]这种Courier New字体一般是用来贴源程序的。 [/B]

又修改了，常规模式下的，按照你说的做了，

高级模式没有，我推荐大家使用高级模式，好处就是只设置VB标签头就可以，封闭可以直接使用“封闭所有的标签”来封闭，非常方便。

比如你想用字体coruier，你可以用“高级模式”

1. 程序代码标签
2. 在字体里面选coruier

这时就生成两个标签了。下面你可以贴代码了。

最后，使用“封闭所有的标签”就都封闭了。

遇见你真好

我新来的，你们说的我都不太懂，以后要请大家多多关照哦．

yy225cn

晕，这么老的帖子都被翻出来啦，锁帖。