[VBA程序]：利用Excel的VBA控制AutoCAD

feye

本人刚开始研究ACAD,发现从Excel中控制CAD有很多好处

希望大家共同来发表和学习

先从最初开始吧
通往AutoCAD的接口
Public Sub acadInit()
    'ACAD2007的编程接口
    Dim cap As String, caver As String
    cap = "AutoCAD.Application"
    caver = cadVer() '通过读取注册表获得当前安装的AutoCAD版本号
    If caver = "R17.0" Then
        cap = cap + ".17"
    End If
    On Error Resume Next
    Set acadApp = GetObject(, cap)
    If Err Then
        Err.Clear
        Set acadApp = CreateObject(cap)
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
    Set acadDoc = acadApp.ActiveDocument
End Sub

book163

很好的入门知识

smxy7376

学习了。