（结构用）梁编号加减数字

海盗曹

springwillow 发表于 2012-5-21 10:04
支持一下海盗！

谢谢支持~

greatvictory

咋不来个自动重排捏？

龙瀚

这个设计时能用到，多谢并学习

freeok

支持。。

cable2004

支持。。支持。。支持。。

wkyuok

非常感谢，很管用哦！！！

海盗曹

greatvictory 发表于 2012-5-21 15:43
咋不来个自动重排捏？

修行不够啊。。。

xyp1964

2. ;; 伪源码需要e派工具箱(XCAD)的支持
   
3. ;; 梁编号数字增减
   
4. (defun c:tt (/ co ss i s1 tx n1 n2 tx1 tx2 tx3)
   
5.   (setq        int (Uint 3 "" "增减数字" int)
   
6.         co  (if        (> int 0)
   
7.               4
   
8.               1
   
9.             )
   
10.   )
    
11.   (princ "\n选择梁编号文本: ")
    
12.   (if (setq ss (ssget '((0 . "TEXT") (1 . "*L-* *x,*L-* *X*,*L-* *×"))))
    
13.     (progn
    
14.       (setq i -1)
    
15.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
16.         (setq tx  (xyp-get-dxf 1 s1)
    
17.               n1  (vl-string-search "-" tx)
    
18.               n2  (vl-string-search "(" tx)
    
19.               tx1 (substr tx 1 (+ n1 1))
    
20.               tx2 (substr tx (+ n1 2) (- n2 n1 1))
    
21.               tx3 (substr tx (+ n2 1))
    
22.               tx2 (itoa (+ (atoi tx2) int))
    
23.               tx  (strcat tx1 tx2 tx3)
    
24.               s1  (xyp-SubUpd s1 1 tx)
    
25.         )
    
26.         (xyp-put "color" s1 co)
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

;; 伪源码需要e派工具箱(XCAD)的支持<br /> ;; 梁编号数字增减<br /> (defun c:tt (/ co ss i s1 tx n1 n2 tx1 tx2 tx3)<br />   (setq        int (Uint 3 "" "增减数字" int)<br />         co  (if        (> int 0)<br />               4<br />               1<br />             )<br />   )<br />   (princ "\n选择梁编号文本: ")<br />   (if (setq ss (ssget '((0 . "TEXT") (1 . "*L-* *x,*L-* *X*,*L-* *×"))))<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq tx  (xyp-get-dxf 1 s1)<br />               n1  (vl-string-search "-" tx)<br />               n2  (vl-string-search "(" tx)<br />               tx1 (substr tx 1 (+ n1 1))<br />               tx2 (substr tx (+ n1 2) (- n2 n1 1))<br />               tx3 (substr tx (+ n2 1))<br />               tx2 (itoa (+ (atoi tx2) int))<br />               tx  (strcat tx1 tx2 tx3)<br />               s1  (xyp-SubUpd s1 1 tx)<br />         )<br />         (xyp-put "color" s1 co)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

海盗曹

xyp1964 发表于 2012-8-7 17:53

院长一出手，就知有没有~！

xyp1964

海盗曹 发表于 2012-8-10 14:14
院长一出手，就知有没有~！

编号增减有木有……编号重排有木有……有木有……