夏经凯 发表于 2004-6-18 12:13:00

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

求代码　


我写的是：


Public Function AddHatchPt(ByRef ptArr() As Double, ByVal patType As Integer, ByVal patName As String, _<BR>                       ByVal associativity As Boolean) As AcadHatch<BR>                       Dim objPline As AcadLWPolyline<BR>                                <BR><BR>                       If (UBound(ptArr) + 1) Mod 2 &lt;&gt; 0 Then<BR>                                                       MsgBox "数组个数必须为偶数＂<BR>                                                       Exit Function<BR>                       End If<BR>                       <BR>                       Set objPline = AcadDoc.ModelSpace.AddLightWeightPolyline(ptArr)<BR>                       objPline.Closed = True<BR>                       <BR>                       Dim objList(0) As AcadEntity<BR>                       Set objList(0) = objPline<BR>                       Set AddHatchPt = AddHatch(objList, patType, patName, associativity)



只有patType, patName, associativity


预设是１.０　


小弟想设定为７５　，求代码　谢谢　

雪山飞狐_lzh 发表于 2004-6-18 12:16:00

AddHatchPt.PatternScale = 75

夏经凯 发表于 2004-6-18 12:18:00

谢谢斑竹
页: [1]
查看完整版本: [求教]拜求用设置ＣＡＤ填充比例的代码