VB中查询出来的信息，如查出来的几行数据，选中几行，如何插入到指定的一个ＣＡＤ中？
VB中查询出来的信息，如查出来的几行数据，选中几行，如何把选中的几行数据插入到指定的一个ＣＡＤ中？并且对插入位置有具体要求，如插在明细栏的上面位置。请高手帮解答
2017-11-08 21:06
程序代码：
'首先引用 acad 20XX Object Library类型库
Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace
On Error Resume Next
Set myAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是否已经打开
If Err <> 0 Then
Set myAcadApp = CreateObject("Autocad.Application") '没有打开,创建新的CAD
end if
myAcadApp.Visible = True '显示CAD
Set activeDoc = myAcadApp.ActiveDocument '当前文档，否则执行打开文档操作
Dim styobj1 As AcadTextStyle
Set styobj1 = activeDoc.TextStyles.Add("黑体") '设置字体
activeDoc.ActiveTextStyle = styobj1
textstring="插入的文字"
fontheight=10
returnPnt = activeDoc.Utility.GetPoint(, "指定文字插入点: ") '手动指定插入点，否则需要一些代码定位
Dim textobj As AcadText
Set textobj = activeDoc.PaperSpace.AddText(textstring, returnPnt , fontheight)
textobj.Alignment = acAlignmentMiddleCenter
textobj.Update
2017-11-09 09:26