xdrx_initssget英文，为什么cstr值一直不变

brainstorm

2. (DEFUN C:tt (/ b lst chgcr clor clorstr)
   
3. 
   
4.    
   
5.     (defun callback (kwrd)
   
6.       (if (eq kwrd "S")
   
7.         (progn
   
8.           (setq col (getint "\n输入颜色号码"))
   
9.           (cond
   
10.             ((eq 256 col) (setq colstr "bylayer"))
    
11.             ((eq -1 col) (setq colstr "byblock"))
    
12.             (t (setq cstr (vl-princ-to-string col)))
    
13.             
    
14.           )
    
15.           (princ"\n当前颜色是1000000")
    
16.           
    
17.         )
    
18.       )
    
19.     )
    
20.    
    
21. 
    
22. 
    
23.     (if        (not col)
    
24.       (setq col 0)
    
25.     )
    
26.     (cond
    
27.       ((eq 256 col) (setq cstr "bylayer"))
    
28.       ((eq -1 col) (setq cstr "byblock"))
    
29.       (t (setq cstr (vl-princ-to-string col)))
    
30.     )
    
31.     (xdrx_initget "S")
    
32.     (xdrx_initssget
    
33.       (strcat "选择图块[s改变颜色],当前颜色" cstr)
    
34.       "S"
    
35.       ""
    
36.       "callback"
    
37.       ""
    
38.     )
    
39.     (setq b (xdrx_SSGET '((0 . "INSERT"))))
    
40.     (xdrx_initget)
    
41.   )

(DEFUN C:tt (/ b lst chgcr clor clorstr)<br /> <br />     <br />     (defun callback (kwrd)<br />       (if (eq kwrd "S")<br />         (progn<br />           (setq col (getint "\n输入颜色号码"))<br />           (cond<br />             ((eq 256 col) (setq colstr "bylayer"))<br />             ((eq -1 col) (setq colstr "byblock"))<br />             (t (setq cstr (vl-princ-to-string col)))<br />             <br />           )<br />           (princ"\n当前颜色是1000000")<br />           <br />         )<br />       )<br />     )<br />     <br /> <br /> <br />     (if        (not col)<br />       (setq col 0)<br />     )<br />     (cond<br />       ((eq 256 col) (setq cstr "bylayer"))<br />       ((eq -1 col) (setq cstr "byblock"))<br />       (t (setq cstr (vl-princ-to-string col)))<br />     )<br />     (xdrx_initget "S")<br />     (xdrx_initssget<br />       (strcat "选择图块[s改变颜色],当前颜色" cstr)<br />       "S"<br />       ""<br />       "callback"<br />       ""<br />     )<br />     (setq b (xdrx_SSGET '((0 . "INSERT"))))<br />     (xdrx_initget)<br />   )