紧急求助，关于属性文字样式

artken

想修改属性块中标记为PLAN的属性文字的样式，

以下是代码会修改一个属性块中的所有的属性文字，如何改成只修改标记为PLAN的属性文字的，其它标记的不修改。

  (if (setq lst (safearray-value (variant-value (vla-getattributes (vlax-ename->vla-object blk)))))
    (foreach a lst
       (if (= (这个地方怎么写? ) "PLAN")
           (vla-put-stylename a "AAA")
      )
    )
  )

caoyin

   (mapcar '(lambda (x)

      (if (=(vla-get-tagstring x)"PLAN");;此处加一个判断

       (progn
       ;(vla-put-layer x "text-en")  ;设置层为text-en
       ;(vla-put-color x acbylayer)  ;设置颜色随层
       (vla-put-stylename x "AAAA");设置字体样式为自定义的AAAA
       ;(vla-put-height x 3)     ;设置字体高度为3，此处可以加一个图纸比例
       ;(vla-put-scalefactor x 0.7)  ;设置宽度比例为0.7

      ))

(safearray-value (variant-value (vla-getattributes (vlax-ename->vla-object blk))))

artken

CAOYIN版主，不好意思。我编辑帖子的时候。你刚好同时回复。不过意思跟原来是一样的

非常感谢！

caoyin

(foreach a (vlax-invoke (vlax-ename->vla-object blk) 'getattributes)
  (if (=(vla-get-tagstring x) "PLAN");;此处加一个判断
    (vla-put-stylename a "AAA")
  )
)