如果可能,还运行 Excel 应用程序中的所有模块。
流程图会很有用。我从未见过类似的代码,但有一些 VBA 工具,您可能会觉得有趣。这些是我所知道的:http://www.vitoshacademy.com/vba-professional-tools-for-vba
一般来说,关于代码,MZ-Tools有一个很好的选项来显示已使用代码的统计信息。这是它的样子:
然后您可以将其另存为
*.txt
文件,对其进行一些编辑并将其加载到 Excel 中。如果需要,您可以从那里轻松制作自己的图表。
公共子复制对象() 昏暗绘图作为 AcadEntity 昏暗的复制对象作为对象 暗淡选取点作为变体 昏暗的过去点作为变体 出错时继续下一步 ThisDrawing.Utility.GetEntity 绘图、选取点、“选取要复制的实体” 如果绘画不算什么那么 MsgBox "您没有选择对象" 退出子程序 万一 设置 copyobject = Drawing.Copy() Pastpoint = ThisDrawing.Utility.GetPoint(, "选择要复制到的点:")
'put the object in its new position
copyobject.Move pickpoint, pastpoint
copyobject.Update
ZoomExtents
结束子