CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于创建对象（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于创建线条（VBA/ActiveX）

2023-1-5 01:52| 发布者: admin| 查看: 1306| 评论: 0|来自: AutoCAD

摘要: 线条是 AutoCAD 中最基本的对象。您可以创建各种线 - 单线以及带和不带圆弧的多线段。

线是AutoCAD中最基本的对象。您可以创建各种线 - 单线以及带弧和不带弧的多线段。

通常，通过指定坐标点来绘制线条。默认线型为 CONTINUOUS，即一条不间断的线，但可以使用各种使用点和破折号的线型。

若要创建行，请使用下列方法之一：

AddLine（加线）: 创建一条穿过两点的线。
添加轻量Polyline: 从顶点列表创建二维轻量级折线。
添加MLine: 创建多行。
添加折线: 创建 2D 或 3D 折线。

标准线和多线是在世界坐标系的 XY 平面上创建的。折线和轻量级折线是在对象坐标系（OCS）中创建的。

创建折线对象

此示例使用该方法使用 2D 坐标（2,4）、（4,2）和（6,4）创建简单的两段段折线。AddLightweightPolyline

Sub Ch4_AddLightWeightPolyline()
  Dim plineObj As AcadLWPolyline
  Dim points(0 To 5) As Double

  ' Define the 2D polyline points
  points(0) = 2: points(1) = 4
  points(2) = 4: points(3) = 2
  points(4) = 6: points(5) = 4

  ' Create a light weight Polyline object in model space
  Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
  ThisDrawing.Application.ZoomAll
End Sub