CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 控制AutoCAD环境› 关于精确绘图（VBA/ActiveX）› 关于绘制构造线（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于创建构造 XLines （VBA/ActiveX）

2023-1-5 02:22| 发布者: admin| 查看: 825| 评论: 0|来自: AutoCAD

摘要: 建筑 xline 可以放置在 3D 空间中的任何位置，并在两个方向上延伸到无穷大。

建筑 xline 可以放置在 3D 空间中的任何位置，并在两个方向上延伸到无穷大。

要创建 xline，请使用该方法。此方法通过两点方法指定线条;输入或选取两个点来定义方向。第一个点，根，被认为是构造线的中点。AddXLine

添加构造线

下面的示例代码使用两个点（5， 0， 0）和（1， 1， 0）创建一个对象。XLine

Sub Ch3_AddXLine()
  Dim xlineObj As AcadXline
  Dim basePoint(0 To 2) As Double
  Dim directionVec(0 To 2) As Double

  ' Define the xline
  basePoint(0) = 2#: basePoint(1) = 2#: basePoint(2) = 0#
  directionVec(0) = 1#: directionVec(1) = 1#: directionVec(2) = 0#

  ' Create the xline in model space
  Set xlineObj = ThisDrawing.ModelSpace.AddXLine(basePoint, directionVec)
  ThisDrawing.Application.ZoomAll
End Sub