[VBA程序]：hatch命令的vba的实现方法？

chengdu8115

*-*a ：
请教诸位高人：
   我学了一些VBA编程，现在遇到一个问题，使我觉得是否该放弃VBA了。
   就是怎么在VBA 中实现hatch命令，以选择区域方式.
谢谢！
chengdu815@eyou.com
*-*i

lsjjm

请参考:
Sub vv()
Dim patternName As String
Dim patternType As Long
Dim bassociativity As Boolean
Dim obj As AcadHatch
patternName = "ANSI31"
patternType = acHatchPatternTypePreDefined
associate = True
setq obj = ThisDrawing.ModelSpace.AddHatch(patternType, patternName, associate)
Dim out(0 To 2) As AcadEntity
Dim n As Integer
For n = 0 To 2
    Set out(n) = ThisDrawing.ModelSpace.Item(n)
Next
Dim inner(0 To 1) As AcadEntity
For n = 0 To 1
    Set inner(n) = ThisDrawing.ModelSpace.Item(n + 3)
Next
obj.AppendOutLoop out
obj.AppendInnerLoop inner
obj.eveluate
obj.Update
End Sub

雪山飞狐(lzh)

注意外部边界和内部边界必须是首尾相连的封闭实体数组，这个条件必须满足
另外,如果要实现Hactch命令的效果,可以参考这个贴子
http://www.xdcad.net/forum/showthread.php?s=&threadid=188716

随缘OK

编译错误：
子过程或函数未定义。
如何解决？

雪山飞狐(lzh)

最初由 随缘OK 发布
[B]编译错误：
子过程或函数未定义。
如何解决？ [/B]

什么意思？把话说清楚，别莫名其妙的

随缘OK

我在执行vv时，出现编译错误

雪山飞狐(lzh)

没仔细看，有几处错误
Sub vv()
Dim patternName As String
Dim patternType As Long
Dim bassociativity As Boolean
Dim obj As AcadHatch
patternName = "ANSI31"
patternType = 1
bassociativity = True
Set obj = ThisDrawing.ModelSpace.AddHatch(patternType, patternName, bassociativity)
Dim out(0 To 2) As AcadEntity
Dim n As Integer
For n = 0 To 2
Set out(n) = ThisDrawing.ModelSpace.Item(n)
Next
Dim inner(0 To 1) As AcadEntity
For n = 0 To 1
Set inner(n) = ThisDrawing.ModelSpace.Item(n + 3)
Next
obj.AppendOuterLoop out
obj.AppendInnerLoop inner

obj.Evaluate
obj.Update
End Sub
执行之前先新建一个文件，先画一个三角形，再在里面画两段首尾相连的弧