[求助]：斑竹，救命，还是不行啊！

zxz_boy

:a :a :a :a :a :a :a :a
这个方法我在autocad的帮助中已经看到了。
但每次运行时，总显示错误：
"对象‘Evaluate'的方法‘IAcadHatch'失败"
可恨的是使用预定义的图案却运行正常，哎！
原函数如下：
Private Function hatchmap(points() As Integer) '填充图

Dim hatchobj As AcadHatch
Dim patternname As String
Dim patterntype As Integer
Dim bassociativity As Boolean

patterntype = acHatchPatternTypeCustomDefined
patternname = "abc" '我自定义的图案名称
bassociativity = True
Set hatchobj = acadapp.ActiveDocument.ModelSpace.AddHatch(patterntype, patternname, bassociativity)

Dim outloop(0 To 0) As AcadEntity
Set outloop(0) = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)

hatchobj.AppendOuterLoop (outloop)
hatchobj.Evaluate '总提示这里出错
acadapp.ActiveDocument.Regen True
End Function

efan2000

仔细看看帮助文件，填充时应对闭合对象进行操作，否则虽然在图纸中产生了一个填充对象，但它没有跟实体关联，所以用Evaluate来重新计算生成填充就会出错。

zxz_boy

:8
斑竹是说，可能是我要填充的对象没有闭合吗？
我在别的函数中是这样调用图案填充函数的：
    points_layer(0) = 125: points_layer(1) = current_y
    points_layer(2) = 165: points_layer(3) = current_y
    points_layer(4) = 165: points_layer(5) = current_y - (ymark_2 - ymark_1) * 10
    points_layer(6) = 125: points_layer(7) = current_y - (ymark_2 - ymark_1) * 10
    points_layer(8) = 125: points_layer(9) = current_y  '和第一点相同
    Call hatchmap(points_layer)

我试了一下，当我把points_layer(8),points_layer(9)改动后，使填充对象不闭合时会出现：
         " 对象 'AppendOuterLoop' 的方法 'IAcadHatch' 失败 "
而不是我所遇到的
         "对象 'Evaluate' 的方法 'IAcadHatch' 失败 "

请斑竹再帮帮小弟看看，十万火急！！！

efan2000

查了一下，可能是CAD本身的问题。当填充范围太大时就会出错，而小一些则不会，还有一个就是虽然面积小于65535单位，但是填充的一边很长时也会出错，估计是它的数据溢出所造成的。