- 积分
- 2513
- 明经币
- 个
- 注册时间
- 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 |
|