剖面线！！

tsxvvv

老师：
      怎么样才能给ln1,ln2,ln3,ln4四条线围成的四边形添加剖面线啊！！

efan2000

具体的操作步骤看下面的例子，其中外环要定义成包含四个实体的数组。如Dim outerLoop(0 To 3) As AcadEntity，然后一一将四条直线赋给它，如：Set outerLoop(0) = ln1，……。其它一样，使用hatchObj.AppendOuterLoop (outerLoop)往图案填充中添加外环。

本例在模型空间中创建关联的图案填充。创建图案填充后，可以修改与图案填充关联的圆的大小。图案填充将自动改变以匹配圆的当前大小。

Sub Ch4_CreateHatch()
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
   
    ' 定义图案填充
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
   
    ' 创建关联的 Hatch 对象
    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)
   
    ' 向 Hatch 对象附加外边界，
    ' 并显示图案填充
    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
    ThisDrawing.Regen True
   
End Sub

tsxvvv

谢谢！！！

sjsfsdrgy

今天遇到一个问题:
以前的问题我都已经解决:)
问题是做深沟球轴承的剖面线时,不能实现局部剖,而是全剖,检查并不是没有封闭好,我设置了一个OUTERLOOP(大矩形)和两个INNERLOOP(小矩形和圆),可能是这里出问题了.有更好的方法吗?

sjsfsdrgy

怎样处理圆弧和轻便多义线的封闭？


如果两部分剖面线的方向不同，该怎样处理？