[VBA]如何利用vba对已经给定的cad图形进行编辑？

bzjustb

如何将给定的cad图形元素（点．线．面．体）赋给vba中的变量，求源程序或算法
一般的vba开发参考书都是先定义变量，再由变量生成cad图形，他的逆过程如何实现

efan2000

很简单啊，定义一个变量，如Dim EntObj as AcadEntity。
然后遍历模型空间，判断实体的类型。如：
dim pointObj as acadpoint
dim lineobj as acadline
for each entobj in thisdrawing.modelspace
  if entobj.objectname="AcDbPoint" then '代表点对象
    set pointObj=entobj
  else if entobj.objectname="AcDbLine" then '代表直线对象
    set  lineobj =entobj
  end if
next
点、线、面和体对象是通常所说的几何对象的，在AutoCAD中，不是这样划分。自己转化吧，看看形成哪个对象比较合适。

bzjustb

谢谢您！
我要处理的是一组等高线，有上百条呢
我在想如何通过一个小程序给这些等高线分别自动赋给一个特定的变量，动态数组也可以
希望这个小程序有通用性，就是说再打开另外一个等高线ｃａｄ图也可以实现同样的功能
这样我下一步的程序就可以随意调用他们了

大家有什么好的建议吗？

topirol

你想把每条等高线都赋给一个变量吗？！那不是要几百个变量，或者是数组上限吗，
为什么不用循环来各个处理呢？