Chương trình ứng dụng VBA Cad & Excel (1 người xem)

[NguyenNgocSon]

Một ứng dụng nhỏ cho ngành công trình để thiết kế
[video=youtube_share;Fr8HdwtoniE]http://youtu.be/Fr8HdwtoniE[/video]

 

[PhanTuHuong]

Công việc vẽ trắc dọc này nhiều phần mềm đã làm rồi, ví dụ như Nova của Hài Hoà. Và đã có anh đã viết vẽ trắc dọc cống chỉ 1 cú pick:

http://www.cadviet.com/forum/index.php?showtopic=61127

 

[viehoai]

Một ứng dụng nhỏ cho ngành công trình để thiết kế
[video=youtube_share;Fr8HdwtoniE]http://youtu.be/Fr8HdwtoniE[/video]

Nếu bạn chia sẽ thì đưa lên mọi người tham khảo, chứ cho thấy đoạn clip như vậy được cái gì mà bạn nói "Hãy nói và nhấn cảm ơn khi bạn thấy chủ đề có ích nhé!"

 

[kicon]

em muốn vẽ 1 hình vuông nhập bên excel và xuất qua autocad mà không biết làm sao, Các anh chị giúp em cú pháp nhé, xin cảm ơn.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[hungpecc1]

em muốn vẽ 1 hình vuông nhập bên excel và xuất qua autocad mà không biết làm sao, Các anh chị giúp em cú pháp nhé, xin cảm ơn.

thử copy code này vào 1 file excel bất kỳ rồi chạy xem kết quả ntn ?

Sub DrawingSquare()
    Dim dL As Double
    Dim objAutocad As object
        dL = Application.InputBox("Nhap chieu dai cua canh hinh vuong", "test", , , , , , 2)
        On Error Resume Next
        Set objAutocad = GetObject(, "Autocad.Application")
        If Err Then
            Err.Clear
            Set objAutocad = CreateObject("Autocad.Application")
        End If
        objAutocad.Documents.Add
        With objAutocad.ActiveDocument
                .SendCommand "_rectang" & vbCr & "0,0" & vbCr & "@" & dL & "," & dL & vbCr
                .Regen acAllViewports
        End With
End Sub