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

rongle

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

foride

我也想编一个类似的程序，哎，可惜没有时间学习，工作太忙了，如果有大侠指点，也希望借此机会学习学习

rongle

刚好也是有工程用到了
才学lisp
效率提高不少，呵呵

雨箭风刀

用scaletext命令

foride

用scaletext命令?呵呵 完全乱说。修改文字高度还勉强

gysjy

最初由 rongle 发布
[B]小弟初学lisp，我想编制这样一个小程序：
批量修改一些属性块面的属性值，同时修改其对应文字高度等属性
但如何获取块中的属性呢？ [/B]

2. 
   
3.   [FONT=courier new]
   
4.         (setq sn (entsel "\n点取物体:")  sn (car sn))
   
5.         (setq st  (entget (entnext (cdr (car (entget sn)))))
   
6.               st (cdr (assoc 1 st))
   
7.         );;提取属性
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br />         (setq sn (entsel "\n点取物体:")  sn (car sn))<br />         (setq st  (entget (entnext (cdr (car (entget sn)))))<br />               st (cdr (assoc 1 st)) <br />         );;提取属性<br />   [/FONT]<br />

ldd2005

期待高人解答，我也学学啊、