CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2024 开发者帮助 › 查看内容

AutoCAD 2024 开发者帮助

AddHatch 方法（ActiveX）

2024-5-18 19:07| 发布者: admin| 查看: 160| 评论: 0|原作者: admin|来自: AutoCAD

创建一个 Hatch 对象。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.AddHatch(PatternType, PatternName, Associativity [, HatchObjectType])

对象

类型：块、模型空间、纸空间

此方法应用到的对象。

PatternType

访问：仅输入

类型：或枚举AcPatternTypeAcGradientPatternType

如果 HatchObjectType 参数值为，则使用枚举;如果 HatchObjectType 参数值为，则使用枚举。acHatchObjectAcPatternTypeAcGradientObjectAcGradientPatternType

AcPatternType枚举

acHatchPatternTypePredefined：从 acad.pat 文件中定义的模式名称中选择模式名称。
acHatchPatternTypeUserDefined：使用当前线型定义线型的线条图案。
acHatchPatternTypeCustomDefined：从 acad.pat 文件以外的 PAT 文件中选择模式名称。

AcGradientPatternType枚举

acPreDefinedGradient：从其中一个标准值中选择填充名称。
acUserDefinedGradient：定义基于属性值的模式。

模式名称

访问：仅输入

类型：字符串

如果 HatchObjectType 参数值为，则 PatternName 应包含填充图案名称。如果 HatchObjectType 参数值为，则 PatternName 应包含 GradientName 中列出的梯度模式名称之一。acHatchObjectacGradientObject

关联性

访问：仅输入

类型：布尔

True：填充将是关联的。
False：填充线不会关联。

HatchObjectType

访问：仅输入

类型：枚举AcHatchObjectType

默认值为的枚举值。如果枚举值为，则 PatternType 应为类型，而 PatternName 应包含渐变模式名称。AcHatchObjectTypeAcHatchObjectAcHatchObjectTypeAcGradientObjectAcGradientPatternType

返回值（RetVal）

类型：舱口

新创建的对象。Hatch

言论

创建对象后，必须使用该方法添加外部循环。必须关闭外部循环，并且必须先创建外部循环，然后才能创建任何内部循环。使用该方法一次创建一个内部循环。HatchAppendOuterLoopAppendInnerLoop

注意：创建对象后，必须将外部循环追加到对象，才能使对象成为有效的 AutoCAD 对象。如果尝试调用该方法以外的任何操作，AutoCAD 将进入不可预知的状态。HatchHatchAppendOuterLoop

例子

VBA：

Sub Example_AddHatch()
    ' This example creates an associative gradient hatch in model space.
    
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    
    ' Define the hatch
    patternName = "CYLINDER"
    PatternType = acPreDefinedGradient '0
    bAssociativity = True
    
    ' Create the associative Hatch object in model space
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity, acGradientObject)
    Dim col1 As AcadAcCmColor, col2 As AcadAcCmColor
    Set col1 = hatchObj.TrueColor
    Set col2 = hatchObj.TrueColor
    Call col1.SetRGB(255, 0, 0)
    Call col2.SetRGB(0, 255, 0)
    hatchObj.GradientColor1 = col1
    hatchObj.GradientColor2 = col2
    
    ' Create the outer boundary for the hatch (a circle)
    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)
    
    ' Append the outerboundary to the hatch object, and display the hatch
    hatchObj.AppendOuterLoop outerLoop
    hatchObj.Evaluate
    ThisDrawing.Regen True
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_AddHatch()
    ;; This example creates an associative gradient hatch in model space.
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))    
    
    ;; Define the hatch
    (setq patternName "CYLINDER"
          patternType acPreDefinedGradient
          bAssociativity :vlax-true)
    
    ;; Create the associative Hatch object in model space
    (setq modelSpace (vla-get-ModelSpace doc)
          hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acGradientObject))

    (setq col1 (vla-get-TrueColor hatchObj)
          col2 (vla-get-TrueColor hatchObj))
    (vla-SetRGB col1 255 0 0)
    (vla-SetRGB col2 0 255 0)
    (vla-put-GradientColor1 hatchObj col1)
    (vla-put-GradientColor2 hatchObj col2)
    
    ;; Create the outer boundary for the hatch (a circle)
    (setq center (vlax-3d-point 3 3 0)
          radius 1
          circle (vla-AddCircle modelSpace center radius))

    (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))
    (vlax-safearray-put-element outerLoop 0 circle)
    
    ;; Append the outerboundary to the hatch object, and display the hatch
    (vla-AppendOuterLoop hatchObj outerLoop)
    (vla-Evaluate hatchObj)
    (vla-Regen doc :vlax-true)
)