由一条线段和圆弧组成的半圆，应该如何填充颜色

zhangruipig1

代码如下：

Dim varCenter(0 To 2) As Double

Dim varFirst_1(0 To 2) As Double
Dim varSecond_1(0 To 2) As Double
Dim varThird_1(0 To 2) As Double

Dim varFirst_2(0 To 2) As Double
Dim varSecond_2(0 To 2) As Double
Dim varThird_2(0 To 2) As Double

Dim dblRadius As Double
Dim dblAngle As Double
Dim varRegions As Variant
Dim objEnt() As AcadEntity

varCenter(0) = 1000
varCenter(1) = 1000
varCenter(2) = 0

dblRadius = 100
dblAngle = 3.1415926

With ThisDrawing.ModelSpace
    ReDim objEnt(2)
    Set objEnt(0) = .AddArc(varCenter, dblRadius * 0.5, dblAngle, 0)
    Set objEnt(1) = .AddLine(objEnt(0).StartPoint, objEnt(0).EndPoint)
    Set objEnt(2) = .AddPoint(varCenter)
    varRegions = .AddRegion(objEnt)
End With
ZoomAll

已经生成了Region，但是怎么为这个面域填充颜色呢？

zhangruipig1

哦，这个问题我自己已经解决了。方法如下：

对自定义的图形进行颜色填充应该使用Hatch，Hatch有个设置外框的方法，Hatch还有Color属性。