CAD中的参数如何用VBA提取出来

绿色大海 发表于 2003-3-23 08:34:00

本帖最后由作者于 2003-3-23 8:34:02 编辑

各位大侠！
小弟想请教如何才能用VBA或者是AutoLISP将CAD图形中的直线坐标提取上来，
或者是点的坐标提取上来。
提取后是怎么赋值的。
用什么样的函数、方法！
谢谢！

hq_2003 发表于 2003-3-23 09:13:00

请陈老师回答

请陈老师回答“CAD中的参数如何用VBA提取出来“这个问题好吗？我也很想知道

绿色大海 发表于 2003-3-24 08:34:00

请问如何联系他老人家，比较妥当呢？

我是个新手所以不知道该怎么办！
希望这位大虾：)请多指教！

leeyeafu 发表于 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

HQ_2003 发表于 2003-3-25 20:37:00

多谢了！

多谢了！回去研究研究

myfreemind 发表于 2003-4-19 01:38:00

获益匪浅！

jennsen 发表于 2003-4-19 08:42:00

受益！

很有帮助

页: [1]

明经CAD社区's Archiver