|
#2
xiangyue05102017-11-09 09:26
你这个问题就是如何控制CAD的事情，这个网上有不少的例子可以参考。下面给你一段代码自己研究和完善
 程序代码：'首先引用 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 |
VB中查询出来的信息，如查出来的几行数据，选中几行，如何把选中的几行数据插入到指定的一个ＣＡＤ中？并且对插入位置有具体要求，如插在明细栏的上面位置。请高手帮解答