(XD::Table:GetUniqueName)获得下一个XTable表格实体的唯一名字

Lispboy

1. (defun XD::Table:GetUniqueName ( / e i name obj)
   
2.   (if (/= (xd::table:type t) "X")
   
3.     (xd::table:settype "X")
   
4.   )
   
5.   (setq obj (xdrx_object_get "block"))
   
6.   (setq i 0)
   
7.   (while (setq e (xdrx_object_next))
   
8.     (setq name (car e))
   
9.     (if (xdrx_string_regexps "^XD_XTABLE-" name)
   
10.       (progn
    
11.         (setq i (1+ i))
    
12.       )
    
13.     )
    
14.   )
    
15.   (strcat "XD_XTABLE-" (itoa (1+ i)))
    
16. )
    
17. 
    

(defun XD::Table:GetUniqueName ( / e i name obj)<br />   (if (/= (xd::table:type t) "X")<br />     (xd::table:settype "X")<br />   )<br />   (setq obj (xdrx_object_get "block"))<br />   (setq i 0)<br />   (while (setq e (xdrx_object_next))<br />     (setq name (car e))<br />     (if (xdrx_string_regexps "^XD_XTABLE-" name)<br />       (progn<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (strcat "XD_XTABLE-" (itoa (1+ i)))<br /> )<br /> <br />