Chuyển đến nội dung
Diễn đàn CADViet

nguyendan81985

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    28

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi nguyendan81985

  1. Đã đăng · Trả lời báo cáo

    Dùng thuộc tính Height của đối tượng acadMtext ví dụ

    Sub Addmtext()
    Dim mtxt As AcadMText
        With ThisDrawing
            p1 = .Utility.GetPoint()
            Set mtxt = .ModelSpace.Addmtext(p1, 10, "ABC")
            mtxt.Height = 100
        End With
End Sub

     

    thuộc tính height chỉ thay đổi chiều cao text thôi. ko thay đổi font. mình muốn font nó thay đổi thành một font khác, theo cách làm bằng tay thì thay đổi mặc định của CAD, nhưng mình muốn thay đổi bằng phần mềm.

  2. Đã đăng · Trả lời báo cáo

    mình có 1 đoạn code add text như bên dưới. làm thế nào để đổi font của nó nhỉ. vd mình muốn đổi font nó sang Arial.

     

     

     

    Sub AddMtext()

     

    Dim MTextObj As AcadMText

    Dim point(0 To 2) As Double

    Dim width As Double

    Dim text As String

    point(0) = 0#: point(1) = 10#: point(2) = 0#

    width = 10

    text = "ABC"

     

    Set MTextObj = ThisDrawing.ModelSpace.AddMText(point, width, text)

    ZoomAll

     

    End Sub

  4. Đã đăng · Trả lời báo cáo

    hii. sau một thời gian tìm tòi mình cũng đã làm được. ý của mình là khung cho bản vẽ ấy.

    phần chương trình bên dưới mình viết cho excel. add khung vào các bản vẽ tự động

     

     

    Dim pointframe(0 To 2) As Double

    Dim insertBlock As AcadExternalReference

    Dim PathName As String

     

    pointframe(0) = 0: pointframe(1) = 0

    PathName = "d:\Drawing2.dwg"

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

    Set insertBlock = acad.ActiveDocument.ModelSpace.AttachExternalReference(PathName, "XREF_IMAGE", pointframe, 1, 1, 1, 0, False)

  5. Đã đăng · Trả lời báo cáo

    hi mọi người. cho mình hỏi tí.

    trong VBA, làm thế nào để gửi giá trị của một biến từ 1 chương trình chính vào 1 chương trình con để xử lý. chương trình của mình vd như bên dưới

     

    sub test()

    dim i as interger

     

    i= 1

     

    do until (điều kiện....)

     

    xử lý chương trình trong đó có biến i

     

    gọi chương trình con (chương trình con có biến i này)

     

    i=i+1

     

    loop

    end sub.

  8. Đã đăng · Trả lời báo cáo

    cho mình hỏi. làm thế nào để lấy dữ liệu từ Excel để xử lý trong CAD

    mình ví dụ thế này: trong VBA CAD có các textbox là L1, L2, L3

    trong excel có các cột L1, L2, L3 ở các vị trí A1, B1, C1 tương ứng. vậy làm thế nào để CAD là để gán giá trị từ excel cho CAD. 

    chương trình trong CAD có thể đơn giản làm 1 cái msgbox hiển thị giá trị trong cột L1,L2, L3 ....

     

    bạn nào biết chỉ giúp nhé. thanks

  11. Đã đăng · Trả lời báo cáo

    Cái ý tưởng của bạn lớn quá ?

    Mà những cái cơ bản bạn còn chưa nắm vững sao mà viết được?

    Bạn nên tìm hiểu trước về VBA, các đoạn code đơn giản sau đó mới ráp nối được vào chương trình lớn

    Chúc bạn thành công.

    chương trình của mình viết cũng gần xong rồi. và cái dimension cũng đã làm đc. nhưng ko biết chỉnh các thông số của dimension như thê nào. vd như mũi tên, font chữ, cỡ chữ....

    bạn biết thì giúp mình với. thanks

  15. Đã đăng · Trả lời báo cáo

    hi, mình thì mới tập tành VBA trong CAD. các bro chỉ giúp mình thế này nhé: mình muốn vẽ 1 hình tam giác với tọa độ là 1 biến. sau đó hatch cái hình tam giác này.

    hình tam giác này có thể dùng polygon để vẽ (lệnh này mình chưa biết) hoặc dùng line (phần này mình vẽ đc rồi)

     

    bro nào biết chỉ giúp nhé. thanks.

  20. Đã đăng · Trả lời báo cáo

    mình mời học VBA nên chưa rành lắm. cho mình hỏi tí.

    làm sao để lấy dữ liệu từ textbox ra để xử lí. mình đã làm thử 1 chương trình nhưng ko thể nhập đc dữ liệu khi chạy chương trình. ai biết chỉ giúp với nhé.

    mình đã thử VBA trong exel và ko bị gì. nhập dữ liệu vào textbox bt nhưng VBA trong CAD thì ko đc.

×