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

bzjustb · 发表于 2003-12-18 13:50:00

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

efan2000 · 发表于 2003-12-18 13:57:00

很简单啊，定义一个变量，如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中，不是这样划分。自己转化吧，看看形成哪个对象比较合适。