|
发表于 2003-3-24 10:39:00
|
显示全部楼层
首先,要熟悉ACAD中某些几何数据的表示方法。例如,在VBA中,点的坐标是一个叫“变体”(Variant)的数据类型。它的本质是一个三维双精度浮点数数组,即Double(0 To 2)。其它的象角度、距离、方向等不再细说,有需要再发帖。
其次,点的坐标经常是某个ACAD图元对象的某个属性值。要获取对象的属性,先要得到该对象的实例,再通过对象提供的属性或方法获取、编辑对象的某些特性。
以下的代码段先在ACAD当前图形的模型空间添加一条直线,再修改该直线的部分属性,最后用MsgBox函数显示修改后的直线端点坐标。(代码要在ACAD的VBA环境中运行,未经调试)
Public Sub Sample()
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
Dim objLine As AcadLine
pt1(0) = 10: pt1(1) = 50: pt1(2) = 0
pt2(0) = 100: pt2(1) = 150: pt2(2) = 0
'添加直线对象
Set objLine = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
objLine.Update '更新对象,在ACAD图形界面中显示
MsgBox "此时直线的起点为:(" & objLine.StartPoint(0) & "," & _
objLine.StartPoint(1) & ")"
'修改直线对象部分属性
pt1(0) = 50: pt1(1) = 200: pt1(2) = 0
objLine.StartPoint = pt1 '起点坐标修改
objLine.Color = acRed '颜色属性修改
objLine.Update ‘更新对象
MsgBox "此时直线的起点为:(" & objLine.StartPoint(0) & "," & _
objLine.StartPoint(1) & ")"
End Sub |
|