excelvba编写初始化cad的代码.docVIP

打开EXCEL VBA编辑，工具引用把autoCAD2007(我的是2007)引用钩上点确定。然后就定义一些对象变量来连接CAD了具体的如下：Sub text()? ? Dim acadApp As AcadApplication? ? Dim acaddocs As AcadDocuments? ? Dim acaddoc As AcadDocument? ? On Error Resume Next? ? Set acadApp = GetObject(, AutoCAD.Application)? ? If Err Then? ?? ???Err.Clear? ?? ???Set acadApp = CreateObject(AutoCAD.Application)? ?? ???If Err Then? ?? ?? ?? ?MsgBox Err.Description? ?? ?? ?? ?Exit Sub? ?? ???End If? ? End If? ? ‘上面的意思大概是如果没有创建连接就创建一个连接 _如果有一个连接就获得该连接 （PS:我也刚学VBA不是太清楚，有错误就原谅下，大家一起来学习！哈哈）? ? Set acaddoc = acadApp.ActiveDocument? ?? ? acadApp.Visible = True? ?CAD可见，如没有这句CAD在后台运行，在进程中可以找到? ? acadApp.WindowState = acMax? ?最大化??要在CAD画图的话可以这样：??Dim lineobj As AcadLine? ? Set lineobj = acaddoc.ModelSpace.AddLine(Spoint, Epoint)? ? 这是在模型空间中画一条直线，这跟CAD的VBA有一点不一样。以上可以满足楼主的要求吗？有了上面的连接，其他的就像在CAD中的VBA操作了，只是thisdrawing这里变成了acaddoc了，可以利用acaddocs.open来打开一个CAD文件。 第一种方法：? ? 创建图层??Dim layerObj1 As AcadLayer? ? Dim layerObj2 As AcadLayer? ? Dim layerObj3 As AcadLayer? ? Set layerObj1 = acaddoc.Layers.Add(标注)??创建标注图层 标注为图层名? ? Set layerObj2 = acaddoc.Layers.Add(地面线)??同上? ? Set layerObj3 = acaddoc.Layers.Add(网格线)??同上? ? layerObj1.Color = acRed??设定颜色? ? layerObj2.Color = acBlue??? ? layerObj3.Color = acGreen? ? layerObj1.Lineweight = acLnWt000??设定线宽了? ? layerObj2.Lineweight = acLnWt005? ? layerObj3.Lineweight = acLnWt009? ? 假设你画了一条直线，用楼上的方法是要定义一个叫lineobj(举个例子)变量，这样只要lineobj直线指定到不同的图层，如：??lineobj.layer=标注 ? ? 这时这条线就有了图层上的所有属性了。??第二种方法就不要创建图层了（看个人爱好了）直接用：??lineobj.Lineweight =acLnWt005? ? 个人推荐第一种方法，这样方便管理和修改，如果仅仅指定一两条线就有第二种吧！不知楼主想编一个什么程序，可以说说你的想法。这样可以提供比较好的建议。呵呵我也才学CAD，如有错误还请指出啊！