尝试在之前重命名块

muck · 发表于 2022-7-6 22:55:21

在下面的代码中，我试图重命名一个块，以允许我将其重新插入到文件中
但这不起作用，因为当我尝试插入它时会出错。

代码如下：
Dim DrawingNames（）
Dim DrawingList作为新类VBDWGFileList
Dim startPnt作为变体
Dim prompt1作为字符串
Dim InsertBlockName作为字符串

私有子命令按钮1\u Click（）
prompt1=vbCrLf&“输入块的放置点：”
我隐藏
startPnt=此图纸。公用事业GetPoint（，prompt1）
我显示
末端接头
公共子指令块（）
Dim startPnt作为变体
Dim prompt1作为字符串
prompt1=vbCrLf&“输入块的放置点：”
我隐藏
startPnt=此图纸。公用事业GetPoint（，prompt1）
此图纸。模型空间。InsertBlock startPnt，“C:\BlockInsert.Dwg”，1#，1#，1#，0
此图纸。使活动
我显示
末端接头

私有子命令按钮2\u Click（）
InsertBlockName=“块插入.Dwg”
重命名块
MsgBox InsertBlockName
'此绘图。模型空间。InsertBlock startPnt，InsertBlockName，1#，1#，1#，0
此图纸。模型空间。InsertBlock startPnt，“C:\BlockInsert.Dwg”，1#，1#，1#，0
此图纸。使活动
我隐藏
末端接头

私有子命令按钮3\u Click（）
我隐藏
Dim zcount为整数
图纸清单。VBDWG文件列表
AutoCAD。文件。关
对于zcount=0，则为DrawingList。文件计数-1
文件名=绘图列表。VBDwgFileNames（zcount）
如果文件名为“”，则为AutoCAD。文件。打开（文件名）
如果应用。文件。然后计数=0
MsgBox“空AutoCAD编辑器”
出口接头
如果结束
InsertBlockName=“块插入.Dwg”
重命名块
MsgBox“startpnt”
此图纸。模型空间。InsertBlock startPnt，InsertBlockName，1#，1#，1#，0
此图纸。使活动
调试。打印文件名
此图纸。Save“保存图形
此图纸。关
调试。打印zcount
如果zcount=绘图列表。filecount-1，然后退出Sub
下一个
我显示
末端接头

公共子重命名块（）
将strName设置为字符串
将objBlock设置为AcadBlock
出错时恢复下一个“内联处理异常”
'strName=InputBox（“原始块名：”）
strName=“块插入”
如果“=strName Then Exit Sub”如果没有旧名称，则退出
设置objBlock=ThisDrawing。阻碍。项目（strName）
如果objBlock为Nothing，则“未找到则退出”
MsgBox“Block”'&strName&“未找到”
出口接头
如果结束
'strName=InputBox（“新块名：”）
strName=InsertBlockName+“-6”
如果“=strName Then Exit Sub”如果没有新名称，则退出
objBlock。Name=strName'尝试更改名称
如果出现错误，则检查是否有效
MsgBox“无法重命名块：”&vbCr&Err。描述
其他的
MsgBox“块重命名为'&strName&'”
如果结束
'InsertBlockName=strName
末端接头

[编程交流] 尝试在之前重命名块

发表回复

精选推荐