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

soledas

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

  • Số lượng nội dung

    15

  • Đã tham gia

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

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

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

    Vào lúc 11/10/2022 tại 22:53, doantrinh86 đã nói:

    Sub CountCircle()
       Dim objSS As AcadSelectionSet
       Dim objCircle() As AcadCircle
       Dim intCode(0) As Integer
       Dim varCode(0) As Variant
       
       intCode(0) = 0: varCode(0) = "CIRCLE"
       On Error GoTo ESCPress
       Set objSS = ThisDrawing.SelectionSets.Add(Now)
       
       objSS.SelectOnScreen intCode, varCode
       If objSS.Count = 0 Then
            MsgBox "No have circle on the drawing"
            objSS.Delete: End
        Else
            Dim strTextRadius As AcadText
            Dim i As Integer
            ReDim objCircle(objSS.Count - 1)
            For i = 0 To objSS.Count - 1
                Set objCircle(i) = objSS.Item(i)
                ThisDrawing.ModelSpace.AddText Round(objCircle(i).radius, 3), objCircle(i).Center, 2
            Next
            MsgBox "Have" & objSS.Count & " circle on the drawing "
       End If

       objSS.Delete
    ESCPress:
       Err.Clear
    End Sub

    Cảm ơn bạn nhé!

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

    Mình có file excel xuăt từ sap2000 ra có các thanh đối xứng nhau qua trục z, x,y, mình muốn viếtt code lọc các thanh có có cùng có cùng tính chất giống nhau đối xứng qua các trục x,y, z vào 1 nhóm để tiện quản lý các thanh trong sap2000. nhờ các pro giúp với, file dính kèm là 1 file dữ liệu xuất từ sap2000 ra, và 1 file yêu cầu về nhóm các thanh có số thứ tự và toạ độ đối xứng được xếp vào 1 nhómhttp://www.cadviet.com/upfiles/4/61095_yeu_cau_code_3.rar

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

    Mình nhờ các bạn pro vba giúp mình viết đoạn code giúp mình với

    Mình có file excel xuăt từ sap2000 ra có các thanh đối xứng nhau qua trục z, x,y, mình muốn viếtt code lọc các thanh có có cùng có cùng tính chất giống nhau đối xứng qua các trục x,y, z vào 1 nhóm để tiện quản lý các thanh trong sap2000. nhờ các pro giúp với, file dính kèm là 1 file dữ liệu xuất từ sap2000 ra, và 1 file yêu cầu về nhóm các thanh có số thứ tự và toạ độ đối xứng được xếp vào 1 nhóm.http://www.cadviet.com/upfiles/4/61095_yeu_cau_code_2.rar

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

    Mình có 1 file excel xuất từ sap200 ra gồm có tọa độ các điểm và text .Bạn nào giúp mình tạo ra file excel có khả năng vẽ ra các đuờng line và điền text ( text là thứ tự các thanh trong sap2000)vào autocad. cám ơn các bạn đã đọc.http://www.cadviet.com/upfiles/3/61095_toa_do_diem_va_text_sap2000.rar

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

    Mình có bản vẽ có nhiều layout  từ 1 đến 5 vì tính chất bản vẽ của mình phải tạo nhiều layout lên mới mất công đánh tên như dưới

    tên bản vẽ lần lượt là  D255-CT-01-01.....D255-CT-01-05

    mình muốn có lisp tự động đánh tên các bản vẽ trên các layout có sẵn text tại vị trí của ô tên bản vẽ và lisp thay đổi được tất cả các kí tự trong tên bản vẽ trên mong các pro giúp đỡ.

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

    Mình có bản vẽ như sau "theo link" mình muốn lạp trình nó để tự động hóa cho nhanh vì bản vẽ mình chỉ cần thay đổi các thông số là có thể tọa ra 1 bản vẽ mới, mình mong cá pro hay các bạn nào có ý tưởng lạp giúp mình hay hướng đi như thế nào cho bản vẽ của mình được automatic nhanh nhất. thank các bạn đã đọc.http://www.cadviet.com/upfiles/3/61095_b7843n_ve_mong.dwg

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

    ví dụ tôi có một bản vẽ gồm 100 đương tròn, tôi hatch đồng thời 100 đường tròn đó với cùng 1 loại chất liệu, làm sao tôi có thể xoá đi một đường tròn(cả hatch trong đường tròn đó"mà không ảnh hưởng hatch chỗ khác") để chỉ còn 99 đường tròn khác mà không phải hatch lại. mong mọi người giúp đỡ. tôi đang gấp quá..

    bôi đen đường tròn và hatch cần xóa rồi ấn delete

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

    khi đặt lệnh in bản vẽ mình chọn khổ giấy A1 chọn song ấn apply to layuot song ấn cancel lúc này trên layuot khổ giấy là A1 có kích thước 594x841mm nhưng mà mình đo chiều dài của giấy chỉ có 30x8mm !!!! là thế nào hả anh em chỉ giúp với .Bản vẽ theo tỉ lệ 1:1 trong model giờ ko bít làm sao để in được đây pro chỉ dùm em

×