Set acadDoc = acadDoc．New(“acad”)   新建CAD图形
Set acadDoc = acadApp．ActiveDocument   设置为当前图形对象
Set moSpace = acadDoc．ModelSpace
TxtName = File1．Path & “＼” ＆ File1．List(J)   提取数据文件名
Open TxtName For Input As # 1   输入数据
dwgName = Left(File1．Path ＆ “＼”& File1．List(J)，
Len(File1．Path ＆ “＼”＆ File1．List(J)) -4) ＆ “．dwg”
DWG文件保存名


为了把数据导入CAD，不知道这是不是就是完整的语句，求指点

难道大神都不在吗？

这是吧里别的帖子转来的，用来打开打开CAD或者新开cad程序的代码类似这个就是很
正确的
。楼主可以参考。