[分享]：房间编号（方框、圆、无）－免币

heroaming

不错,！有些选项能基于对话框就好了，标注楼房幢号实用！
能加后缀么，数字能排在前和中间等
和成组编号结合起来就更强大了

nnwyl

出现“; 错误: no function definition: JZHZ”是什么回事？

heroaming

再加个方框，圆等能固定，字体大小随方框，圆等调整就好了，本身是字体固定，方框，圆等外框随字体大小长度自动调整

DEA

谢谢，有没有可以检查断号的，比如102，104，105，少了一个103，能不能自检出来。还有内插号

zg77

好啊

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;检查断号，如102，104，105，提示少了103
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (SETQ        int1 (UINT 1 "" "\n起始数值" int1)
    
17.         int2 (UINT 1 "" "\n结束数值" int2)
    
18.         i    (- int1 1)
    
19.   )
    
20.   (while (< i int2)
    
21.     (setq i  (1+ i)
    
22.           ss (ssget "X" (list (cons 0 "TEXT") (cons 1 (rtos i 2 0))))
    
23.     )
    
24.     (if        (null ss)
    
25.       (princ (strcat "\n不存在 " (rtos i 2 0)))
    
26.     )
    
27.   )
    
28.   (CMDLA1)
    
29. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;检查断号，如102，104，105，提示少了103<br /> (defun c:test ()<br />   (CMDLA0)<br />   (SETQ        int1 (UINT 1 "" "\n起始数值" int1)<br />         int2 (UINT 1 "" "\n结束数值" int2)<br />         i    (- int1 1)<br />   )<br />   (while (< i int2)<br />     (setq i  (1+ i)<br />           ss (ssget "X" (list (cons 0 "TEXT") (cons 1 (rtos i 2 0))))<br />     )<br />     (if        (null ss)<br />       (princ (strcat "\n不存在 " (rtos i 2 0)))<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

wl1221

这个不错 把自己原来的删掉了 嘿嘿 不知道设定字高后 图框会不会相应改变

jx2008

不错，很好，可以学习

ynjzlzd

要是能使用字母编号且图框能与文字大小匹配就更好了.

TLHMQH

用1楼源码，XP，2004。出现下列中断。

命令: FJBH
编号外框:A-方框/B-圆圈/C-无:c
编号方式:1-数字/2-其他<2>:1
命令:

moli_cn

不知道好用不好用，看看再评价

wl198353

问题见标题

fengsea

不错不错，如果把圆的插入点改为下的化都可当轴测号了，能否取消房间编号图层，使用当前层

Archs

下载了通用函数和本程序后按照说法也不能连续编号？请问程序里的(load "xyp_lib")对应的是哪个通用函数？下载的通用函数没下划线的。只有xyplib.vlx.和xyp.fas!!!

carrot1983

xyp1964 的通用函数里面设置了字体为宋体，
我的意思是，如果这样能改字体的话，就好了。
还有，以前有一个贴子是“桩编号”，可能有些人还记得，
1。字体问题,字体是宋体，反应就慢。还是shx的好.(当然依个人爱好，这里既然是通用函数，宋体每台机子都有。最好呵呵。)
2。最好是加上一段代码：去掉同心圆，不然看起来同一个圆就会有n个编号.