[LISP程序]：自动排列PKPM生成DWG文件的柱、梁序号。

YueFeng

需XDRX_API支持。
没有认真的检查。请各位试用，发现问题请跟贴。

2. 
   
3.   [FONT=courier new]
   
4. ;月枫工具函数.
   
5. ;自动排序函数.
   
6. (Defun C:YF_ZDPX(/ S1 DA LA TE SZ NT SEL1 LEN1 N1 BB DATA TEXT TEJY OLD1 OLD2 NEW1)
   
7.    (ARXLoad "XDRX_API15.ARX")
   
8.    (SetQ S1 (EntSel "\n请输入类同对象:")
   
9.          DA (EntGet (Car S1))
   
10.          LA (Cdr (Assoc 8 DA))
    
11.          TE (Cdr (Assoc 1 DA))
    
12.    )
    
13.    (SetQ SZ (xdrx_string_findoneof TE "0123456789" )
    
14.          NT (xdrx_string_left TE SZ)
    
15.    )
    
16.    (SetQ SEL1 (SsGet "X" (List (Cons 8 LA) (Cons 0 "TEXT")))
    
17.          LEN1 (SsLength SEL1)
    
18.          N1 0
    
19.          BB (1- (GetInt "\n请输入排序基准号:"))
    
20.    )
    
21.    
    
22.    (Repeat LEN1
    
23.       (SetQ DATA (EntGet (SsName SEL1 N1))
    
24.             TEXT (Cdr (Assoc 1 DATA))
    
25.             TEJY (xdrx_string_left TEXT SZ)
    
26.             N1 (1+ N1)
    
27.       )            
    
28.       (If (= TEJY NT)
    
29.          (Progn
    
30.             (SetQ OLD1 (xdrx_string_remove TEXT 0 SZ)
    
31.                   OLD2 (AToI OLD1)
    
32.                   NEW1 (StrCat NT (IToA (+ OLD2 BB)))
    
33.                   DATA (Subst (Cons 1 NEW1) (Cons 1 TEXT) DATA)
    
34.             )
    
35.             (EntMod Data)
    
36.          )
    
37.       )
    
38.    )
    
39.    (prin1)
    
40. )            
    
41.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;月枫工具函数.<br /> ;自动排序函数.<br /> (Defun C:YF_ZDPX(/ S1 DA LA TE SZ NT SEL1 LEN1 N1 BB DATA TEXT TEJY OLD1 OLD2 NEW1)<br />    (ARXLoad "XDRX_API15.ARX")<br />    (SetQ S1 (EntSel "\n请输入类同对象:")<br />          DA (EntGet (Car S1))<br />          LA (Cdr (Assoc 8 DA))<br />          TE (Cdr (Assoc 1 DA))<br />    )<br />    (SetQ SZ (xdrx_string_findoneof TE "0123456789" )<br />          NT (xdrx_string_left TE SZ)<br />    )<br />    (SetQ SEL1 (SsGet "X" (List (Cons 8 LA) (Cons 0 "TEXT")))<br />          LEN1 (SsLength SEL1)<br />          N1 0<br />          BB (1- (GetInt "\n请输入排序基准号:"))<br />    )<br />    <br />    (Repeat LEN1<br />       (SetQ DATA (EntGet (SsName SEL1 N1))<br />             TEXT (Cdr (Assoc 1 DATA))<br />             TEJY (xdrx_string_left TEXT SZ)<br />             N1 (1+ N1)<br />       )            <br />       (If (= TEJY NT)<br />          (Progn<br />             (SetQ OLD1 (xdrx_string_remove TEXT 0 SZ)<br />                   OLD2 (AToI OLD1)<br />                   NEW1 (StrCat NT (IToA (+ OLD2 BB)))<br />                   DATA (Subst (Cons 1 NEW1) (Cons 1 TEXT) DATA)<br />             )<br />             (EntMod Data)<br />          )<br />       )<br />    )<br />    (prin1)<br /> )            <br />   [/FONT]<br />

YueFeng

LISP源程序下载

YueFeng

自己发现了些错误。等忙完这段时间，再对它加以完善。

YueFeng

新的这个排序程序。
http://www.xdcad.net/forum/showthread.php?s=&threadid=4924