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

vietduc147258

Thành viên
  • Số lượng nội dung

    196
  • Đã tham gia

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

  • Ngày trúng

    20

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


  1. Theo suy đoán thì khả năng cao lỗi là do Driver máy in. Máy htiện dùng Driver for Universal Print chứ không phải Drive chuyên cho loại máy in đó.

    Để tìm chính xác lỗi thì hãy in thử bằng máy in khác, máy in ảo PDF. Nếu dùng PDF Factory thì phải tích vào chữ Embed all Fonts.

    Tìm trong thiết lập máy in chỗ nào có Capture fonts hoặc Embed fonts thì chọn vào đó.

    Nếu in thử máy khác mà vẫn lỗi thì lúc đó xem lại Autocad, hoặc thử đổi fonts chữ khác


  2. 4 giờ trước, Nguyễn Phương Quang đã nói:

    Bác dùng Lisp này thử xem!

    ;;;******************TU DONG CHUYEN LAYER THEO NET VE CAN DUNG********************
    (vl-load-com)
    (defun StartCommand (CALL CALLBACK / COMLAYLST)
    (setq COMLAYLST (list
    (list "DIMANGULAR" "DIM STYLE")
    ,.........
    (defun C:LAYER_ON ()
    (C:LAYER_ON)
    (defun C:LAYER_OFF ()
     

    Hiện tại đang dùng lisp của lee mac thấy cũng ổn. Với lên cad 2018 cũng hỗ trợ set layer khi dim, hatch, center... Rồi.

    Rất cám ơn bạn đã quan tâm. Có thêm lisp để tham khảo.

    • Like 1

  3. Vào lúc 2/6/2023 tại 16:54, duy782006 đã nói:

    Mình chọn giải pháp cứ vẽ bình thường. Xong bản vẽ trước khi xuất làm cái lisp gán layer cho các loại đối tượng. Ví dụ dim thì như sau:

    
    (defun c:cld ()
    
    (setq chondim (ssget "X" (list (cons 0 "DIMENSION")) ))
    
    (cond
    ((/= chondim nil) (command "change"  chondim "" "p" "la" "kthuoc-9" "") )
    )
    
    (princ))

    Các loại đối tượng khác cũng vậy thích thì thêm vào như hatch, text, ...

    Lúc trước cũng hay dùng cách này. Làm xong rồi gõ 1 lệnh thế là đối tượng nào về layer đó. Rất gọn nhẹ, dễ dùng.

    Nhưng cách này có nhược điểm là màu, nét lúc vẽ nhìn không quen mắt. Cái nữa là nếu mình làm việc trên bản vẽ của người khác, không có layer tương ứng cho từng đới tượng thì nó sẽ báo lỗi.


  4. Vào lúc 3/4/2023 tại 13:25, doductiep đã nói:

    + Lấy toàn bộ block trong file DCBLOCK từ đường dẫn C:/AUTOLISP/

    (command ".-insert" "C:/AUTOLISP/DCBLOCK.DWG" (list 0 0) "1" "1" "0")

    + Chú ý đơn vị giữa file gốc và file hiện hành đồng bộ để đảm bảo khi chèn kích thước block như bình mong muốn, thay đổi đơn cho bản vẽ bằng lệnh:

    (setvar "insunits" 0)

    Các số tương ứng đơn vị: 

    0 - Unilless

    4 - mm

    6 - mét

    .......... bạn tìm hiểu thêm

    hoặc thay đổi tỷ lệ block trực tiếp khi chèn thì tùy b

    Còn chèn từng cái thì m không biết nha ^^

    Thấy trên diễn đàn nước ngoài họ dùng cách này.

    Đầu tiên là Insert cả file vào như bạn nói.

    sau đó lại (Command "._erase" "l" "") để xoá cái vừa chèn vào

    Khi đó trong file của mình chưa PU thì vẫn chứa các block của DCBLOCK.DWG

    Mình chỉ cần lệnh Insert bình thường thôi.

    Nếu file DCBLOCK.DWG mà nặng, nhiều block thì sẽ rác cho file gốc.

    Kết thúc là Purge những block thừa đi. Lisp này lâu hay nhanh là ở khâu cuối này. File càng nhiều block thì lisp chạy càng lâu.

    • Like 1

  5. Có những chi tiết hay đối tượng nằm quá xa nhau nên mới bị vậy.

    Zoom extend lại lần nữa, nhất Ctrl+A xem các đốm, chấm xuất hiện nhiều ở vùng nào thì zoom đến đó.

    Hoặc zoom đến vùng đốm chấm ít xoá nó đi, Zoom extend lại lần nữa.

    Cảnh báo: ctrl + A có thể gây treo máy

    Không có file gửi lên thì đoán mò vậy thôi

    • Vote tăng 1

  6. Xin lỗi bạn. Vì đã bỏ bảng mã này lâu nên có sự nhầm lẫn.

    Không cần phải phức tạp như đã hướng dẫn từ trước. Bạn cứ gõ từ tìm kiếm và thay thế bình thường thôi.

    Như chữ

    CHỐNG NÓNG BẰNG GẠCH 6 LỖ khi bạn gõ vào ô tìm kiếm hoặc ô thay thế nó sẽ hiện như sau:

    CHOÁNG NOÙNG BAÈNG GAÏCH 6 LOÃ --> Nếu là bảng mã VNI

    CHèNG NãNG B»NG G¹CH 6 Lç   ---> Nếu là bảng mã .TCVN3

    Nói chung chọn đúng bảng mã khi tìm kiếm thay thế là được

    • Like 1

  7. Ghét nhất cái vụ tìm kiếm này của các bảng mã không thuộc Unicode. Lỗi này sảy ra ở cả Word, excel hay bất cứ phần mềm nào.

    Cách khắc phục là bạn phải viết nội dung chữ cần tìm kiếm ra cad rồi copy nội dung nó trong Ctrl 1, dán chữ đó vào hộp thoại Find.

    Làm tương tự với nội dung cần thay thế.

    Mẹo: cứ gõ bình thường vào ô tìm kiếm, copy> Convert Clipboard (chức năng của unikey). Rồi paste ngược trở lại. Nguồn là Unicode, đích là bảng mã trùng với bảng mã của text

    P/S: Chia sẻ của người cực gét bảng mã .vni vào vni windows

    • Like 1

  8. Cách đơn giản hơn để thể hiện là mình che luôn đi. Chứ thể hiện bản vẽ theo kiểu nét đứt mà vẫn là 1 block thì chỉ có tạo block động thôi. Nhưng vị trí bị khuất phải cố định.

    Bạn tạo Wipeout cho block kết vợi với lệnh Drawoder che luôn đi là xong. Muốn che vị trí nào cũng được.

    PS: Nếu vị trí bị che là cố định có thể dùng thủ thuật By Block để làm442427367_AutoCADMechanical2016-Drawing4(1)_dwg.jpg.72592d809de27e2148ca5cdd2067d29b.jpg

     

    Drawing4 (1).dwg

    • Like 1

  9. Mình có sưu tập được lisp lọc để chọn đối tượng block cùng tên rất tiện dụng. Nhưng không lọc được các block động (Dynamic Block). Đã thử  QSELECT và FILTER nhưng cũng thất bại.

    Mong các bác giúp em sửa lisp lọc này.

    (defun c:fb ( / blockname sset); filter all blocks of same name
     (setq blockname (cdr (assoc 2 (entget (car (entsel))))))
     (setq sset (ssget (list (cons 2 blockname))))
     (sssetfirst sset sset)
     (princ (strcat "\nSelected " (itoa (sslength sset)) " instances of block \"" blockname "\"."))
     (princ)
    )

    P/S: Có lisp SelDB.vlx làm được việc này nhưng khi load lisp nó mở lên trang web cộng với chức năng tìm kiếm chuyên sâu hơn. Nên lisp dùng hơi nhiều thao tác. https://www.cadstudio.cz/dl/SelDB.vlx


  10. 2 giờ trước, dtdz19861 đã nói:

    Chỉ cách mình in với, công ty mình toàn in ra 1 bộ rồi photo thôi.

     

    Tác giả viết đã hướng dẫn chi tiết rồi. Bạn nên tự mò trong Options. Cứ thử bằng máy in PDF ý, không tốn giấy. Còn không được nữa thì in pdf rồi lại in file pdf đó ra giấy. Trong khi bất kì phần mềm nào cũng có lựa chọn in nhiều bản


  11. 21 giờ trước, nh0cxip0 đã nói:

    Cái này mình dùng lệnh:
    - TEXTLAYER: gán layer "text" sau này khi tạo text mới (dtext. mtext) sẽ tự động gán sang layer "text"
    - DIMLAYER" gán layer "dim" sau này dim (tất cả các lệnh dim) sẽ tự động gán sang layer "dim"

    Có xem Thân Lê lện DIMLAYER. Nhưng thử không có tác dụng. Mình đang dùng 2016, không thấy có lệnh TEXTLAYER. Lệnh DIMLAYER có thiết lập nhưng không thấy hoạt động


  12. 1 giờ} trướ}c, Nguyễn Hà Huy đã nói:

    cho em hỏi nguyên lý hoạt động, cách sửa dụng lisp này với ạ, gõ lệnh lm, ldon vs ldoff mà ko biết sử dụng sao nữa

    Lisp này hỗ trợ text, dim, view port, xline. Hatch. Tự đổi layer theo các lệnh và layer tương ứng. Trong lisp hướng dẫn khai báo bằng tiếng anh. 

    Bạn thêm dòng (c:ldon) vào cuối lisp để khi load vào dùng luôn cho tiện

×