yang686526

用vb 和 vb.net 进行cad二次开发有什么区别？
www.dimcax.com
用vb 和 vb.net 进行cad二次开发有什么区别？
用vb 和 vb.net 进行cad二次开发有什么区别？
public sub newdwg()
dim acaddoc as autodesk.autocad.interop.acaddocument '连接cad文档
dim acadapp as autodesk.autocad.interop.acadapplication '连接cad环境
' 连接至 autocad 应用程序
try
' 可能导致异常的代码
acadapp = getobject(, "autocad.application.17")
catch
' 当异常发生时处理异常的代码
err.clear()
try
acadapp = createobject("autocad.application.17")
catch
msgbox(err.description)
exit sub
end try
finally
' 清理现场
end try
' 连接至 autocad 图形
acaddoc = acadapp.activedocument
acadapp.visible = true
'==========================================================
'新建dwg文件
try
acaddoc = acadapp.application.documents.add
acaddoc.saveas("f:\houlinbo.dwg")
'acaddoc.close()
'acaddoc.application.documents.open("f:\houlinbo.dwg", false)
catch
end try
end sub