'我不是專業做開發的,只是覺的VB調用CAD挺好玩的,?希望對妳有幫助!!
Private?Sub?Command1_Click()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
Set?acadDoc?=?AcadApp.ActiveDocument
Set?MoSpace?=?acadDoc.ModelSpace
Set?PaSpace?=?acadDoc.PaperSpace
Set?AcadUtil?=?acadDoc.Utility
AcadApp.Visible?=?True
Dim?p1(2)?As?Double,?p2(2)?As?Double,?p3(2)?As?Double
p1(0)?=?0:?p1(1)?=?0:?p1(2)?=?0
p2(0)?=?4:?p2(1)?=?7:?p2(2)?=?0
Set?lineobj?=?MoSpace.AddLine(p1,?p2)
p1(0)?=?4:?p1(1)?=?7:?p1(2)?=?0
p2(0)?=?18:?p2(1)?=?13:?p2(2)?=?0
Set?lineobj?=?MoSpace.AddLine(p1,?p2)
AcadApp.ZoomExtents?'實際大小縮放
End?Sub