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

ActiveX 开发指南

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

2023-1-5 01:48| 发布者: admin| 查看: 636| 评论: 0|来自: 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