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

Biet ve CAD

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

    476
  • Đã tham gia

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

  • Ngày trúng

    71

Bài đăng được đăng bởi Biet ve CAD


  1. 12 phút trước, google123 đã nói:

    bản vẽ đây anh, quét chọn vùng lớn không chạy lisp được ạ

    file cad.dwg

    Có mấy dòng, thấy bạn cũng cầu thị nên giúp bạn, bạn thử xem có được ko nhé

    (defun C:BVC(/ e ss str)
     (vl-load-com)
     (foreach e (acet-ss-to-list (ssget '((0 . "text"))))
       (setq str (cdr (assoc 1 (entget e))))
       (if(vl-string-search "T\\" str)
         (vla-put-textstring (vlax-ename->vla-object e) (substr str (+ (vl-string-position 32 str nil t) 1)))
         )
       )
      )

     

    • Like 1

  2. 46 phút trước, mr.thanh2610 đã nói:

    ^_^ Chào anh Duy, em đang sài cái lisp của anh đây, lisp thư viện đấy, mà lúc quét chọn các Block em quên chuyển về cùng đơn vị nên giờ ra thế này, giờ phải vào chỉnh từng cái đây anh ạ, có cách nào nhanh hơn không anh

    Hehe, mình sẽ lại cập nhật thêm chức năng đổi Unit vào lisp đa chức năng này này ^^

    https://www.cadviet.com/forum/topic/176552-lisp-tạo-danh-mục-từ-các-layout-nhiều-file-dwg/

     


  3. 19 phút trước, Truong_Tem đã nói:

    Cám ơn bạn Biet ve CAD, mình gửi lên cái mình có được, nếu bạn có thời gian bạn sửa dùm mình 1 chổ là lúc chọn đối tượng thứ 2 không cần thiết phải hỏi để xác nhận thêm lần nữa vì thấy không cần thiết phải có bước đó nhé!!

    RoundLinesOutwardFixedEnd.lsp

    RoundLinesOutwardFixedEnd.lsp

    đã sửa rồi, lisp bạn hiện tại đang là pick từng đối tượng 1, nếu làm nhiều tương đối lâu

    Nếu bạn đã có lisp này rồi, và chạy vừa ý thì mình ko post lisp mình lên nữa ( ^^ lisp mình hay tính phí lắm )

    ( Nếu có nhu cầu dùng cho hàng loạt và cập nhật lại bán kính thì liên hệ nhé )

    • Like 1

  4. "" Với câu hỏi, chủ đề như vậy thì trên forum nước ngoài đã trả lời mình rất nhiệt tình, bạn nào cần thì chia sẽ cho nhé!!! ""

    Vừa viết sơ cua lisp này, đang tinh chỉnh lại chút, sẽ sớm post để bạn tham khảo

    có thể  lisp chạy sẽ không ngon bằng lisp bạn nhờ forum nước ngoài

    Lisp sẽ có tùy chọn là fillet cung lồi hay cung lõm, sau khi fillet cũng có thể update lại bán kính cung, và áp dụng cho hàng loạt đối tượng cùng lúc

    • Like 1
    • Vote tăng 1

  5. Đọc lướt qua topic này mà thấy cái gì đó sai sai  ?

    Cuộc đời là phải có cho có nhận, ông nào cũng muốn nhận chứ ko muốn cho thì bảo sao không mâu thuẫn

    Cứ nhắc đến có "phí" cái là các bạn đã có vẻ như "không cần" nữa rồi, mà ko hỏi xem phí đó nó "TO" như nào ?

    Những yêu cầu đơn giản thì đa phần mọi người sẽ giúp, phức tạp hơn thì tùy vào lúc và trạng thái người giúp

    Đơn giản vậy thôi ko nên phức tạp tình hình quá

    • Like 2

  6. Xin giới thiệu đến các bạn Lisp thống kê nhanh diện tích Hatch này

    Có rất nhiều tùy chọn thống kê như hình:

    tkh.jpg.ec65dc77a2eb77b886d9b63df50fbebd.jpg

    Video giới thiệu:

    Bạn nào có nhu cầu thì liên hệ bietvecad@gmail.com để lấy link tải nhé

     

    Xem thêm lisp khác:

    - In nhanh bản vẽ: https://www.cadviet.com/forum/topic/175810-freelisp-in-bản-vẽ-mode-layout-folder/

    - Edit nhanh text: https://www.cadviet.com/forum/topic/176606-lisp-chỉnh-sửa-nhanh-text/

    - Tạo Viewport: https://www.cadviet.com/forum/topic/176339-lisp-tạo-viewport-hàng-loạt-từ-model-sang-layout/

    • Vote tăng 1

  7. Mô tả chức nawngn của lisp:

    - Tạo nhanh danh mục bản vẽ từ Block thuộc tính hoặc là Block và Text nằm ngoài block đó

    - Không giới hạn số lượng Tag name hoặc các Text cần tạo

    - Có thể tạo từ các layout trong bản vẽ

    - Áp dụng cho Autocad 2013 trở đi

    * Các bạn liên hệ qua email bietvecad@gmail.com hoặc https://www.facebook.com/cad.bietve để biết thêm thông tin nhé !

    dm.jpg.b7f3278293cb67eb91944548aa9f6ad8.jpg

    Video giới thiệu:

    Cập nhật nối file Text:

     

    Xem thêm lisp khác:

    - In nhanh bản vẽ: https://www.cadviet.com/forum/topic/175810-freelisp-in-bản-vẽ-mode-layout-folder/

    - Edit nhanh text: https://www.cadviet.com/forum/topic/176606-lisp-chỉnh-sửa-nhanh-text/

    - Tạo Viewport: https://www.cadviet.com/forum/topic/176339-lisp-tạo-viewport-hàng-loạt-từ-model-sang-layout/

     

     


  8. Mình xin giới thiệu tiếp lisp sửa nhanh Text này:

    - Sửa các loại text, cả bên trong block

    - Tự động thay đổi chế độ gõ Việt - Anh ( phải bật Unikey lên trước và để kiểu gõ English trước khi dùng lệnh )

    - Tự nhận biết kiểu font chữ là Unicode - Tcvn - Vni

    - Tương thích, hiển thị tốt đối với font Unicode

    * Các bạn liên hệ qua email bietvecad@gmail.com hoặc https://www.facebook.com/cad.bietve để biết thêm thông tin nhé !

    Xem thêm lisp khác:

    - In nhanh bản vẽ : https://www.cadviet.com/forum/topic/175810-freelisp-in-bản-vẽ-mode-layout-folder/

    - Tạo danh mục bản vẽ: https://www.cadviet.com/forum/topic/176725-lisp-tạo-nhanh-danh-mục-bản-vẽ/

    - Tạo Viewport: https://www.cadviet.com/forum/topic/176339-lisp-tạo-viewport-hàng-loạt-từ-model-sang-layout/

     

     

    • Like 3
    • Vote tăng 3

  9. Giới thiệu các bạn lisp tạo danh mục bản vẽ từ các Layout trong các file Dwg

    Điều kiện áp dụng là Block thuộc tính và áp dụng tối đa 4 thuộc tính, các file cad Dwg phải cùng chung Block đó

    ( nhiều khung block trong 1 layout vẫn dùng được, lisp sẽ sort theo thuộc tính chọn đầu tiên )

    * Các bạn liên hệ qua email bietvecad@gmail.com hoặc https://www.facebook.com/cad.bietve để biết thêm thông tin nhé !

     

    • Like 2
    • Vote tăng 2

  10. - Tương thích version cad từ 2007 đến 2020

    - CẬP NHẬT 10-06-2019 : Phiên bản Free_5 (  phiên bản này bạn nào quan tâm có thể để lại email, hoặc gửi vào email bietvecad@gmail.com để lấy link tải nhé )

    PS: cập nhật thêm chọn cả Rectang và Block cùng lúc làm khung in

    https://youtu.be/qD9YOcACJVU

     

    Thêm bản siêu rút gọn cho đủ bộ

     


  11. Tiếp tục nghiên cứu Lisp có ứng dụng như này, ae ai có nhu cầu thì liên hệ qua email bietvecad@gmail.com hoặc https://www.facebook.com/cad.bietve để lấy link nhé ^^

    *** Xem thêm lisp in nhanh bản vẽ https://www.youtube.com/playlist?list=PL05frYPpT5LLRHAE9W-osYor9Jbe7nOg-

    *** Tiện ích khác https://www.youtube.com/playlist?list=PL05frYPpT5LJUXFg-LYSgxvSmxzIPdoqA

     


  12. Đọc thì thấy code bạn viết có vẻ đúng, bạn thử đổi lại như này xem ( không nên để tên biến là list-point vì đôi khi gây lỗi, nên để thành list_point )

    (vl-sort list_point 
         (function
           (lambda (x1 x2)
             (or(> (cadr x1) (cadr x2))
            (and
              (not(> (cadr x1) (cadr x2)))
              (< (car x1) (car x2)))     
            )
             )))

    hoặc

    (vl-sort list_point 
         (function
           (lambda (x1 x2)
             (if(> (cadr x1) (cadr x2))
               (> (cadr x1) (cadr x2))
            (< (car x1) (car x2))     
            )
             )))

     

    • Like 1
×