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

quocmanh04tt

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

    1.114
  • Đã tham gia

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

  • Ngày trúng

    145

Mọi thứ được đăng bởi quocmanh04tt

  1. Tưởng là thì gì khác, chứ thì tốt thì mình chịu. hehehe ... Tuy nhiên bài toán của bạn có thể giải quyết được, bằng cách viết lại lisp khác.
  2. Nếu các chi tiết như hình là các pline (1 chi tiết là 1 lwpolyline), text (không phải Mtext, Rtext), thì bạn dùng lisp này: TCT.rar
  3. quocmanh04tt

    Xin xỏ lisp tạo và đổi tên Block

    Cái đối tượng có chữ "NAME BLOCK" của bạn là Text hay Mtext vậy?
  4. quocmanh04tt

    Giúp em chỉnh sửa LISP này để sử dụng được với Arc

    Lisp này nằm ở đây:
  5. quocmanh04tt

    Tặng anh em 1 tool để chụp nhanh màn hình

    Chia sẻ là đáng quý! Nếu ai dùng Win10 có thể dùng tổ hợp phím "Windows key + Shift + S", khỏi cần tool.
  6. quocmanh04tt

    Hỏi về block attibutes

    Cái block trên kia giá trị chiều dài cũng là tổng mấy cái thuộc tính (Parameter) của block động mà bác!
  7. quocmanh04tt

    Lisp In Nhiều Bản Vẽ (Kể Cả Layout)

    Thông báo: Bản QPL V1.1 trở về trước, ngừng cấp Key, chuẩn bị cho bản V1.2. (Bản này dùng cho USB Device) Sơ bộ: 1.Vào Command prompt của Windows. 2. Paste vào dòng này: wmic diskdrive get name,size,model,SerialNumber để lấy thông tin USB. Mẫu: Hoặc dùng lisp này để lấy thông tin USB: https://drive.google.com/file/d/0B2LetfHDljPGX1dqNHdoWDIwSUE/view?usp=sharing *** Đây là bản "đề mô" cho ACE muốn test: https://drive.google.com/file/d/0B2LetfHDljPGbGhTOWF2X194TE0/view?usp=sharing
  8. quocmanh04tt

    [HELP] Căn chỉnh image trong tile image của dialog

    - Topic tham khảo là slide_image, còn code minh họa lại là vector_image, 2 loại này có khác nhau đó bạn. - Với code bạn gửi, bạn thử thay hàm logo trong lisp bằng hàm mới dưới đây xem sao: (defun logo (key / hei wid vec) (setq wid (dimx_tile "logo") hei (dimy_tile "logo") vec (lambda (d l) (mapcar '(lambda (x) (fix (+ d (* x (/ d -10))))) l))) (start_image key) (mapcar 'vector_image (vec wid '(1 1 9)) (vec hei '(4 6 6)) (vec wid '(1 9 9)) (vec hei '(6 6 4)) '(1 1 1)) (end_image)) P/s: Bạn test với nhiều trường hợp (thay đổi: width = ... height = ... của tile logo xem).
  9. Dòng màu đỏ là sao bạn nhỉ???
  10. quocmanh04tt

    [ Nhờ chỉnh sửa] Lisp tính diện tích

    Uh, nếu đối tượng Cad có EntityTransparency thì ngon hơn. Lisp trên nếu dùng trên CAD >= 2011 thì sẽ thấy các đối tượng nằm dưới vùng tô màu (nếu có).
  11. quocmanh04tt

    [ Nhờ chỉnh sửa] Lisp tính diện tích

    Uh, cad 2011 về sau mới có cái đó. Vậy bạn dùng cái này xem: SPP-02.rar P/s: Năm 2021 rồi mà còn dùng 2007, hiện tại đã có Cad 2022 rồi. Lạc hậu ghê... hehehe...
  12. quocmanh04tt

    [ Nhờ chỉnh sửa] Lisp tính diện tích

    Bạn dùng Cad nào vậy?
  13. quocmanh04tt

    [ Nhờ chỉnh sửa] Lisp tính diện tích

    Bạn dùng lisp này thử xem: SPP.rar
  14. Hình như bản này không dùng cho block động (Dynamic block).
  15. quocmanh04tt

    Nhờ quý cao nhân viết giùm lisp đo đường chéo của polyline

    Ủa...! Lisp này đâu phải mình viết???
×