使用VBA插入块

smuthuc · 发表于 2022-7-6 21:45:21

无法使用VBA代码

公共子索引测试（）

将strPath设置为字符串
将strBlockName设置为字符串
strBlockName=“索引”
strPath=“E:\Soft\Template\INDEX.dwg”
'出错时继续下一步
DbxCopyBlock strBlockName，strPath
strBlockName=“BSC1”
DbxCopyBlock strBlockName，strPath
Dim Pt1作为变型
Pt1=本图纸。公用事业GetPoint（，“选取索引表角：”）
将BlkNme变暗为AcadBlock
Dim BlkRef作为AcadBlockReference
设置BlkRef=ThisDrawing。模型空间。插入块（Pt1，strBlockName，1，1，1，0）
末端接头

';;;;;

子DbxCopyBlock（strBlockName作为字符串，strPath作为字符串）
将strFullDef设置为字符串
将objBlock设置为AcadBlock
将colBlocks变暗为AcadBlocks
Dim objArray（0）作为对象
将ACDbx设置为对象
设置ACDbx=GetAcDbxDoc（）
ACDbx。打开strPath
设置colBlocks=ACDbx。阻碍
设置objBlock=colBlocks。项（strBlockName）'在容器文件的块集合中查找适当的块
设置objArray（0）=objBlock“根据CopyObjects方法的要求创建对象数组”
ACDbx。CopyObjects objArray，ThisDrawing。块复制到当前图形的块集合
设置ACDbx=Nothing

末端接头
';;;;;

函数GetAcDbxDoc（）作为对象
Dim strAcadVersion As字符串
使用此图纸。应用
strAcadVersion=Mid（版本，1，2）
如果CInt（strAcadVersion）<16，则
设置GetAcDbxDoc=。GetInterfaceObject（“ObjectDBX.AxDbDocument”）
其他
设置GetAcDbxDoc=。GetInterfaceObject（“ObjectDBX.AxDbDocument。”&斯特拉卡版本）
如果结束
以结束
结束函数

请纠正任何人

SLW210 · 发表于 2022-7-6 23:07:42

请阅读代码发布指南，并为您的代码使用代码标签。

[编程交流] 使用VBA插入块

发表回复

精选推荐