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

绿色大海

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

hq_2003

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

绿色大海

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

leeyeafu

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

多谢了！回去研究研究

myfreemind

jennsen

很有帮助