请问：如何获取属性块中指定标记下的属性值

artken

请教各位大侠，如何获取属性块中指定标记下的属性值?
详细情况见下面程序中间部分的说明
谢谢

2. (defun CH_blkSCALE (/ scalevalue blk ENT_blk1 N)
3.   (setq N 0)
4.   (repeat (sslength ENT_blk)
5.     (setq blk (ssname ENT_blk N))
6.      ......
7. ;
8. ;下面那行是修改属性块中的属性标记为ScaleTAG的属性值(scalevalue)
9. ;想在修改之前加个判断：读取没修改前的属性值，如果属性值中包含有"1:"时才修改
10. ;因为这个属性值有可能是1:50这种真实比例的，也有可能是写as show这种不是比例值的（这时就不修改，保持原样）
11. ;请问这个判断怎么写
12. ;
13.     (vlex-ChangeAttributes (list blk (cons "ScaleTAG" scalevalue)));修改属性标记为ScaleTAG的属性值
14.     ......
15.     (setq N (1+ N))
16.   )
17.   (princ)
18. )

(defun CH_blkSCALE (/ scalevalue blk ENT_blk1 N)   (setq N 0)   (repeat (sslength ENT_blk)     (setq blk (ssname ENT_blk N))      ...... ; ;下面那行是修改属性块中的属性标记为ScaleTAG的属性值(scalevalue) ;想在修改之前加个判断：读取没修改前的属性值，如果属性值中包含有"1:"时才修改 ;因为这个属性值有可能是1:50这种真实比例的，也有可能是写as show这种不是比例值的（这时就不修改，保持原样） ;请问这个判断怎么写 ;     (vlex-ChangeAttributes (list blk (cons "ScaleTAG" scalevalue)));修改属性标记为ScaleTAG的属性值     ......     (setq N (1+ N))   )   (princ) )

artken

有没相关例子啊

artken

找了很久都没有相关思路。请帮帮忙

byghbcx

(defun vlex-GetAttributes (ent / blkref lst)
  (if (= (vla-Get-ObjectName (setq blkref (vlax-Ename->vla-Object ent))) "AcDbBlockReference")
    (if (vla-Get-HasAttributes blkref)
      (mapcar
    '(lambda (x)
       (setq lst (cons (cons (vla-Get-TagString x) (vla-Get-TextString x)) lst))
     )
    (vlax-safearray->list
      (vlax-variant-value (vla-GetAttributes blkref))
    )
      ); mapcar
    ); endif
  ); endif
  (reverse lst)
)

;(cdr (assoc "ScaleTAG" (vlex-GetAttributes (car (entsel)))))得到指定标记的属性值

ljttjl

使用autocad对象模型即可解决,首先利用(ssget)等函数得到该属性块图元名,然后将其转换成vla对象,然后通过vla-getarrite方法取得块中的属性数组,再得到每个属性定义的vla对象,用vla=get-textstring 得到其属性值,其它联系ljttjl@tom.com

飞诗(fsxm)

试试我这个！纯LIsp版的！

3. ;;取图块属性 @ 飞诗寻梦
4. (defun fsxm-refatt (en / a d)
5.   (while (and (setq en (entnext en))
6.        (setq d (entget en))
7.        (= (cdr (assoc 0 d)) "ATTRIB")
8.   )
9.     (setq a (cons (list (cdr (assoc 2 d)) (cdr (assoc 1 d)) en) a))
10.   )
11. )

;;取图块属性 @ 飞诗寻梦 (defun fsxm-refatt (en / a d)   (while (and (setq en (entnext en))        (setq d (entget en))        (= (cdr (assoc 0 d)) "ATTRIB")   )     (setq a (cons (list (cdr (assoc 2 d)) (cdr (assoc 1 d)) en) a))   ) )

龙龙仔

3. ;;未經測試
4. (defun VLEX-CHANGEATTRIBUTES (LST / BLK ITEM ATTS)
5.   (setq BLK (vlax-ename->vla-object (car LST))
6. LST (cdr LST)
7.   )
8.   (if (= (vla-get-hasattributes BLK) :vlax-true)
9.     (progn
10.       (setq ATTS (vlax-safearray->list
11.      (vlax-variant-value (vla-getattributes BLK))
12.    )
13.       )     ; setq
14.       (foreach ITEM LST
15. (mapcar
16.    '(lambda (X)
17.       (if
18.         (and (= (strcase (car ITEM))
19.          (strcase (vla-get-tagstring X))
20.       )
21.       (wcmatch (vla-get-textstring X) "*1:*")
22.         )
23.   (vla-put-textstring X (cdr ITEM))
24.       )    ; endif
25.     )
26.    ATTS
27. )    ; mapcar
28.       )     ; foreach
29.       (vla-update BLK)
30.     )
31.   )     ; endif
32. )

;;未經測試 (defun VLEX-CHANGEATTRIBUTES (LST / BLK ITEM ATTS)   (setq BLK (vlax-ename->vla-object (car LST)) LST (cdr LST)   )   (if (= (vla-get-hasattributes BLK) :vlax-true)     (progn       (setq ATTS (vlax-safearray->list      (vlax-variant-value (vla-getattributes BLK))    )       )     ; setq       (foreach ITEM LST (mapcar    '(lambda (X)       (if         (and (= (strcase (car ITEM))          (strcase (vla-get-tagstring X))       )       (wcmatch (vla-get-textstring X) "*1:*")         )   (vla-put-textstring X (cdr ITEM))       )    ; endif     )    ATTS )    ; mapcar       )     ; foreach       (vla-update BLK)     )   )     ; endif )

artken

非常感谢大家，我一会试试