[求助]块的修改

sf_elite

困扰多时的问题﹐请各位高手指点迷津!

Ea

3. (defun c:tt (/ lastent e attlst)
4.   (setq lastent (entlast))
5.   (if (setq e (entsel "\nPick Object: "))
6.     (progn
7.       (setvar "cmdecho" 1)
8.       (command ".copy" e "")
9.       (while (/= (getvar "cmdnames") "")
10.     (command pause)
11.       )
12.       (setvar "cmdecho" 0)
13.       (if (not (equal (entlast) lastent))
14.     (progn
15.       (setq
16.         attlst (vlax-invoke
17.              (vlax-ename->vla-object (entlast))
18.              'getattributes
19.            )
20.       )
21.       (foreach x attlst
22.         (if    (= (vla-get-tagstring x) "內孔:")
23.           (vla-put-color x 1)
24.         )
25.       )
26.     )
27.       )
28.     )
29.   )
30.   (princ)
31. )

(defun c:tt (/ lastent e attlst)   (setq lastent (entlast))   (if (setq e (entsel "\nPick Object: "))     (progn       (setvar "cmdecho" 1)       (command ".copy" e "")       (while (/= (getvar "cmdnames") "")     (command pause)       )       (setvar "cmdecho" 0)       (if (not (equal (entlast) lastent))     (progn       (setq         attlst (vlax-invoke              (vlax-ename->vla-object (entlast))              'getattributes            )       )       (foreach x attlst         (if    (= (vla-get-tagstring x) "內孔:")           (vla-put-color x 1)         )       )     )       )     )   )   (princ) )

sf_elite

谢谢"Ea"的帮忙,根据你的提示,我已搞定了前两个问题.我还有一问题想请教一下大侠,就是怎么修改属性值的字体宽度系数为0.6,用哪个函数可以搞定?万分感谢!

benq1

谢谢，不知道这个可否更改块属性？