请问如何删除一个指定名称的块？
www.dimcax.com
请问如何删除一个指定名称的块？
rt
望高手不吝赐教，谢谢
''' <summary>创建块</summary>
''' <param name="blockname">块名称</param>
public shared sub createblock(byval blockname as string)
dim btrid as objectid
dim db as database = hostapplicationservices.workingdatabase()
using trans as transaction = db.transactionmanager.starttransaction()
dim bt as blocktable = trans.getobject(db.blocktableid, openmode.forwrite)
if (bt.has(blockname)) then
btrid = bt(blockname)
dim newbtr as blocktablerecord = trans.getobject(btrid, openmode.forwrite)
newbtr.erase()
end if
trans.commit()
end using
end sub
模具相关绿色软件
皆唯网
谢谢。你的方法我使用过，但是一直报错，错误提示为
** 未定义的块 #2126037440
** 未定义的块 #2126037440
** 未定义的块 #2126037440
** 未定义的块 #2126037440
请问这是什么原因？如何解决？
用erase()不能侧底删除块，因为autocad数据库中还有标记
我编过这样一段程序，在插入一个块前首先删除同名块，执行两次程序后，提示该块ewasdeleted，可能数据库中有该块的标记未删除。
是啊怎么弄，还在
路漫漫其修远兮，吾将上下而求索！
如何彻底删除
路漫漫其修远兮，吾将上下而求索！