엑셀의 b1,b2,b3 부분이 시작점이 되고 

d1,d2,d3 부분이 끝점이 되는 선을 그어보자.... 

Public excel As Object 
Public acad As Object 
Sub seo() 
Dim excel As Object 
Dim acad As Object 
Dim te As AcadLine 
Dim sp(2) As Double 
Dim ep(2) As Double 

Set excel = GetObject(, "excel.application") 
Set acad = GetObject(, "autocad.application") 

sp(0) = excel.activesheet.range("b1") 
sp(1) = excel.activesheet.range("b2") 
sp(2) = excel.activesheet.range("b3") 

ep(0) = excel.activesheet.range("d1") 
ep(1) = excel.activesheet.range("d2") 
ep(2) = excel.activesheet.range("d3") 

Set te = acad.ActiveDocument.ModelSpace.AddLine(sp, ep) 
te.Update 

End Sub 

이 소스를 실행시키면....엑셀에 있는 수치에따라 

캐드상에 선이 그려진다....