[求助]遍历块得到块中属性值的LIST

SWAYWOOD

(DEFUN swp_get_attrib (en / f dxf)
  (WHILE en
    (SETQ dxf (ENTGET en))
    (IF (= (CDR (ASSOC 0 dxf)) "ATTRIB")
      (SETQ
 f (APPEND
     f
     (LIST
       (CDR (ASSOC 1 dxf))
     )
   )
      )
    )
    (SETQ en (ENTNEXT en))
  )
  f
)

本来是想获取当前块(EN)中属性值的LIST的，结果出现了遍历图中自该图元后所有块的属性的错误，不知道怎么修改，请看看怎么改啊！

龙龙仔

(defun SWP_GET_ATTRIB (EN / F DXF)
  (setq DXF (entget EN))
  (if (and (= (DXF 0 EN) "INSERT")
    (assoc 66 DXF)
      )
    (while (and (setq EN (entnext EN))
  (setq DXF (entget EN))
  (/= (cdr (assoc 0 DXF)) "SEQEND")
    )
      (setq
 F (append
     F
     (list
       (cdr (assoc 1 DXF))
     )
   )
      )
    )
  )
  F
)

SWAYWOOD

多谢龙版!

无痕

2. (defun c:tt()
3. (setq blk (car(entsel)));;本行可根据需要修改
4. (mapcar 'vla-get-textstring (vlax-invoke (vlax-ename->vla-object blk) 'GetAttributes));;本行为根据块实体名求属性值列表
5. )

(defun c:tt() (setq blk (car(entsel)));;本行可根据需要修改 (mapcar 'vla-get-textstring (vlax-invoke (vlax-ename->vla-object blk) 'GetAttributes));;本行为根据块实体名求属性值列表 )

zwf100

稍加修改应该不错