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

AutoCAD 2021 开发者帮助

AddTrace 方法（ActiveX）

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

从点数组创建 Trace 对象。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.AddTrace(PointsArray)

对象

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

此方法应用到的对象。

点数组

访问：仅输入

类型：变体（双打数组）

指定追踪端点的 3D WCS 坐标数组。

返回值（RetVal）

类型：跟踪

新创建的对象。Trace

言论

迹线的端点始终位于中心线上，并且始终被切成正方形。AutoCAD 会自动计算连接到相邻迹线段的正确斜角。

当“填充”模式打开时，迹线是实心填充的。当“填充”模式关闭时，仅显示迹线的轮廓。

要设置填充模式，请使用 AutoCAD FILLMODE 系统变量。AutoCAD TRACEWID 系统变量存储用于对象的当前宽度。Trace

例子

VBA：

Sub Example_AddTrace()
    ' This example creates a trace in model space.
    
    Dim traceObj As AcadTrace
    Dim tracePts(0 To 11) As Double       ' 4 (3D) points
    
    ' Define the points of the trace
    tracePts(0) = 1: tracePts(1) = 1: tracePts(2) = 0
    tracePts(3) = 3: tracePts(4) = 3: tracePts(5) = 0
    tracePts(6) = 5: tracePts(7) = 3: tracePts(8) = 0
    tracePts(9) = 5: tracePts(10) = 1: tracePts(11) = 0
    
    ' Turn on the system variable (FILLMODE)
    ' to fill the outline of the trace
    ThisDrawing.SetVariable "FILLMODE", 1
        
    ' Create the trace object in model space
    Set traceObj = ThisDrawing.ModelSpace.AddTrace(tracePts)
    ZoomAll
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_AddTrace()
    ;; This example creates a trace in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the points of the trace
    (setq tracePts (vlax-make-safearray vlax-vbDouble '(0 . 11)))
    (vlax-safearray-fill tracePts '(1 1 0
                                    3 3 0
                                    5 3 0
                                    5 1 0
                                   )
    )
    
    ;; Turn on the system variable (FILLMODE)
    ;; to fill the outline of the trace
    (vla-SetVariable doc "FILLMODE" 1)
        
    ;; Create the trace object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq traceObj (vla-AddTrace modelSpace tracePts))
    (vla-ZoomAll acadObj)
)