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

ActiveX 开发指南

关于创建线条（VBA/ActiveX）

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

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

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

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

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

添加线: 创建一条穿过两点的线。
添加轻量折线: 从折点列表创建二维轻量级折线。
添加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