[求助]大家来帮忙看看，如何去掉属性块的文字？

caoyin · 发表于 2007-11-21 11:03

;;变量blockname是块名

(vlax-for obj
   (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blockname)
   (if (= (vla-get-objectname obj)"AcDbAttributeDefinition")
     (vla-delete obj)
   )
)

userzhl · 发表于 2007-11-21 15:27

楼上，我试了不行呀，还有就是能不能完善成可以框选(多选)的？

无痕 · 发表于 2007-11-21 21:06

本帖最后由作者于 2007-11-21 21:07:30 编辑

要update或regen

不过我还是决得采用visible控制属性的显示比较好.

caoyin · 发表于 2007-11-22 09:45

无痕版主，我发现 update或regen 两种方法都不行啊，

我用 auditinfo 方法修复后发现块名已经改变

userzhl · 发表于 2007-11-23 18:48

哪位高手帮忙解决下?

caoyin · 发表于 2007-11-24 09:15

高手哪去了？？删除标签，顶着用吧

(if (and (setq e (nentsel "选择块中的属性文字: "))
         (setq e (vlax-ename->vla-object (car e)))
         (= (vla-get-objectname e) "AcDbAttribute")
    )
(vla-Delete e)
)

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

[求助]大家来帮忙看看，如何去掉属性块的文字？

本帖子中包含更多资源

浏览过的版块