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

AutoCAD 2025 开发者帮助

Type 属性（ActiveX）

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

Type 属性（ActiveX）

指定 Leader、MenuGroup、PopupMenuItem、ToolbarItem、Polyline 或 PolygonMesh 对象的类型。

支持的平台：仅限 Windows

签名

VBA：

object.Type

对象

类型：3DPolyline、Leader、MenuGroup、PolygonMesh、Polyline、PopupMenuItem、ToolbarItem

此属性应用于的对象。

属性值 - 3DPolyline

只读：不

类型：枚举ac3DPolylineType

acSimple3DPoly：简单的折线。
acQuadSpline3DPoly：二次 B 样条折线折线。
acCubicSpline3DPoly：三次 B 样条折线折线。

属性值 - 领导者

只读：不

类型：枚举acLeaderType

acLineNoArrow：没有箭头的线。
acLineWithArrow：带箭头的线条。
acSplineNoArrow：不带箭头的样条曲线。
acSplineWithArrow：带箭头的样条曲线。

属性值 - MenuGroup

只读：是的

类型：枚举acMenuGroupType

acBaseMenuGroup：基本菜单组。
acPartialMenuGroup：部分菜单组。

属性值 - PolygonMesh

只读：不

类型：枚举acPolymeshType

acSimpleMesh：简单的网格，没有表面拟合或平滑。
acQuadSurfaceMesh：二次 B 样条曲面拟合。
acCubicSurfaceMesh：三次 B 样条曲面拟合。
acBezierSurfaceMesh：贝塞尔曲面拟合。

属性值 - 折线

只读：不

类型：枚举acPolylineType

acSimplePoly：简单的折线。
acFitCurvePoly：拟合曲线折线。
acQuadSplinePoly：二次 B 样条折线折线。
acCubicSplinePoly：三次 B 样条折线折线。

属性值 - PopupMenuItem

只读：是的

类型：枚举acMenuItemType

acMenuItem：菜单项。
acMenuSeparator：菜单分隔符。
acMenuSubMenu：子菜单。

属性值 - ToolbarItem

只读：是的

类型：枚举acToolbarItemType

acToolbarButton：通用按钮。
acToolbarFlyout：浮出控件按钮。
acToolbarControl：控制按钮。
acToolbarSeparator：分隔符。

言论

PolygonMesh：如果类型设置为，则 M 和 N 个顶点计数值将用于顶点行列大小。对于任何其他类型，M 和 N 密度值将用作行和列大小。PolygonMeshacSimpleMeshPolygonMesh

例子

VBA：

Sub Example_Type()
    ' This example creates a leader in model space.
    ' It then changes the type of the leader.
   
    Dim leaderObj As AcadLeader
    Dim points(0 To 8) As Double
    Dim leaderType As Integer
    Dim annotationObject As AcadEntity
    
    points(0) = 0: points(1) = 2: points(2) = 0
    points(3) = 4: points(4) = 4: points(5) = 0
    points(6) = 4: points(7) = 2: points(8) = 0
    leaderType = acLineNoArrow
    Set annotationObject = Nothing
        
    ' Create the leader object in model space
    Set leaderObj = ThisDrawing.ModelSpace.AddLeader(points, annotationObject, leaderType)
    ZoomAll
    
    ' Find the current leader type
    leaderType = leaderObj.Type
    MsgBox "The leader type is " & Choose(leaderObj.Type + 1, "acLineNoArrow.", "acSplineNoArrow.", "acLineWithArrow.", "acSplineWithArrow."), , "Type Example"
    
    ' Change the leader type
    leaderObj.Type = acLineWithArrow
    leaderObj.Update
    MsgBox "The leader type is " & Choose(leaderObj.Type + 1, "acLineNoArrow.", "acSplineNoArrow.", "acLineWithArrow.", "acSplineWithArrow."), , "Type Example"
    
    ' Change the leader type
    leaderObj.Type = acSplineNoArrow
    leaderObj.Update
    MsgBox "The leader type is " & Choose(leaderObj.Type + 1, "acLineNoArrow.", "acSplineNoArrow.", "acLineWithArrow.", "acSplineWithArrow."), , "Type Example"
    
    ' Change the leader type
    leaderObj.Type = acSplineWithArrow
    leaderObj.Update
    MsgBox "The leader type is " & Choose(leaderObj.Type + 1, "acLineNoArrow.", "acSplineNoArrow.", "acLineWithArrow.", "acSplineWithArrow."), , "Type Example"
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Type()
    ;; This example creates a leader in model space.
    ;; It then changes the type of the leader.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq modelSpace (vla-get-ModelSpace doc))

    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 8)))
    (vlax-safearray-fill points '(0 2 0
                                  4 4 0
				  4 2 0
				 )
    )

    (setq leaderType acLineNoArrow)

    (setq point (vlax-3d-point 4 2 0))
    (setq annotationObject (vla-AddMText modelSpace point 1 ""))  
        
    ;; Create the leader object in model space
    (setq leaderObj (vla-AddLeader modelSpace points annotationObject leaderType))

    ;; Remove the temporary annotaion object and adjust the last coordinate of the leader
    (vla-Erase annotationObject)
    (vla-put-Coordinate leaderObj 2 (vlax-3D-point 4 2 0))
    (vla-ZoomAll acadObj)
    
    ;; Find the current leader type
    (setq leaderType (vla-get-Type leaderObj))
    (alert (strcat "The leader type is " (cond
                                             ((= leaderType acLineNoArrow) "acLineNoArrow.")
                                             ((= leaderType acSplineNoArrow) "acSplineNoArrow.")
                                             ((= leaderType acLineWithArrow) "acLineWithArrow.")
                                             ((= leaderType acSplineWithArrow) "acSplineWithArrow.")
                                         )))
    
    ;; Change the leader type
    (vla-put-Type leaderObj acLineWithArrow)
    (vla-Update leaderObj)
    (setq leaderType (vla-get-Type leaderObj))
    (alert (strcat "The leader type is " (cond
                                             ((= leaderType acLineNoArrow) "acLineNoArrow.")
                                             ((= leaderType acSplineNoArrow) "acSplineNoArrow.")
                                             ((= leaderType acLineWithArrow) "acLineWithArrow.")
                                             ((= leaderType acSplineWithArrow) "acSplineWithArrow.")
                                         )))
    
    ;; Change the leader type
    (vla-put-Type leaderObj acSplineNoArrow)
    (vla-Update leaderObj)
    (setq leaderType (vla-get-Type leaderObj))
    (alert (strcat "The leader type is " (cond
                                             ((= leaderType acLineNoArrow) "acLineNoArrow.")
                                             ((= leaderType acSplineNoArrow) "acSplineNoArrow.")
                                             ((= leaderType acLineWithArrow) "acLineWithArrow.")
                                             ((= leaderType acSplineWithArrow) "acSplineWithArrow.")
                                         )))

    ;; Change the leader type
    (vla-put-Type leaderObj acSplineWithArrow)
    (vla-Update leaderObj)
    (setq leaderType (vla-get-Type leaderObj))
    (alert (strcat "The leader type is " (cond
                                             ((= leaderType acLineNoArrow) "acLineNoArrow.")
                                             ((= leaderType acSplineNoArrow) "acSplineNoArrow.")
                                             ((= leaderType acLineWithArrow) "acLineWithArrow.")
                                             ((= leaderType acSplineWithArrow) "acSplineWithArrow.")
                                         )))
)