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

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

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

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

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

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

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

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

leeyeafu · 发表于 2003-3-24 10:39

首先，要熟悉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

多谢了！回去研究研究

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

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

很有帮助

账号		自动登录	找回密码
密码			注册

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

请陈老师回答

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

我来回答

多谢了！

获益匪浅！

受益！