CAD二次开发 vba 对象
CAD二次开发 vba 对象
Move 方法
将图元对象从源向目标移动。
参阅 | 示例
语法
object.Move Point1, Point2
Object
所有图形对象, AttributeReference
使用该方法的对象。
Point1
Variant[变体] (三元素双精度数组); 仅用于输入
表示移动矢量的第一个点的三维 WCS 坐标。
Point2
Variant[变体] (三元素双精度数组); 仅用于输入
表示移动矢量的第二个点的三维 WCS 坐标。
说明
指定的两点定义了一个位移矢量指示给定物体要移动多远且按照什么方向移动。
给定物体与指定的两点
移动后的物体
Open 方法
打开现有图形文件(DWG)并将其设为活动的文档。(2004修改)
参阅 | 示例
语法
object.Open Name[, ReadOnly][, Password]
Object
Documents, Document
该方法适用的对象和集合。
Name
String [字符串]
要打开图形的完整路径和文件名，或有效的URL地址。如果文件是在 SupportPath 属性指定的文件夹下，则不需要路径，有文件名已经足够了。
ReadOnly
Variant[变体]; 仅用于输入; 可选项; 只用于 Documents 集合
默认设置: FALSE
TRUE: 图形以只读方式打开。
FALSE: 图形以读写方式打开。
Password
Variant[变体]; 可选项；该项只有2004版及以上版本才有
打开加密图形的密码。
说明
建议用户在调用该方法前保存当前图形。
该方法只用于打开 AutoCAD 图形文件。使用 Import 方法来打开 SAT、EPS、DXF、WMF 或 BMP 格式文件。
当在多文档界面模式下运行时，用户必须从 Documents 集合使用 Open 方法。当在单文档界面模式运行时，用户必须从 Document 对象使用 Open 方法。
当访问安全的 URL 时, 会出现对话框提示用户输入必要的密码信息。如果用户没有在浏览器中消除该行为，将会出现消息框。
当下载文件时，AutoCAD 会创建临时文件供内部处理。请不要试图访问该临时文件。该文件的内容将会在 AutoCAD 进程结束时被删除。
Copy 方法
在同一位置复制给定对象。
参阅 | 示例
语法
RetVal = object.Copy
Object
所有图形对象
RetVal
对象
新创建的复制对象。
说明
AttributeReference: 用户不能在 AttributeReference 对象上使用该方法。AttributeReference 对象继承该方法是因为它也是图形对象，然而，在属性参照上执行该操作是不可行的。
注意 当同时遍历集合时不能执行该方法。在遍历过程中将打开一个只读操作的工作空间，而该方法试图执行可读写操作。必须在完成遍历后才调用该方法。
Delete 方法
删除指定对象或一组保存了的图层设置。
参阅 | 示例
语法
object.Delete
Object
所有图形对象, Block, Dictionary, DimStyle, Group, Hyperlink, Layer, LayerStateManager, Layout, Linetype, PlotConfiguration, PopupMenuItem, PViewport, RegisteredApplication, SelectionSet, TextStyle, Toolbar, ToolbarItem, UCS, View, Viewport, XRecord
使用该方法的对象。
说明
当用户删除集合中的对象时，集合中所有剩余项目会依据目前的计数重新指定新的索引。因此当处理整个集合时，应避免执行删除对象的循环。例如，下面的VBA代码竟会导致执行错误：
For i = 0 To ThisDrawing.Groups.Count - 1
ThisDrawing.Groups.Item(i).Delete
Next I
相反，用下列VBA程序代码可删除集合中的所有对象：
for each obj in ThisDrawing.Groups
obj.Delete
next obj
用户也可以使用下列VBA程序代码来删除集合中单一的成员：
ThisDrawing.Groups.item(“group1”).Delete
假如用户试图删除集合对象，将导致错误产生。
ToolbarItem: 用户只能在工具栏为可见时才可以加入或删除工具栏项目。
AcadLayerStateManager: 该对象带有一个Name的参数，它是一个表示将要删除的图层状态的字符串。
GetFont 方法
获取 TextStyle 的字体定义数据。
参阅 | 示例
语法
object.GetFont Typeface, Bold, Italic, CharSet, PitchAndFamily
Object
TextStyle
使用该方法的对象。
Typeface
String[字符串]; 仅用于输出
需要的TextStyle字体的字样（字体名称）。
Bold
Boolean[布尔值]; 仅用于输出
指定TextStyle字体是否加粗。
TRUE: TextStyle字体加粗。
FALSE: TextStyle字体不加粗。
Italic
Boolean[布尔值]; 仅用于输出
指定 TextStyle字体是否为斜体。
TRUE: TextStyle字体为斜体。
FALSE: TextStyle字体不为斜体。
CharSet
Long[长整数]; 仅用于输出
字体的字符集（查看说明中的有效值）。
PitchAndFamily
Long[长整数]; 仅用于输出
字体的字宽和语系定义（查看说明中的有效值）。
说明
本部分提供了该方法中用到的常量定义。用这些常数，可复制所需的定义并将它们粘贴在程序中需声明的地方。完整的Microsoft可用的常量列表可在 win32api.txt 文件中找到，它是由 Visual Basic 开发环境提供的。
CharSet 参数指定了字体的字符集。如需要在 VB 或 VBA程序中使用以下常数，可将这些定义复制到代码的声明段。
Public Const ANSI_CHARSET = 0
Public Const DEFAULT_CHARSET = 1
Public Const SYMBOL_CHARSET = 2
Public Const SHIFTJIS_CHARSET = 128
Public Const OEM_CHARSET = 255
PitchAndFamily 参数指定了字体的字宽及语系值。此值由3个不同设置共同决定。从三类中为每一类选择一个设置后用布尔操作符 OR 来连结，就可以获得
PitchAndFamily 值。前两类的设置是必须的：字宽和语系。第三类 TrueType 标志只有在指定一个TrueType字体时才用到。
’ 字宽值
Public Const DEFAULT_PITCH = 0 ’ 默认字宽。
Public Const FIXED_PITCH = 1 ’ 固定字宽。
Public Const VARIABLE_PITCH = 2 ’ 可变字宽。
’ 语系值
Public Const FF_DONTCARE = 0 ’ 忽略或不知道。
Public Const FF_ROMAN = 16 ’ 可变的笔划宽度，衬线。
Public Const FF_SWISS = 32 ’ 可变的笔划宽度，无衬线。
Public Const FF_MODERN = 48 ’ 固定笔划宽度，可有衬线可无衬线
Public Const FF_SCRIPT = 64 ’ 草写体等
Public Const FF_DECORATIVE = 80 ’ 旧式英语等
’ TrueType 标志
Public Const TMPF_TRUETYPE = &H4