例如,点对象可能很有用,可以作为节点或参考点,可以捕捉和偏移对象。 您可以设置点的样式及其相对于屏幕的大小或绝对单位。 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 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-10 19:33
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.