[LISP函数]：类似acet-str-format

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; ==================================================================
   
5. ;;; 类似acet-str-format
   
6. (defun th-str-format (str newstrlst / n oldstr oldstrlst)
   
7.   (setq n 0)
   
8.   (setq oldstrlst (mapcar
   
9.                     (function (lambda (x)
   
10.                                 (setq n (1+ n)
    
11.                                       oldstr (strcat "$" (rtos n 2 0) "#")
    
12.                                 )
    
13.                               )
    
14.                     )
    
15.                     newstrlst
    
16.                   )
    
17.   )
    
18.   (mapcar
    
19.     (function (lambda (a b)
    
20.                 (setq str (th-str-repl a b str))
    
21.               )
    
22.     )
    
23.     oldstrlst
    
24.     newstrlst
    
25.   )
    
26.   str
    
27. )
    
28. ;;; 测试
    
29. ;;; 命令: (th-str-format "\ncollecting all $1# objects on layer $2#..."
    
30. ;;; (list "12"
    
31. ;;; "23"))"\ncollecting all 12 objects on layer 23..."
    
32. ;;; 命令: (th-str-format "\ncollecting all $1# objects on layer $2#..."
    
33. ;;; (list "12"
    
34. ;;; "23" "45"))
    
35. ;;; "\ncollecting all 12 objects on layer 23..."
    
36. ;;; 命令: (th-str-format "\ncollecting all $1# ob$1#jects on layer $2#..."
    
37. ;;; (list "12"
    
38. ;;; "23"))
    
39. ;;; "\ncollecting all 12 ob12jects on layer 23..."
    
40. ;;; 命令: (th-str-format "\ncollecting all $1# objects $3#on layer $2#..."
    
41. ;;; (list "12"
    
42. ;;; "23" "ab"))
    
43. ;;; "\ncollecting all 12 objects abon layer 23..."
    
44. ;;; ==================================================================
    
45. (defun th-str-repl (curchar newchar str)
    
46.   (while (vl-string-search curchar str)
    
47.     (setq str (vl-string-subst newchar curchar str))
    
48.   )
    
49.   str
    
50. )
    
51. ;;; ==================================================================
    
52. 
    
53.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; ==================================================================<br /> ;;; 类似acet-str-format<br /> (defun th-str-format (str newstrlst / n oldstr oldstrlst)<br />   (setq n 0)<br />   (setq oldstrlst (mapcar<br />                     (function (lambda (x)<br />                                 (setq n (1+ n)<br />                                       oldstr (strcat "$" (rtos n 2 0) "#")<br />                                 )<br />                               )<br />                     )<br />                     newstrlst<br />                   )<br />   )<br />   (mapcar<br />     (function (lambda (a b)<br />                 (setq str (th-str-repl a b str))<br />               )<br />     )<br />     oldstrlst<br />     newstrlst<br />   )<br />   str<br /> )<br /> ;;; 测试<br /> ;;; 命令: (th-str-format "\ncollecting all $1# objects on layer $2#..."<br /> ;;; (list "12"<br /> ;;; "23"))"\ncollecting all 12 objects on layer 23..."<br /> ;;; 命令: (th-str-format "\ncollecting all $1# objects on layer $2#..."<br /> ;;; (list "12"<br /> ;;; "23" "45"))<br /> ;;; "\ncollecting all 12 objects on layer 23..."<br /> ;;; 命令: (th-str-format "\ncollecting all $1# ob$1#jects on layer $2#..."<br /> ;;; (list "12"<br /> ;;; "23"))<br /> ;;; "\ncollecting all 12 ob12jects on layer 23..."<br /> ;;; 命令: (th-str-format "\ncollecting all $1# objects $3#on layer $2#..."<br /> ;;; (list "12"<br /> ;;; "23" "ab"))<br /> ;;; "\ncollecting all 12 objects abon layer 23..."<br /> ;;; ==================================================================<br /> (defun th-str-repl (curchar newchar str)<br />   (while (vl-string-search curchar str)<br />     (setq str (vl-string-subst newchar curchar str))<br />   )<br />   str<br /> )<br /> ;;; ==================================================================<br /> <br />   [/FONT]<br />