cad vba二次开发 AddText 方法 AddLine 方法 AddPolyline 方法 AddCircle 方法

cad vba二次开发 AddText 方法 AddLine 方法 AddPolyline 方法 AddCircle 方法
AddText 方法

创建单行文字。

参阅 | 示例

语法

RetVal = object.AddText(TextString, InsertionPoint, Height)

Object

ModelSpace 集合, PaperSpace 集合, Block
使用该方法的对象。

TextString

String[字符串]; 仅用于输入
显示的实际文字。

InsertionPoint

Variant[变体] (三元素双精度数组); 仅用于输入
文字放置到图形中的三维WCS坐标。

Height

Double[双精度]; 仅用于输入
文字的高度。必须为正数。

RetVal

Text 对象
新创建的 Text 对象。

AddLine 方法

通过两个点创建直线。

参阅 | 示例

语法

RetVal = object.AddLine(StartPoint, EndPoint)

Object

ModelSpace 集合, PaperSpace 集合, Block
使用该方法的对象。

StartPoint

Variant[变体] (三元素双精度数组); 仅用于输入
指定直线起点的三维WCS坐标。

EndPoint

Variant[变体] (三元素双精度数组); 仅用于输入
指定直线终点的三维WCS坐标。

RetVal

Line 对象
新创建的 Line 对象。

AddPolyline 方法

从顶点列表创建多段线。

参阅 | 示例

语法

RetVal = object.AddPolyline(VerticesList)

Object

ModelSpace 集合, PaperSpace 集合, Block
使用该方法的对象。

VerticesList

Variant[变体] (双精度数组); 仅用于输入
用于创建多段线顶点的OCS坐标数组。每一顶点用三个元素表示，前两个元素为OCS的X和Y坐标；而第三个元素为忽略。至少需要两点(六个元素)来构成一个多段线对象。该数组的大小必须为3的倍数。

RetVal

Polyline 对象
新创建的 Polyline 对象。

说明

要创建包含圆弧的多段线，首先创建直线段的多段线，然后对特定顶点使用 SetBulge 方法设置凸度。

该方法的存在只用于与旧版本兼容。使用 AddLightweightPolyline 方法可创建优化格式的多段线以节省内存和磁盘空间。

坐标可使用 TranslateCoordinates 方法由OCS坐标与其它坐标系统相互转换。

AddCircle 方法

给定中心点和半径创建圆。

参阅 | 示例

语法

RetVal = object.AddCircle(Center, Radius)

Object

ModelSpace 集合, PaperSpace 集合, Block
使用该方法的对象。

Center

Variant[变体] (三元素双精度数组); 仅用于输入
指定圆心的三维WCS坐标。

Radius

Double[双精度]; 仅用于输入
圆的半径。必须为正数。

RetVal

Circle 对象
新创建的 Circle 对象。

说明

该圆创建于WCS的XY面上。