王小涛_同學的专栏

Option ExplicitPublic acadapp As AcadApplicationPublic Sub 连接autocad()On Error Resume NextSet acadapp = GetObject(, "autocad.applicatior")If Err Then Err.Clear Set acadapp = creatobject(

Dim acadapp As AcadApplication '在窗体代码声明段定义acadappPrivate Sub Command1_Click()acadapp.Documents.Add '创建新的图形文件End SubPrivate Sub Command2_Click()Dim myfilename As StringMe.CommonDialog1.ShowOp