| 
积分2986明经币 个注册时间2012-4-27在线时间 小时威望 金钱 个贡献 激情  
 | 
 
 
 楼主|
发表于 2023-9-3 23:53:07
|
显示全部楼层 
| ’一-一一判断是否存在A类桩的属性图块名,不存在时创建一- 一一一If bt. Has (BlockName1) <> True Then . 
 Dim blockDb As Database = New Dat abase (False, True)
 
 blockDb. ReadDwgFile (st rBlockFileName1, FileShare. Read, True, ““) ’ 读DWG文件
 
 ’为了让插入块的函数在多个图形文件打开的情况下起作用,你必须使用下面的函数把Dwg文件关ib1ockDb. CloseInput (True)
 
 : 把源数据库模型空间中实体复制并插入到当前数据库(模型及图纸空间)中
 
 blockId1 =( db. Insert (BlockName1,blockDb, False)
 
 ’必须将临时的数据库从内存中注销,不然关闭CAD时会出错b1ockDb. Dispose 0
 
 Else
 
 blockId1 = bt (BlockName1)End If
 | 
 |