[LISP程序]：文字转序号工具(处理如梁编号、柱编号等)。

eachy

例如用于PKPM形成的梁柱编号，转换后即可用工具箱的序号标注、序号擦除命令了。

2. 
   
3. ;;通用文字转序号工具
   
4. ($xdrx_load "xdlsp.lsp")
   
5. (defun c:XDTB_TxttoXH (/ str ss e xh)
   
6.   (setq str (getstring "\n输入要转换文字的前缀: "))
   
7.   (princ "\n选择范围[ALL - 全选]: ")
   
8.   (setq ss (ssget (list '(0 . "text") (cons 1 (strcat str "*")))))
   
9.   (if ss
   
10.     (progn
    
11.       (xdrx_setsstodb ss 0)
    
12.       (while (setq e (xdrx_getentdata 0))
    
13.         (if ($xdlsp_string_isNum
    
14.               (setq xh (substr (xdrx_getentdxf 1) (1+ (strlen str))))
    
15.             )
    
16.           (progn
    
17.             (xdrx_setxdata
    
18.               e
    
19.               "XDTB_SYM_XH"
    
20.               str
    
21.               (fix (read xh))
    
22.             )
    
23.             (if        (not $XDTB_Symbol_Prefix)
    
24.               (setq $XDTB_Symbol_Prefix str)
    
25.             )
    
26.           )
    
27.         )
    
28.       )
    
29.     )
    
30.     (princ "\n未选择到要求文字!")
    
31.   )
    
32.   (princ)
    
33. )

<br /> ;;通用文字转序号工具<br /> ($xdrx_load "xdlsp.lsp")<br /> (defun c:XDTB_TxttoXH (/ str ss e xh)<br />   (setq str (getstring "\n输入要转换文字的前缀: "))<br />   (princ "\n选择范围[ALL - 全选]: ")<br />   (setq ss (ssget (list '(0 . "text") (cons 1 (strcat str "*")))))<br />   (if ss<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (if ($xdlsp_string_isNum<br />               (setq xh (substr (xdrx_getentdxf 1) (1+ (strlen str))))<br />             )<br />           (progn<br />             (xdrx_setxdata<br />               e<br />               "XDTB_SYM_XH"<br />               str<br />               (fix (read xh))<br />             )<br />             (if        (not $XDTB_Symbol_Prefix)<br />               (setq $XDTB_Symbol_Prefix str)<br />             )<br />           )<br />         )<br />       )<br />     )<br />     (princ "\n未选择到要求文字!")<br />   )<br />   (princ)<br /> )

小鱼儿

对了，我要的就是它。谢谢。

eachy

最初由 小鱼儿 发布
[B]对了，我要的就是它。谢谢。 [/B]

上面的有个BUG，已修改。

fn_oy

请教：美丽图画如何画、贴?

xgwl

太好了~~~ 谢谢~~~~

belta

怎么我用不起拉《我已经试过好多次了

eachy

最初由 belta 发布
[B]怎么我用不起拉《我已经试过好多次了 [/B]

里面多了对括号，已改正。

coojin

请问一下，这段编码如何加入晓东工具箱，它的使用命令是什么啊？？

xjiansh

我想命令应该是XDTB_TxttoXH，如何加入晓东参见“[编程申请]：批量处理文字的程序 “

chdll

不懂,怎么回事??

sh7858

不会用，能不能详细讲解一下？

badaguai

我不会用，请指教