[已解决][求助]如何读取块属性？

cb820

我也想看下是怎么做到的。

季节深处

我也想这个程序呢

季节深处

一定看看，块带多个属性内容

季节深处

好的，好贴要顶

季节深处

加油

季节深处

可能看到了？

季节深处

真的还是假的？5个我发够了呀

季节深处

能看见了

lincctw_ccl

努力回覆 希望可以早點看見這帖

我也很想知這功能

sxh_why

;;;=============================================*
;;;      通用函数                               *
;;;功能：属性块中属性值的修改                   *
;;;参数：     EN -----包含属性的块的图元名称    *
;;;      AttName -----属性名称                  *
;;;        Value -----修改为的值                *
;;;返回：T表示修改成功；否则返回nil             *

(defun ZL-INSERT-SETATTVALUE (EN ATTNAME VALUE / RETURN E TEST ENT)
    (setq E EN
   RETURN NIL
   TEST t
    )
    (while (and TEST
  (setq E (entnext E))
    )
 (setq ENT (entget E))
 (cond
     ;;
     ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))
      (setq TEST NIL)
     )
     ;;
     ((= "SEQEND" (cdr (assoc 0 ENT)))
      (setq TEST NIL)
     )
     ;;
     ((= (cdr (assoc 2 ENT)) ATTNAME)
      (setq ENT (subst
      (cons 1 VALUE)
      (assoc 1 ENT)
      ENT
         )
      )
      (entmod ENT)
      (entupd EN)
      (setq RETURN t)
     )
 ) ;_结束cond
    )
    ;;返回
    RETURN
)

;;;=============================================*
;;;测试                                         *
;;;                                             *
(defun C:RC (/ SS)
    (if (setq SS (entsel "\n点取要修改的属性块: "))
 (princ
     (ZL-INSERT-SETATTVALUE (car SS) "NAME-DRAWN" "上海港巨机械设计事务所")
 )
    )
    (princ)
)