[求助]：如何修改属性块中的属性值？

rongle

小弟初学lisp，我想编制这样一个小程序：
批量修改一些属性块面的属性值，同时修改其对应文字高度等属性
但如何获取块中的属性呢？请大侠指点

gysjy

现给出一例：

2. 
   
3.   [FONT=courier new]
   
4. (defun to(n)
   
5.   (cdr (assoc n (entget sn)))
   
6. )
   
7. (defun canzhao (/ sn p13 p14) ;;提取参照文字或属性内容：
   
8.   (setq sn (car (entsel (strcat "\n点取需用参照的文字、属性或尺寸<" text0 ">:"))))
   
9.   (if (= sn nil)
   
10.     (setq st text0)
    
11.     (if (or (= "TEXT" (to 0))(= "INSERT" (to 0))(= "DIMENSION" (to 0)))
    
12.       (if (= "INSERT" (to 0))        
    
13.         (setq st  (entget (entnext (cdr (car (entget sn)))))
    
14.               st (cdr (assoc 1 st))
    
15.         );;提取属性
    
16.         (progn  
    
17.           (if (= "DIMENSION" (to 0))
    
18.             (progn   ;;提取尺寸
    
19.               (setq p13 (to 13) p14 (to 14))
    
20.               (if (eq (to 1) "")
    
21.                  (setq st (* (fix (/ (+ (distance p13 p14) 4) 10)) 10)
    
22.                        st (itoa st)
    
23.                  )
    
24.                  (setq st (to 1))   
    
25.               )      
    
26.             )
    
27.             (setq st (to 1));;提取文字
    
28.           )
    
29.         )      
    
30.       );if
    
31.       (setq st "")      
    
32.     );if
    
33.   )
    
34.   (setq text0 st)
    
35. )
    
36.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun to(n)<br />   (cdr (assoc n (entget sn)))<br /> )<br /> (defun canzhao (/ sn p13 p14) ;;提取参照文字或属性内容：<br />   (setq sn (car (entsel (strcat "\n点取需用参照的文字、属性或尺寸<" text0 ">:"))))<br />   (if (= sn nil)<br />     (setq st text0)<br />     (if (or (= "TEXT" (to 0))(= "INSERT" (to 0))(= "DIMENSION" (to 0)))<br />       (if (= "INSERT" (to 0))        <br />         (setq st  (entget (entnext (cdr (car (entget sn)))))<br />               st (cdr (assoc 1 st))<br />         );;提取属性<br />         (progn  <br />           (if (= "DIMENSION" (to 0))<br />             (progn   ;;提取尺寸<br />               (setq p13 (to 13) p14 (to 14))<br />               (if (eq (to 1) "")<br />                  (setq st (* (fix (/ (+ (distance p13 p14) 4) 10)) 10)<br />                        st (itoa st)<br />                  ) <br />                  (setq st (to 1))   <br />               )      <br />             )<br />             (setq st (to 1));;提取文字<br />           ) <br />         )      <br />       );if <br />       (setq st "")       <br />     );if<br />   )<br />   (setq text0 st)<br /> )<br />   [/FONT]<br />

rongle

谢谢！
认真研读去了

gysjy

在“(defun canzhao (/ sn p13 p14) ;;提取参照文字或属性内容：”的后面还需加一行：
(if (null text0)(setq text0 ""))
否则程序运行时可能出错，特此补充。

foride

程序怎么不能用呀，输入命令说是位置命令，怎么回事？

gysjy

应输入 (canzhao) 而不是canzhao