[求助]：CAD2004的VBA怎样分开图层？各位帮帮忙啊!!!!

penchao

我最近在搞一个模具设计小程序。遇到了一个问题。CAD2004的VBA怎样分开图层。如我有图层A,B,C,D,E....,每个图层里面有许多图形。有文字。里面还有块。每个块的里面里面的东西分别存在ABCD..不同的图层上。现在我想把选择的对象里面的A+B图层里面的内容，拷到另外一个地方。如向左边移动1000，原来内容不变。块也不能炸开。选择块里面的对象有在A或B图层也一起拷贝，编程应该样实现。谢谢!!!!*-*i

雪山飞狐(lzh)

for each i in thisdrawing.blocks(blkname)
if i.layer="A" or i.layer="B"
'干你自己的事
end if
next i

penchao

多谢!
不过还是没有说到点子上。可能是我说得不够清楚。