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

Nguyen Hoanh

Moderator
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    4246

  • Đã tham gia

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

  • Ngày trúng

    260

Bài đăng được đăng bởi Nguyen Hoanh

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

    6 giờ trước, khimatro đã nói:

     mình sửa từ lisp này muốn các layer có độ dày nét nhưng không mò ra được, các bạn sửa giúp mình nhé.

     

    Bạn nên dùng phiên bản dòng lệnh của lệnh Layer là -LAYER để AutoLISP chạy ổn định.

    Trong -LAYER, tuỳ chọn bề dày nét là LWeight (thường gõ tắt LW). Trình tự nhập là

    chọn LW

    nhập giá trị lineweight

    chỉ định layer áp dụng

    kết thúc bằng chuỗi rỗng ""

    Ví dụ tạo layer, đặt màu, rồi đặt bề dày nét 0.50 mm cho chính layer đó

    (command "-layer" "m" "01-BigDesign-CAT BE TONG1" "c" "2" "" "lw" "0.50" "01-BigDesign-CAT BE TONG" "")

     

    Tuy nhiên cách dùng lisp để tạo layer không phải là một cách làm chuẩn, bạn nên tạo layer, block, style,... rồi lưu vào một file .dwt ví dụ mystandard.dwt rồi lưu lại, mỗi lần new file thì chọn file template đó từ hộp thoại new file.

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

    12 giờ trước, kieutrang đã nói:

    Em xin được lisp tạo Font chữ nhưng chỉ dùng được trên Window 7, em chạy cad trên Window 11 (kể cả chạy Administrator) mà vẫn không được. Em nhờ các bác sửa giúp em với ạ. Em cảm ơn. 

    
(defun c:CDF()
(command "style" "Chuso_TK" ".Vnarial" "" "" "" "" "" "" "")
(command "style" "Hoa" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "TENCOC" ".VnarialH" "" "" "" "" "" "" "")
(command "style" "TIEUDE" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "Text1" ".VnHelvetlnsH" "" "" "" "" "" "" "")
(command "style" "TextBia" ".VnArialH" "" "" "" "" "" "" "")
(command "style" "SIMPLI" ".Vnarial NarrowH" "" "" "" "" "" "" "")
(command "style" "Textcaodomia" ".Vnarial" "" "" "" "" "" "" "")
(command "style" "CDTIM" ".Vnarial" "" "" "" "" "" "" "")
(command "-style" "Cotthep" "Vnsimli.shx" "" "" "" "" "" "" "")
(command "style" "KT" "Arial" "" "" "" "" "" "" "")
(command "style" "Chuso" ".Vnarial" "" "" "" "" "" "" "")
  (princ)
)

     

    CDF.lsp

    Windows 11 của bạn chưa được cài font tcvn3.

     

    Bạn hãy cài font tcvn3 cho windows của bạn là được. Search google nếu bạn chưa biết cách cài.

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

    20 phút trước, Trần Đức Huy đã nói:

    Mình có dùng autocad 2024 trên con mac, đang dùng mở file DGN ngon lành thì mấy hôm nay nhập lệnh DGNIMPORT thì lại báo "unknown command DGNIMPORT" anh chị em nào biết chỉ mình với ạ, cảm ơn!

    Bạn thử dùng lệnh .DGNIMPORT (Thêm dấu chấm ở đầu) xem có được không?

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

    2 giờ trước, Trojan đã nói:

    Chào các bác. Chúng tôi hay nhận được 1 mặt bằng có các loại dầm và giao giữa các dầm có thể là đài cọc hoặc cột chiếm chỗ. Có cách nào làm lisp để tự động vẽ lại đường pline theo chiều dài dầm có trừ cột hoặc đài cọc chiếm chỗ. Mục đích là sau khi vẽ lại pline này thì có thể xuất ra lấy thông tin chiều dài dầm để tính bê tông, ván khuôn cho dầm. Bác nào có thể viết lisp này xin cho giá tôi sẽ trả phí.

    Chân thành cảm ơn.

    Bạn gửi file mẫu lên mọi người xem

    • Like 1

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

    28 phút trước, VoTuanKiet đã nói:

    Chào tất cả các anh chị ở cộng đồng, hiện em có đang sử dụng 1 lisp đánh stt bản vẽ tự động (lệnh STT1, em có gửi kèm đường link tải), và bên cty em mới cập nhật khung tên mới (em có gửi kèm file khung tên)

    Hiện khung tên mới không sử dụng được lisp này nữa, và em thấy là trong khung có sử dụng Visibility 3 loại khung tên cty dùng (3 trong 1), và ATT của tên bản vẽ dạng multiple lines, ATT số thứ tự bản vẽ vẫn như cũ. Em xin hỏi các anh chị là em không biết là do đâu mà lisp không chạy được ạ. Em muốn sửa lisp này là không được do nó dạng .vlx

    Nên sau cùng em muốn hỏi xin các anh chị lisp mới để thay thế (đánh STT có tiền tố, hậu tố, được phép chọn trái-phải hay trên -dưới)

    Cảm ơn các anh chị trong cộng đồng ạ!

    https://drive.google.com/drive/folders/11foOuFmw30BoWMbxjLrtJ7zoPMhPRMlo?usp=sharing

    khung ten ss.dwg

    File VLX là file không thể đọc được mã nguồn, vì vậy sẽ không biết được nguyên nhân.

    Khi mình kiểm tra, mình thấy rằng hai khung tên này không tương đồng nhau, ở chỗ khung tên 'bình thường' (gọi là khung tên A) thì Attribute ký hiệu có tag là '0' trong khi khung tên 'lỗi lisp' (khung tên B) thì có tag là 'STTKT'.

    Bạn thử làm thế này xem:
    - Dùng lệnh BEDIT, chọn khung tên B

    - Sửa tag STTKT thành 0 bằng cách doubclick vào chữ STTKT rồi điền số 0 thay thế

    - Close Block Editor, chọn save.

    - Insert các khung tên mới (nhớ là insert, không dùng sẵn các khung tên đã có)
    - Dùng lisp STT1

     

     

    Nếu bạn muốn sử dụng cho các khung tên đã chèn ra, sau khi Edit block bạn dùng lệnh BATTMAN để xử lý (google để biết chi tiết).

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

    1 giờ trước, Xuân Lộc đã nói:

    Em có 2 cái lisp của bác LEEMAC thống kê block và thống kê text nhưng khi thống kê ra nó tạo cái bảng table bé xíu không à, em mong muốn có anh chị cô chú nào sửa giúp em nó có hỗ trợ chọn chiều cao text trước khi xuất bảng. Em xin gửi 2 lisp ở dưới ạ.

    TKText.lsp

    TKBlock.lsp

    Lisp của LEEMAC insert dữ liệu vào đối tượng dạng bảng của AutoCAD. Muốn sửa cho kích thước bảng to ra, bạn dùng lệnh TableStyle, để sửa kích thước chiều cao chữ.
    Sau đó mới dùng lệnh thống kê.

    • Vote tăng 1

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

    6 giờ trước, VoTuanKiet đã nói:

    Em chào các anh chị trên cộng đồng, em hiện có 1 lisp như file và cần chỉnh chiều cao chữ trong lệnh QS (tính tổng các text số). Mong các anh chị hỗ trợ sửa lisp để khi sử dụng có thêm phần nhập chiều cao chữ trước khi xuất kết quả ra ạ (có thể mặc định cỡ chữ là 220 nhưng cũng có thể thay đổi được).

    CS, CT, NS.lsp

    - Bạn dùng lệnh DTEXT,

    - rồi viết một TEXT theo chiều cao mà bạn mong muốn, sau đó xóa text tạm này đi.

    - dùng lại lệnh QS là sẽ có chiều cao theo lệnh TEXT trước đó của bạn.

    • Like 1

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

    Được bạn nhé.

     

    Thông tin từ trang web autodesk:

    Yêu cầu hệ thống cho AutoCAD 2024 bao gồm Specialized Toolsets (Windows)

    Hệ điều hành Microsoft® Windows® 11 và Windows 10 phiên bản 1809 trở lên 64-bit. Xem Vòng đời hỗ trợ sản phẩm của Autodesk để biết thông tin hỗ trợ.

    Bộ xử lý Cơ bản : Bộ xử lý 2,5–2,9 GHz (cơ bản) Bộ xử lý ARM không được hỗ trợ.

    Khuyến nghị : Bộ xử lý 3+ GHz (cơ bản), 4+ GHz (turbo)

    RAM Cơ bản : 8 GB

    Khuyến nghị : 32 GB

    Độ phân giải màn hình Màn hình thông thường:

    1920 x 1080 với

    Độ phân giải cao True Color & Màn hình 4K:

    Độ phân giải lên đến 3840 x 2160 (với card màn hình "Được khuyến nghị")

    Card màn hình 

    Cơ bản : GPU 2 GB với Băng thông 29 GB/giây và tương thích DirectX 11

    Khuyến nghị : GPU 8 GB với Băng thông 106 GB/giây và tương thích DirectX 12

     

    DirectX 12 với Mức tính năng 12_0 là bắt buộc đối với các kiểu hình ảnh Shaded (Nhanh) và Shaded with edges (Nhanh). Hãy đảm bảo sử dụng trình điều khiển mới nhất của nhà sản xuất card màn hình từ trang web của họ.

     

    Lưu ý : AutoCAD sử dụng card màn hình của máy tính của bạn cho nhiều hoạt động đồ họa thiết yếu bao gồm nhưng không giới hạn ở thao tác xem, làm mịn đường và tạo kiểu văn bản/đường kẻ. Bạn nên có card màn hình có VRAM chuyên dụng để hỗ trợ các hoạt động này ở tốc độ tối ưu.

     

    Dung lượng đĩa 10,0 GB (khuyến nghị SSD)

    Mạng Xem Autodesk Network License Manager cho Windows

    Thiết bị trỏ Tương thích với MS-Mouse

    .Nền tảng NET .NET Framework phiên bản 4.8 trở lên

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

    Bạn thử dùng đoạn code này: 

    
(defun c:ChangeTextCoords (/ points texts nPoints nTexts)

  (setq points (ssget "_X" '((0 . "POINT")))) ; Chọn các đối tượng POINT

  (setq texts (ssget "_X" '((0 . "TEXT")))) ; Chọn các đối tượng TEXT

  

  (setq nPoints (sslength points)) ; Số lượng POINT

  (setq nTexts (sslength texts)) ; Số lượng TEXT

 

  (if (/= nPoints nTexts)

    (progn

      (prompt "\nDoi tuong POINT va TEXT khong bang nhau.")

      (exit)

    )

  )

 

  (defun find-nearest-point (text)

    (setq min-dist nil)

    (setq nearest-point nil)

    (foreach point (vl-remove-if 'null (mapcar 'cdr (ssnamex points)))

      (setq dist (distance (cdr (assoc 10 (entget point))) (cdr (assoc 10 (entget text)))))

      (if (or (null min-dist) (< dist min-dist))

        (progn

          (setq min-dist dist)

          (setq nearest-point point)

        )

      )

    )

    nearest-point

  )

 

  (foreach text (vl-remove-if 'null (mapcar 'cdr (ssnamex texts)))

    (setq nearest-point (find-nearest-point text))

    (if nearest-point

      (progn

        (setq point-coord (cdr (assoc 10 (entget nearest-point))))

        (entmod (subst (cons 10 point-coord) (assoc 10 (entget text)) (entget text)))

      )

    )

  )

  (princ)

)

 

(defun c:chgtxtpt ()

  (c:ChangeTextCoords)

)

(princ "\nSu dung lenh 'chgtxtpt' de chay chuong trinh.")

(princ)

     

    • Vote tăng 1

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

    Vào lúc 18/11/2023 tại 17:20, monavamonava đã nói:

    Chào các bác. Em in bản vẽ trên autocad 2024 mà tốc độ chậm ( khoảng 30-40s/trang a3) so với bình thường (~1-2S) sử dụng các phiên bản 201x. Có bác nào gặp trường hợp tương tự như vậy không ạ?
    -> Mong nhận được sự trợ giúp hỗ trợ của các bác để em cải thiện tốc độ in được không ạ...

    image.png

     

    Bạn thử reset AutoCAD to default xem sao?

     

    Windows 11: Start > All Apps > AutoCAD 20xx > Reset Settings To Default

    Windows 10: Start > AutoCAD 20xx > Reset Settings To Default

     

    image.png

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

    21 giờ trước, ldnamxddd đã nói:

    Chã là em có tìm trong diễn đàn Lisp chọn các thuộc tính giống nhau của block thuộc tính của bác Doãn Văn Hà.

    Tuy nhiên, trên bản vẽ của công trình em thì Block người ta làm vừa là dynamic block, vừa là attribute block. Nên chạy lisp ( trong máy em) không thực hiện được. 

    Mong các bác giúp em cải tiến với ạ. 

     

    Bạn nên post vào bài có lisp đó, và up file dwg mà bạn đang muốn dùng, thì mọi người mới dễ dàng giúp bạn được.

    • Like 1

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

    Chưa hiểu bạn muốn gì.

    Có phải bạn muốn nói: bạn đã dùng lisp trên diễn đàn nhưng chưa đúng ý,  và muốn sửa?

     

    Nếu vậy thì:

    1- Bạn đã dùng lisp nào, bạn có thể upload lại file lsp, hoặc đường link đến bài viết có lisp đó.

    2- Bạn không ưng lisp đó ở điểm nào, bạn muốn sửa lại như thế nào?

×