怎么用vb来控制对cad里的一个四边形进行填充老出问题?

feld.spar

这是代码,红色这句老提示不支持该方法,请各位大侠帮看看.小弟不胜感激!!!!!!

Dim insertionpnt1(2) As Double
Dim points5(9) As Double
insertionpnt1(0) = 5000: insertionpnt1(1) = 5000: insertionpnt1(2) = 0
Set blockobj = acadapp.ActiveDocument.Blocks.Add(insertionpnt1, "jiaocha")
Dim hatchobj As AcadHatch
Dim patternname As String
Dim patterntype As Long
Dim bassociativity As Boolean

patterntype = 0
patternname = "SOLID"
bassociativity = True
Set hatchobj = acadapp.ActiveDocument.ModelSpace.AddHatch(patterntype, patternname, bassociativity)

Dim plineobj11 As AcadEntity
points(0) = 5000: points(1) = 5011
points(2) = 5007: points(3) = 5011
points(4) = 5005: points(5) = 5012
points(6) = 5000: points(7) = 5012
Set plineobj11 = blockobj.AddLightWeightPolyline(points)
plineobj11.Closed = True
plineobj11.Update
hatchobj.AppendOuterLoop (plineobj11)
hatchobj.Evaluate
acadapp.ActiveDocument.Regen True

bagssr

好像你的点没给全，图形未封闭，我想应该改成这样，不知道行不行。
points(0) = 5000: points(1) = 5011
points(2) = 5007: points(3) = 5011
points(4) = 5005: points(5) = 5012
points(6) = 5000: points(7) = 5012
points(8) = 5000: points(9) = 5011

hgo1984924

plineobj11.Closed = True ，这就算封闭了 不是这个问题

woaishuijia

边界必须是数组

2. ......
   
3. Dim plineobj11(0) As AcadEntity
   
4. points(0) = 5000: points(1) = 5011
   
5. points(2) = 5007: points(3) = 5011
   
6. points(4) = 5005: points(5) = 5012
   
7. points(6) = 5000: points(7) = 5012
   
8. Set plineobj11(0) = blockobj.AddLightWeightPolyline(points)
   
9. plineobj11(0).Closed = True
   
10. plineobj11(0).Update
    
11. hatchobj.AppendOuterLoop (plineobj11)
    
12. ......

......<br /> Dim plineobj11(0) As AcadEntity<br /> points(0) = 5000: points(1) = 5011<br /> points(2) = 5007: points(3) = 5011<br /> points(4) = 5005: points(5) = 5012<br /> points(6) = 5000: points(7) = 5012<br /> Set plineobj11(0) = blockobj.AddLightWeightPolyline(points)<br /> plineobj11(0).Closed = True<br /> plineobj11(0).Update<br /> hatchobj.AppendOuterLoop (plineobj11)<br /> ......