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

帮你开一个头，尽量自己完善

Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
Dim AApp As AcadApplication
Dim ADWG As AcadDocument
Private Sub Form_Load()
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open("c:\test.xlsx")
Set sht = WB.Worksheets("Sheet1")
Set AApp = CreateObject("Autocad.Application")
Set ADWG = AApp.documents.Open("c:\drawing1.dwg")
Range("h7", "m9").Select
Range("h7", "m9").Copy
ADWG.SendCommand "_pasteclip" & vbCr & "0,0" & vbCr
ADWG.Save
Form1.Caption = "OK"
End Sub
Private Sub Form_Unload(Cancel As Integer)
ADWG.Close
Set ADWG = Nothing
Set AApp = Nothing
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

可以实现选择excel文件指定区域并复制到剪贴板，再粘贴到CAD文件指定位置。

非常感谢~~~~

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

那就再帮你进一步，
在CAD创建的框，肯定要有和其它图形区别特征，才能被代码搜索到。比如颜色、线型、线宽等。假设这个框在CAD中由RECTANGLE命令创建，线宽设为1.06mm。
就以1.06mm为特征找到它，找到它后再获得框左下角坐标，将坐标输入到sendcommand命令中。代码调整后如下：

Dim ADWG As AcadDocument
Dim i As Long
Dim parameter As Variant
Dim CoordString As String


Private Sub Form_Load()
Me.Show
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open("c:\test.xls")
Set sht = WB.Worksheets("Sheet1")
Set AApp = CreateObject("Autocad.Application")
Set ADWG = AApp.documents.Open("c:\drawing1.dwg")
Range("h7", "m9").Select
Range("h7", "m9").Copy
For i = 0 To AApp.ActiveDocument.ModelSpace.Count - 1
  If AApp.ActiveDocument.ModelSpace(i).Lineweight = 106 Then
     parameter = AApp.ActiveDocument.ModelSpace(i).Coordinates
     Exit For
  End If
Next
CoordString = parameter(0) & "," & parameter(1)
ADWG.SendCommand "_pasteclip" & vbCr & CoordString & vbCr
ADWG.Save
Form1.Caption = "OK"
End Sub
Private Sub Form_Unload(Cancel As Integer)
ADWG.Close
Set ADWG = Nothing
AApp.Quit
Set AApp = Nothing
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

缩放至同样大小进一步深化。方向都明确了,自己也多查资料。

[ 本帖最后由 lianyicq 于 2015-3-14 14:11 编辑 ]

非常感谢您的耐心指导，又学到好多新的语法，好多语法在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。


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

能选上线和圆就接近了。
试试AApp.ActiveDocument.ModelSpace(i).EntityName = "AcDbOle2Frame"
ACAD中查询OLE对象特征，有一个长宽比锁定特性。
在变形之前先执行：AApp.ActiveDocument.ModelSpace(i).LockAspectRatio = False
假设创建的框的长宽已求得，再分别赋值到AApp.ActiveDocument.ModelSpace(i)的width、height属性
最后再AApp.ActiveDocument.ModelSpace(i).Move(AApp.ActiveDocument.ModelSpace(i).InsertionPoint, NewPosition)

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

邮箱地址?