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

AutoCAD 2025 开发者帮助

关于创建点对象（VBA/ActiveX）

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

例如，点对象可能很有用，例如，作为节点或参考点，您可以捕捉到对象并从中偏移对象。

您可以设置点的样式及其相对于屏幕的大小或以绝对单位设置。

AutoCAD PDMODE 和 PDSIZE 系统变量控制 Point 对象的外观。PDMODE 值 0、2、3 和 4 指定要绘制穿过该点的图形。值为 1 时不选择要显示的任何内容。

将 32、64 或 96 添加到上一个值中，除了通过该点绘制的图形外，还会选择要围绕该点绘制的形状：

PDSIZE 控制点图形的大小，但 PDMODE 值 0 和 1 除外。0 设置在图形区域高度的 5% 处生成点。正 PDSIZE 值指定点图形的绝对大小。负值被解释为视口大小的百分比。重新生成图形时，将重新计算所有点的大小。

更改 PDMODE 和 PDSIZE 后，下次再生图形时，现有点的外观将发生变化。

若要设置 PDMODE 和 PDSIZE，请使用以下方法。SetVariable

创建一个 Point 对象并更改其外观

下面的代码示例在模型空间的坐标（5， 5， 0）处创建一个 Point 对象。然后更新 PDMODE 和 PDSIZE 系统变量。

Sub Ch4_CreatePoint()
  Dim pointObj As AcadPoint
  Dim location(0 To 2) As Double

  ' Define the location of the point
  location(0) = 5#: location(1) = 5#: location(2) = 0#

  ' Create the point
  Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
  ThisDrawing.SetVariable "PDMODE", 34
  ThisDrawing.SetVariable "PDSIZE", 1
  ZoomAll
End Sub