Em đang làm một chương trình Visual Basic vẽ tàu em muốn liên kết nó với Autocad nhưng mà không biết làm thế nào. Vì VisualBasic chỉ kết nối được với bộ Office mà không kết nối được với Autocad. Em thấy trên diễn đàn có phần mềm liên kết Excel với Autocad rât hay. Các bác có thể nói rõ hơn về phần mềm này được không và có thể kết nối Visual Basic với autocad không ?Thanks !

Đồng chí muốn viết phần mềm chạy độc lập hay là một dạng plugin/add-in cho Autocad?
Autocad có tích hợp sẵn VBA giống như bộ MS Office. Vậy nên bạn hoàn toàn có thẻ sử dụng VBA trong Autocad như VBA trong MS Office.

Nếu đồng chí muốn một phần mềm chạy độc lập viết bằng VB và có thể sử dụng các API của Autocad thì xem thêm tại đây: http://www.contractcaddgroup.com/download/

Chào! để viết phần mềm như bạn thì bạn hãy tận dụng VBA có trong bộ Autocad là hay nhất. Trước đây mình cũng đã lập trình về vấn đề này rồi. tất cả dữ liệu tính toán đều thực hiện trên VB sau đó kết quả xuất file dạng đồ thị hay đường hình tàu thì bạn kết nối với Autocad bằng VBA và kết quả thật thú vị. Để làm được điều này bạn nên cài bộ thư viện của VB vào trước sau đó tham khảo các ví dụ về tạo một đối tượng trên Autocad, tất cả đều có sẳn trong thư viện này bạn chỉ cần copy chỉnh sửa một tí là có thể hoàn thành được.
Mình lấy một ví dụ nhỏ là vẽ đường thẳng, ghi text và vẽ đường spline từ VB kết hợp xuất sang Autocad:

On Error Resume Next

' ket noi voi Autocad
Dim acadApp As AcadApplication
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

' Tao ban ve Cad
Dim acadDoc As AcadDocument

Set acadDoc = acadApp.ActiveDocument


' Tao khung ban ve

Dim diem1 As AcadLine
Dim diem2 As AcadLine
Dim diem3 As AcadLine
Dim startP1(0 To 2) As Double
Dim startP2(0 To 2) As Double
startP1(0) = 297
startP1(1) = 410
startP1(2) = 0
startP2(0) = 0
startP2(1) = 410
startP2(2) = 0

' Ve duong thang

Set lineObj = acadDoc.ModelSpace.AddLine(startPoint, endPoint)
Set diem1 = acadDoc.ModelSpace.AddLine(endPoint, startP1)
Set diem2 = acadDoc.ModelSpace.AddLine(startP1, startP2)
Set diem3 = acadDoc.ModelSpace.AddLine(startPoint, startP2)
' Set corlor for line

lineObj.Color = acRed
diem1.Color = acRed
diem2.Color = acRed
diem3.Color = acRed

'ket thuc tao khung ban ve


' Ghi chu trong ban ve CAD

Dim MTextObj As AcadMText
Dim corner(0 To 2) As Double
Dim width As Double
Dim hight As Double
Dim text As String
corner(0) = 100
corner(1) = 380
corner(2) = 0
width = 300

text = "DO THI ON DINH TRUONG HOP 1"

' Creates the mtext Object

Set MTextObj = acadDoc.ModelSpace.AddMText(corner, width, text)


' Tao duong spline di qua cac diem

Dim splineObj As AcadSpline
Dim noOfPoints As Integer
Dim startTan(0 To 2) As Double
Dim endTan(0 To 2) As Double
Dim fitPoints(0 To 11) As Double

noOfPoints = 4
startTan(0) = 0.5
startTan(1) = 0.5
startTan(2) = 0

endTan(0) = 0.5
endTan(1) = 0.5
endTan(2) = 0

fitPoints(0) = 1
fitPoints(1) = 1
fitPoints(2) = 0
fitPoints(3) = 5
fitPoints(4) = 5
fitPoints(5) = 0
fitPoints(6) = 10
fitPoints(7) = 0
fitPoints(8) = 0
fitPoints(9) = 20
fitPoints(10) = 20
fitPoints(11) = 0
Set splineObj = acadDoc.ModelSpace.AddSpline(fitPoints, startTan, endTan)

splineObj.Color = acRed


ZoomAll
AutoCAD.Visible = True

End Sub

Bạn có thể down tài liệu này về đọc thêm

http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=7871&d=1203581599

http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=7872&d=1203581599

http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=7873&d=1203581599

anh panda cho em hỏi một tí nghe. đoạn code vừa rồi có phải anh viết trong chương trình để vẽ đường hình tàu cao tốc theo tàu mẫu không vậy?
Anh panda có phải là anh Thạch ko vậy?