[推荐] 块属性编辑程序！

87282374

以解决一部分！但不知道如何取得属性块内的“某个特定属性标记定义”索引号（既位置号）！

(setq ent (nth n attlst))  红字部分！


(DEFUN DTR (DEG /) (* PI (/ DEG 180.0)));---------------------------------
(DEFUN RTD (RAD /) (/ (* 180.0 RAD) PI));-------------------------------
(defun c:chdef ()
  (vl-load-com)
  (setq    entbatt    (entsel "\n选取带属性图块: <退出>: ")
    a0    (car entbatt)
    a1e    (entget a0)
    a1n    (assoc 2 a1e)
    szj    (ssadd a0)
  )
  (setq    ssa1 (ssget "x" (list a1n))
    sn   (sslength ssa1)
  )
  (sssetfirst ssa1 szj)
  (princ (strcat "\n您选择的块名为："
         (cdr a1n)
         "; 共有 "
         (itoa sn)
         "个。 "
     )
  )
  (princ "\n")
  (princ)
  (Setq str0 (getstring "\n请输入要修改的属性标记: "))
  (Setq str1 (getstring "\n请输入新的属性值: "))
  (setq n 0)
  (repeat sn
    (progn
      (setq a1on (ssname ssa1 n))
      (setq lst (entget a1on))
      (setq r (cdr (assoc 2 lst)))
      (if (= r str0)
    (alert r)
    (progn
      (setq wattvla (vlax-ename->vla-object a1on))
      (setq    attlst (vlax-safearray->list
             (vlax-variant-value
               (vla-getattributes wattvla)
             )
               )
      )
      (setq ent (nth 2 attlst))
      (vla-put-TextString ent str1)
    )
      )
    )
    (setq n (1+ n))
  )
  (sssetfirst nil nil)
  (alert (strcat "您选择的块名为："
         (cdr a1n)
         "; \n共有 "
         (itoa n)
         " 个 \n被改变"
     )
  )
  (princ)
)

87282374

<br/>就是要<br/><br/>如何获取属性块指定的属性标记、且修改它的值！

87282374

别沉底了！自己顶一下！

dgygs

你插一个块进图了不就可以看到了吗？