[求教]拜求用设置ＣＡＤ填充比例的代码

夏经凯

求代码　 我写的是： Public Function AddHatchPt(ByRef ptArr() As Double, ByVal patType As Integer, ByVal patName As String, _
ByVal associativity As Boolean) As AcadHatch
Dim objPline As AcadLWPolyline


If (UBound(ptArr) + 1) Mod 2 <> 0 Then
MsgBox "数组个数必须为偶数＂
Exit Function
End If

Set objPline = AcadDoc.ModelSpace.AddLightWeightPolyline(ptArr)
objPline.Closed = True

Dim objList(0) As AcadEntity
Set objList(0) = objPline
Set AddHatchPt = AddHatch(objList, patType, patName, associativity) 只有patType, patName, associativity 预设是１.０　 小弟想设定为７５　，求代码　谢谢　

雪山飞狐_lzh

AddHatchPt.PatternScale = 75

夏经凯

谢谢斑竹