[求助]删除块的属性文字

my_autocad · 发表于 2007-9-29 21:18:00

删除块的属性文字

在做总图时，常常要合建筑的一层平面，而一层平面需要整理，一层平面的门等，都是块，有属性文字，在不炸开块的情

况下，把属性文字去掉呢？LSP怎么写呢？

chinabigapple · 发表于 2019-11-15 21:02:42

谢谢,在你们的帖子帮忙下,写了程序

alin · 发表于 2007-9-29 22:37:00

;;; CLear all attribute texts
;;; By Alvin Lin 29/09/2007
;;;
(defun C:ClearATT (/ doc currsp blks atts)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(if (= (vla-get-activespace doc) 1)
    (setq currsp (vla-get-modelspace doc))
    (setq currsp (vla-get-paperspace doc))
)
(vlax-for obj currsp
    (if (= (vla-get-objectName obj) "AcDbBlockReference")
      (if (= (vla-get-hasattributes obj) :vlax-true)
(progn
   (setq atts (vlax-safearray->list
         (vlax-variant-value (vla-getattributes obj))
       )
   )
   (foreach att atts
;;;     (vla-put-textstring att "")
;;;     (vla-update att)
     (vla-delete att)
   )
)
      )     ;if
    )     ; if
)
(princ)
)

alin · 发表于 2007-9-29 22:50:00

;;; CLear all attribute texts
;;; By Alvin Lin 29/09/2007
;;;
(defun C:ClearATT (/ doc currsp blks atts)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(if (= (vla-get-activespace doc) 1)
    (setq currsp (vla-get-modelspace doc))
    (setq currsp (vla-get-paperspace doc))
)
(vlax-for obj currsp
    (if (= (vla-get-objectName obj) "AcDbBlockReference")
      (if (= (vla-get-hasattributes obj) :vlax-true)
(progn
   (setq atts (vlax-safearray->list
         (vlax-variant-value (vla-getattributes obj))
       )
   )
   (foreach att atts
;;;     (vla-put-textstring att "")
;;;     (vla-update att)
     (vla-delete att)
   )
)
      )     ;if
    )     ; if
)
(princ)
)

my_autocad · 发表于 2007-9-30 13:04:00

程序试用了，非常不错，原想是框选的，现在是整个文件，恩，谢谢

无痕 · 发表于 2007-9-30 15:06:00

(defun c:xdelatt (/ FIL SS)
(princ "\n 删除块属性----------by lxx.2007.9")
(princ "\n 选择要删除属性的块<全部>:")
(if (not *cad)
(setq *cad (vlax-get-acad-object))
)
;(x-CleanCSet)
(setq fil '((0 . "INSERT") (-4 . "&") (66 . 1)))
(or (setq ss (ssget fil))
(setq ss (ssget "x" fil))
)
(vla-eval *cad
"for each i in thisdrawing.activeselectionset : for each n in i.getattributes : n.delete :next n :next i"
)
)

ivde · 发表于 2007-10-1 08:04:00

本帖最后由作者于 2007-10-1 8:05:11 编辑

1 有些属性在 Blockdef 中有对应的 Attdef，有些块在 Blockdef 是没有对应的 Attdef 的

2 删除 Blockref 的 Attrib 不一定解决下一个 Insert 的 Attrib 问题。

alin · 发表于 2007-10-1 09:09:00

;;; CLear all attribute texts
;;; By Alvin Lin 29/09/2007
;;;
(defun C:ClearATT (/ doc blks atts)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq blks (vla-get-blocks doc))
(vlax-for blk blks
    (vlax-for obj blk
      (cond ((= (vla-get-objectName obj) "AcDbBlockReference")
      (if (= (vla-get-hasattributes obj) :vlax-true)
        (progn
   (setq atts (vlax-safearray->list
         (vlax-variant-value (vla-getattributes obj))
       )
   )
   (mapcar 'vla-delete atts)
        )
      ) ;if
     )
     ((= (vla-get-objectName obj) "AcDbAttributeDefinition")
      (vla-delete obj)
     )
      ); cond
    ); vlax-for
); vlax-for
(princ)
)

my_autocad · 发表于 2007-10-2 11:13:00

本帖最后由作者于 2007-10-2 11:13:56 编辑

无痕发表于2007-9-30 15:06:00(defun c:xdelatt (/ FIL SS) (princ \"\n 删除块属性----------by lxx.2007.9\") (princ \"\n 选择要删除属性的块<全部>:\") (if (not *cad) (set

恩，这个程序支持多选，但内容选多了，或全选，会出现如图示的错误提示

my_autocad · 发表于 2007-10-2 11:15:00

my_autocad · 发表于 2007-10-2 11:17:00

alin发表于2007-10-1 9:09:00;;; CLear all attribute texts;;; By Alvin Lin 29/09/2007;;;(defun C:ClearATT (/ doc blks atts) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq blks (v

会出现以下错误，什么原因呢

命令: clearatt
Automation 错误。对象已被删除

账号		自动登录	找回密码
密码			注册

[求助]删除块的属性文字

本帖子中包含更多资源