[求助]：房间序列编号,同时增加前缀后缀的LSP

同心

[求助]：房间序列编号,同时增加前缀后缀的LSP

露水2

也是在这个论坛找的感谢写这个lsp的人尊重知识产权
看看是不是你要的
我用的是R14版本

2. 
   
3. ;;；增加前后缀
   
4. (DEFUN C:QH ()
   
5. (setq qh (getint "\n1--加前缀,2--加后缀,<1>"))
   
6. (if (= qh nil)(setq qh 1))
   
7. (princ "\nselect object:")
   
8. (setq s (ssget))
   
9. (setq str (getstring "\n输入要加的字:"))
   
10. (setq n (sslength s))
    
11. (setq k 0 )
    
12. (while (< k n)
    
13.       (setq name (ssname s k))
    
14.       (setq a (entget name))
    
15.       (setq t1 (assoc '0 a))
    
16.       (setq t1 (cdr t1))
    
17.       (if (= t1 "TEXT") (PROGN
    
18.         (setq h (assoc '1 a))
    
19.         (setq hh (cdr h))
    
20.         (if (= qh 1)(setq  str1 (strcat str hh)))
    
21.         (if (/= qh 1)(setq str1 (strcat hh str)))
    
22.         (setq h1 (cons 1 str1))
    
23.         ;(if (= str "") (setq h1 h))
    
24.         (setq a (subst h1 h a))
    
25.         (entmod a)
    
26.         ))
    
27.       (setq k (+ k 1))
    
28. )
    
29. )

<br /> ;;；增加前后缀<br /> (DEFUN C:QH ()<br /> (setq qh (getint "\n1--加前缀,2--加后缀,<1>"))<br /> (if (= qh nil)(setq qh 1))<br /> (princ "\nselect object:")<br /> (setq s (ssget))<br /> (setq str (getstring "\n输入要加的字:"))<br /> (setq n (sslength s))<br /> (setq k 0 )<br /> (while (< k n) <br />       (setq name (ssname s k))<br />       (setq a (entget name))<br />       (setq t1 (assoc '0 a))<br />       (setq t1 (cdr t1))<br />       (if (= t1 "TEXT") (PROGN<br />         (setq h (assoc '1 a))<br />         (setq hh (cdr h))<br />         (if (= qh 1)(setq  str1 (strcat str hh)))<br />         (if (/= qh 1)(setq str1 (strcat hh str)))<br />         (setq h1 (cons 1 str1))<br />         ;(if (= str "") (setq h1 h))<br />         (setq a (subst h1 h a))<br />         (entmod a)<br />         ))<br />       (setq k (+ k 1))<br /> )<br /> )

xyp1964

房间编号：
http://www.xdcad.net/forum/showt ... 1875401#post1875401

同心

感谢2楼楼主和3楼楼主，2楼楼主提供的方法序号与前后缀分步完成，仍有不便之处，3楼楼主提供的方法不能添加后缀。
如果能够通过[拾取房间内点]同步序列编号，相应的前后缀均一步完成。例如：A1#、A2#等。