块内属性值如何提出

卩s灬坤

如何编写才能提出里面的数值
能写个例子分享吗

kozmosovia

论坛已经有很多，搜一下就是了。

chg

(defun c:att (/ ss cnt attrib firstent attss count flag enttype attent attlist)
  (setq        ss         (ssget '((0 . "INSERT")))
        cnt         0
        firstent (ssname ss cnt)
        attss         '()
        )
  (setq count (sslength ss))
  (repeat count
    (setq flag (cdr (assoc 66 (entget firstent)))
          )
    (if        flag
      (progn
        (while (/= (setq enttype (cdr (assoc 0 (entget firstent))))
                   "SEQEND"
                   )
          (setq attent (entnext firstent))
          (setq attrib (cdr (assoc 1 (entget attent))))
          (if (/= attrib nil)
            (setq attss (append attss (list attrib)))
            )
          (setq firstent attent)
          )
        )
      )
    (setq cnt           (+ 1 cnt)
          firstent (ssname ss cnt)
          )
    (if        (= cnt 1)
      (setq attlist (list attss)
            attss '()
            )
      (setq attlist (append attlist (list attss))
            attss '()
            )
      )
    )
  )

feng83

出于明经，还与明经，
这是在明经以前一位前辈的程序，
(Defun c:tt(/ ename LOOP elist)
  (setq ename (entnext (car (entsel))))
  (setq LOOP T)
  (While (and ename LOOP)
    (setq elist (entget ename))
    (if (= (cdr (assoc 0 elist)) "ATTRIB")
        (progn
           (princ (cdr (assoc 2 elist)))
           (princ " ----> ")
           (princ (cdr (assoc 1 elist)))
           (princ "\n")
        )
        (setq LOOP nil)
    )
    (setq ename (EntNext ename))
  )
  (princ)
)

Flynn_n

先存着，以后备用

magicheno

feng83 发表于 2016-5-7 19:45
出于明经，还与明经，
这是在明经以前一位前辈的程序，
(Defun c:tt(/ ename LOOP elist)

感谢大佬分享

llsheng_73

1. (defun getatts(blk)
   
2.   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)
   
3.     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

(defun getatts(blk)<br />   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)<br />     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

如果给定块参照图元或对象有属性，返回属性表((TagString TextString 属性对象)),将属性对象一起返回便于后续对它进行修改