寻求帮助：绘制顺序，图案填充
你好！我需要制作一个小sub，其目的是将所有模型空间图案填充对象按绘制顺序放置在底部。我已经调试了下面的代码，但红色的那一行永远不起作用。现在我被困在这里了。请谁帮帮我？非常感谢。
Sub hatch_to_back（）
Dim Medictionary As Object Dim sentityObj As Object
尺寸A1\U STB（0）作为对象
对于本图纸中的每个b。模型空间
如果TypeName（b）=“IAcadHatch”，则
设置目录=此绘图。模型空间。GetExtensionDictionary*
出错时继续下一步*
设置sentityObj=eDictionary。GetObject（“ACAD\u SORTENTS”）
如果sentityObj什么都不是，那么*
设置sentityObj=eDictionary。AddObject（“ACAD\u SORTENTS”，“AcDbSortentsTable”）
如果结束
设置A1_STB（0）=b
sentityObj。移动到底部A1\U机顶盒
A应用程序。使现代化
如果结束
下一个
末端接头 仍然没有得到答案，如此悲伤，似乎没有人在意。。。
页:
[1]