[求助]：用vb二次开发中怎样调用自定义的图案文件？？

zxz_boy

:6

这是默认使用acad.pat的填充图案"ANSI31"：

' 定义阴影
patternName = "ANSI31"
PatternType = acHatchPatternTypePredefined
bAssociativity = True

' 创建关联阴影对象
Set hatchObj = ThisDrawing.ModelSpace.AddHatch _
(PatternType, patternName, bAssociativity)

但是我想要使用另外的pat文件中的图案时
会把PatternType 设为 acHatchPatternTypeCustomDefined
至于下一步应该怎样指明路径和图案名呢？？
请专家指点！！

谢谢！！

efan2000

对于自定义的填充图案，AutoCAD规定一个文件仅能保存一种填充图案，且文件名和填充图案必须相同。因而在VBA中，设置填充图案名称（PatternName）时可以直接用名称，而省略其所在的文件名，但该文件必须位于AutoCAD的搜索路径中。

1. 
   
2.   [FONT=courier new]
   
3. PatternName = "MyPattern" '注其文件名必须为MyPattern.pat
   
4. PatternType = acHatchPatternTypeCustomDefined
   
5. bAssociativity = True
   
6. Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, PatternName, bAssociativity)
   
7. '其余操作与内部的填充图案操作相同。
   
8.   [/FONT]
   

复制代码

zxz_boy

:a

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

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

多段线没闭合吧，用它的属性Closed设置。AddHatch只对闭合的对象或者构成闭合的对象进行填充。你所添加的没有闭合，当然不能使用Evaluate 。