[编程申请]：如何填充一实心圆？

tiger0101

想填充一个圆，已知圆心和半径，用addcircle画了一个圆，然后想填充成solid的实心圆，结果发现填充好象要用四个点做参数，那我怎么填啊？

alwaysbin

不懂，我画一个圆很容易就填充了，不知道你是用的什么版本的cad。
不过推荐你用画圆环的办法，把内径设为0。

eachy

最初由 tiger0101 发布
[B]想填充一个圆，已知圆心和半径，用addcircle画了一个圆，然后想填充成solid的实心圆，结果发现填充好象要用四个点做参数，那我怎么填啊？ [/B]

要很多 solid 才可以模拟出实心 circle，可以用下面的方法：

1 用 AddLightweightPolyline 加一个长度为圆的直径的 Pline ，然后 对startpoint 和 endpoint 分别设置 setbulge ，最后设置 ConstantWidth

2 AddHatch -〉AppendOuterLoop

lonelycoder

eachy：好“佩服”你的理解力！
真的！人家明明问的是VBA里面AddHatch（）的四个参数如何填写，你却聪明的答非所问，唉，为你脸红3分钟好了。

tiger0101 哥哥：
下面是小妹用32秒的回答：


Sub AddSolidHatch()
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
   
    patternName = "SOLID" '这个参数是样式 你想填实心的就必须选择这个
    PatternType = acHatchPatternTypePreDefined          '这个参数表示是系统定义的填充样式
    bAssociativity = True       '表示关联，不想关联填false
   
    ' 创建该填充
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
   
    ' 给填充加上外边界
    Dim outerLoop(0 To 0) As AcadEntity
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 3: center(1) = 3: center(2) = 0
    radius = 1
    Set outerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
   
    ' 把外边界和填充联系起来
    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
    ThisDrawing.Regen True
   
End Sub


以后有什么不懂的，可以多多请教我。
工作上有什么不顺心的，看着就烦的重复劳动，写个mail告诉我，我是孤独的程序员，专门免费为你们这些劳苦大众解决各种问题。


程序员的使命
是造福社会 造福人类
假如我的代码能为您繁重的工作节省一点点时间
那将是我无上的光荣

lonelycoder@sina.com

行者

真的３２秒吗？是思考的过程３２秒还是从见到题目那一刻起到成果出来３２秒啊？那真是太厉害了，我的打字速度都达不到这么快，才６０一分钟而已。佩服。