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

nghiautc

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

  • Số lượng nội dung

    111

  • Đã tham gia

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

  • Ngày trúng

    2

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

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

    nếu ko thì bạn thử như thế này nhé: bạn hãy block tất cả phần bị scale lại. xong rồi chọn cái block đó còn 0.25 lần thôi (tức là scale xuốn 1/4) chỉnh sửa xong thì cho nó lên lại 1, xả block ra.

    Mình nghĩ cách này hay nhất, đơn giản lại vẽ đúng tỉ lệ.Khi cần trình bày trong model mình toàn làm theo cách này

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

    Mình nghĩ bất cứ ai nếu thực sự muốn sử dụng CTK hãy đọc từ trang dầu tiên đến cuối cùng.Bới Jin young đã hướng dẫn sử dụng rất kĩ,

    dù bạn không giỏi nhưng nếu cố gắng đọc thì sẽ hiểu không có gì là quá khó .Bản thấn ai cũng có công việc của mình ko thể trả lời cho từng người một được.Những ý mà chủ nhân topic cảm thấy cần thiết và trả lời được đã trả lời cho mọi người rổi.Thân

    • Vote tăng 1

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

    Mình không sử dụng CTK vì không phù hợp lắm công việc của mình,nhưng nó khá hay.Mình bổ sung ý sau:

    - Jin Yong nên đưa thêm 1 buttoncommand vào TKC ở trên form của TKC mục đích là khi Click vào buttoncommand .Nếu chưa lưu file thì sẽ tự động hỏi vị trí lưu

    .Sau đó vẽ lên cad.(tránh dùng thêm lisp và VBA để thuận tiện hơn trong việc sử dụng,không cần load lsp và VBA nữa).

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

    Một câu hỏi rất hay nhưng không có câu trả lời.

    1.Các đối tượng trong bản vẽ có phải Block không?

    Block có trong bản vẽ trên:

    ((-1 . <Entity name: 7e8528f0>) (0 . "ACIDBLOCKREFERENCE") (330 . <Entity name:

    7dbed3a8>) (5 . "E96") (100 . "AcDbEntity") (67 . 1) (410 . "Sheet") (8 .

    "IDW_BlockReferenceLayer") (62 . 7) (100 . "AcDbBlockReference") (2 . "*I42")

    (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0)

    (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

    Block tạo bình thường:

    ((-1 . <Entity name: 7e84f5e0>) (0 . "INSERT") (330 . <Entity name: 7dbed3a8>)

    (5 . "3894") (100 . "AcDbEntity") (67 . 1) (410 . "Sheet") (8 . "BLOCK") (100 .

    "AcDbBlockReference") (2 . "03155199") (10 188.975 541.192 0.0) (41 . 1.0) (42

    . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0

    0.0 1.0))

    Sự khác nhau ở dây là :

    (0 . "ACIDBLOCKREFERENCE")

    (0 . "INSERT")

    >> các đối tượng đây là gì? có phải block không

    2.Làm sao để tạo được các đối tượng có tính chất như trên

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

    các cao thủ mở bản vẽ .font chữ của em bị làm sao đó,các bác chỉ giáo giúp em

    http://www.cadviet.com/upfiles/3/2_cc2__k0720_den_k0919.dwg

    http://www.cadviet.com/upfiles/3/2_cc2__k0720_den_k0919.dwg

    http://www.mediafire.com/?xj1djb800qpb6o3

    Bạn hãy tìm đọc bài của gia_bach trên cadviet.com

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

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

    Thank phamngoctukts học lâu quá không dùng nên ko biết đâu mà lần lại cả.

    Chỉnh lại ti code bạn anhcos.

     

    Sub SLBlock()

    Dim returnObj As AcadBlockReference

    Dim basePnt As Variant

    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"

    MsgBox Dem(returnObj)

    End Sub

    Function Dem(returnObj As AcadBlockReference) As Integer

    Dim block As AcadBlock

    Set block = ThisDrawing.Blocks(returnObj.Name)

    'Duyet qua doi tuong co phai Block ko

    Dim i As Integer

    Dim SoLuong As Integer

    For i = 0 To block.Count - 1

    If block.Item(i).ObjectName = "AcDbBlockReference" Then

    SoLuong = SoLuong + Dem(block.Item(i))

    Else 'Khong phai block

    SoLuong = SoLuong + 1

    End If

    Next i

    Dem = SoLuong

    End Function

×