块中的属性文字，想改变它的层时，用重定义块方式竟不起作用，怎么办？

chg · 发表于 2003-3-20 12:12:00

(defun change_att(blkname tag value layname / ss ent n ctrl)
  (setvar "cmdecho" 0)
  (setq ss (ssget (list '(-4 . "")))
      n 0
      ctrl T)
  (if ss
(while (setq ent (ssname ss n))
   (while ctrl
      (setq ent (entnext ent))
      (if (= (cdr(assoc 2 (entget ent))) tag)
      (progn
         (command "-attedit" "" blkname tag value ent "l" layname "")
         (setq ctrl nil)
         )
      (setq ent (entnext ent))
      )
      )
   (setq n (1+ n) ctrl T)
   )
)
  (setvar "cmdecho" 1)
  (princ)
  )
这个程序很简陋，你可以自己加以改进，应该可以帮你解决问题。

龙龙仔 · 发表于 2003-3-24 12:26:00

;;By 龙龙仔
;;修改图块内所有属性性质
;;USAGE: (CHANGE_ATT "LAYER" "DIM")
;;USAGE: (CHANGE_ATT "COLOR" "1")
(defun CHANGE_ATT (PROPERTY LNAME / BLK BLKREF BNAME BLKDEF ENT)
  (vl-load-com)
  (while
(or       (not (setq BLK (car (entsel "\n选取带属性图块: "))))
      (progn
      (setq BLKREF (vlax-ename->vla-object BLK))
      (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
      )
)
  )
  (setq       BNAME  (vla-get-name BLKREF)
      BLKDEF (vla-item (vla-get-blocks
                        (vla-get-activedocument (vlax-get-acad-object))
                     )
                     BNAME
            )
  )
  (vlax-for ENT       BLKDEF
(if       (= (vla-get-objectname ENT) "AcDbAttributeDefinition")
   ((eval (read (strcat "vla-put-" PROPERTY))) ENT LNAME)
)
  )
  (command "_.attsync" "n" BNAME)
  (princ)
)

块中的属性文字，想改变它的层时，用重定义块方式竟不起作用，怎么办？

发表回复

精选推荐