你好,我正在为学校做一个项目,我的任务是用vba程序在acad中绘制电梯。
我几乎完成了,但我有一个问题。我想孵化我绘制的一些项目。我有一个可以工作的程序,但它只适用于圆形和矩形。我如何将此代码修改为可以选择多行或封闭区域内的一个点,然后孵化该选择的代码。
还是我需要将对象设为块?
SubCh05_AddHatch()
Dim Object Hatch As AcadHatch
Dim PatternName As String
Dim PatternType As Long
Dim关联性As Boolean
Dim Object OutLoop(0 To 0)As AcadObject
Dim varPickPt As Variant
'关闭错误。
On Error Resume Next
'孵化定义。
PatternName="ANSI32"
PatternType=acHatchPatternTypePreDeated
关联性=True
'在模型空间中创建关联性Hatch对象。
设置obHatch=ThisDrawing.ModelSpace.AddHatch(PatternType, PatternName, Associity)
'获取要孵化的对象。
ThisDrawing.Utility.GetEntity的OutLoop(0), varPickPt,"选择对象:"
'确保用户选择了一些东西。
.
objHatch.AppendOuterLoop
'评估显示的舱口。
objHatch.Evaluate
重新生成绘图。
ThisDrawing.RegenTrue
Else
清除错误。
Err.Clear
结束如果
结束子