Modificación de contornos de sombreado

previous page next page

Edición de sombreados

Edición de patrones de sombreado

Manual del desarrollador de ActiveX y VBA > Creación y edición de entidades de AutoCAD > Modificación de objetos > Edición de sombreados >

Modificación de contornos de sombreado

Se pueden agregar o insertar bucles en los contornos del sombreado. Los sombreados asociativos se actualizan para igualarse a los cambios efectuados en sus contornos. Los sombreados no asociativos no se actualizan.

Para editar un contorno de sombreado, utilice uno de los métodos siguientes:

AppendInnerLoop: Añade un bucle interior al sombreado.
AppendOuterLoop: Añade un bucle exterior al sombreado.
InsertLoopAt: Inserta un bucle en un índice dado de un sombreado.

Adición de un bucle interior a un sombreado.

Este ejemplo crea un sombreado asociativo. Después crea un círculo y lo añade como bucle interno del sombreado.

Sub Ch4_AppendInnerLoopToHatch()

    Dim hatchObj As AcadHatch

    Dim patternName As String

    Dim PatternType As Long

    Dim bAssociativity As Boolean

          ' Define and create the hatch
          patternName = "ANSI31"
          PatternType = 0
          bAssociativity = True
          Set hatchObj = ThisDrawing.ModelSpace. _
              AddHatch(PatternType, patternName, bAssociativity)
                ' Create the outer loop for the hatch.
          Dim outerLoop(0 To 1) As AcadEntity
          Dim center(0 To 2) As Double
          Dim radius As Double
          Dim startAngle As Double
          Dim endAngle As Double
          center(0) = 5: center(1) = 3: center(2) = 0
          radius = 3
          startAngle = 0
          endAngle = 3.141592
          Set outerLoop(0) = ThisDrawing.ModelSpace. _
             AddArc(center, radius, startAngle, endAngle)
          Set outerLoop(1) = ThisDrawing.ModelSpace. _
             AddLine(outerLoop(0).startPoint, outerLoop(0).endPoint)
                ' Append the outer loop to the hatch object
          hatchObj.AppendOuterLoop (outerLoop)
                ' Create a circle as the inner loop for the hatch.
          Dim innerLoop(0) As AcadEntity
          center(0) = 5: center(1) = 4,5: center(2) = 0
          radius = 1
          Set innerLoop(0) = ThisDrawing.ModelSpace. _
                                       AddCircle(center, radius)
                ' Append the circle as an inner loop to the hatch
          hatchObj.AppendInnerLoop (innerLoop)
                ' Evaluate and display the hatch
          hatchObj.Evaluate
          ThisDrawing.Regen True
      End Sub

previous page start next page