寻求帮助：绘制顺序，图案填充

Biily, Shi · 发表于 2022-7-6 22:16:23

你好！
我需要制作一个小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应用程序。使现代化

如果结束

下一个

末端接头

Biily, Shi · 发表于 2022-7-6 23:18:32

仍然没有得到答案，如此悲伤，似乎没有人在意。。。

[编程交流] 寻求帮助：绘制顺序，图案填充

发表回复

精选推荐