请各位大师指导：
VB如何将EXCEL中指定的几行表格粘贴至CAD文件中指定的红色框框内？
粘贴后的效果见附件。

非常感谢~~~~

你好，我按照您给的思路弄了一下，可以将EXCEL插入到CAD中了，但是该如何对
插入后的EXCEL进行移位和缩放至红色框框内？也就是保证EXCEL边框和红色边框重合。麻烦再给指导下。

非常感谢您的耐心指导，又学到好多新的语法，好多语法在MSDN上都没有的，关于移动和缩放我再查查资料。谢谢。

[ 本帖最后由 xingming022 于 2015-3-15 09:21 编辑 ]

lianyicq您好：
    根据您给的思路，我试了好几天也没有搞定，主要问题是：
   
    (1)ADWG.SendCommand "_pasteclip" & vbCr & CoordString & vbCr  语句将EXCEL粘贴到CAD里面，但是粘贴后的EXCEL坐标与   CoordString   对不上，总是偏一些。   

    (2)粘贴完成后我需要移动和缩放EXCLE，移动和缩放的前提是要先选择上 EXCEL也就是OLE，VB如何选择OLE？VB选择直线和圆圈我搞定了，但是实在是选择不上OLE。


    请版主再多多给予指导，谢谢~

您随便一写就能写出好多我从未见过的代码，非常佩服，有没有这方面的教材推荐下？我最近在网上寻找了好久关于VB和CAD的教程，都未找到合适的。

非常感谢~
13925919930@

版主您好，您提供的提示：AApp.ActiveDocument.ModelSpace(i).EntityName = "AcDbOle2Frame"  还是选择不上EXCLE，也就是OLE啊，还有没有其他的思路了？烦请再多多指导~

非常感谢版主耐心的回复，运行到这里Call AApp.ActiveDocument.ModelSpace(i).Move(AApp.ActiveDocument.ModelSpace(i).InsertionPoint, NewPosition)，提示：“无效的过程调用或参数”。  难道是我调用的函数未定义?还是我机子缺少什么库？

我是定义的单精度的，Dim NewPosition(2) As Single，非要双精度？好神奇啊。谢谢您啊~



[ 本帖最后由 xingming022 于 2015-3-31 15:26 编辑 ]