[求助]如何在VB中实现图案填充？

headbegger

<P><FONT face=宋体 size=2>Dim acadApp As Object, acadDoc As Object, moSpace As Object<BR>Dim TriSin As Object,Pts(5) As Double<BR><BR>On Error Resume Next<BR>Set acadApp = GetObject(, &quot;AutoCAD.Application&quot;)<BR>If err Then<BR>err.Clear<BR>Set acadApp = CreateObject(&quot;AutoCAD.Application&quot;)<BR>If err Then<BR>Exit Sub<BR>End If<BR>End If<BR>acadApp.Visible = True<BR>Set acadDoc = acadApp.ActiveDocument<BR>Set moSpace = acadDoc.ModelSpace<BR>Pts(0) = Pt1: Pts(1) = Pt2<BR>Pts(2) = Pt1 + hight: Pts(3) = Pt2 + hight<BR>Pts(4) = Pt1 - hight: Pts(5) = Pts(3)<BR>Set TriSin = moSpace.AddLightWeightPolyline(Pts)<BR>TriSin.closed = True</FONT></P><P><FONT face=宋体 size=2>如何填充三角形TriSin 呢？</FONT></P>