Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
idiot_wind411

[Yêu cầu] sửa giúp Lisp thay đổi Text override của Dimension

Các bài được khuyến nghị

Hiện tại, mình đang có 1 Lisp thay đổi Text override của Dimension bằng cách kích chọn và nhập vào giá trị cần thay. Bây giờ, mình muốn tạo 1 Lisp kiểm tra tất cả các Dimension có Text override thỏa mãn điều kiện "{\fAIGDT|b0|i0;\H17.5000;\ln\fMS ゴシック|b0|i0;\H17.5000;} (<>)" thì thay thế nó bằng "%%c(<>)".

Nhờ các bạn giúp đỡ. Cảm ơn!http://www.cadviet.com/upfiles/3/116734_dimtextoverride.lsp

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hiện tại, mình đang có 1 Lisp thay đổi Text override của Dimension bằng cách kích chọn và nhập vào giá trị cần thay. Bây giờ, mình muốn tạo 1 Lisp kiểm tra tất cả các Dimension có Text override thỏa mãn điều kiện "{\fAIGDT|b0|i0;\H17.5000;\ln\fMS ゴシック|b0|i0;\H17.5000;} (<>)" thì thay thế nó bằng "%%c(<>)".

Nhờ các bạn giúp đỡ. Cảm ơn!http://www.cadviet.com/upfiles/3/116734_dimtextoverride.lsp

Hề hề hề,

1/- Làm như bác Ketxu đã chỉ.

2/- Hãy gửi bản vẽ mô tả cái bạn đã có và cái cần có sau khi chạy lisp.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Lệnh Find&Replace chỉ áp dụng cho Text trong Override còn Override có định dạng thì ko thay được. Nếu được các bạn thử làm xem http://www.cadviet.com/upfiles/3/116734_drawing6.dwg.

Mình cần sửa tất cả các ký tự Φ nét đậm thành các ký tự Φ nét mảnh


Cám ơn nhiều, nếu nhận được sự giúp đỡ của các bạn!

 

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Lệnh Find&Replace chỉ áp dụng cho Text trong Override còn Override có định dạng thì ko thay được. Nếu được các bạn thử làm xem http://www.cadviet.com/upfiles/3/116734_drawing6.dwg.

Mình cần sửa tất cả các ký tự Φ nét đậm thành các ký tự Φ nét mảnh

 

Cám ơn nhiều, nếu nhận được sự giúp đỡ của các bạn!

Hề hề hề,

Cái ni chửa biết có đúng ý bạn không. Tuy nhiên test với bản vẽ bạn gửi thì nó OK.

Bạn khỏi cần cám ơn nếu như nó làm bạn không vui.

 

(defun c:edo ( / ssd els txt n )
(vl-load-com)
(command "undo" "be")
(setq ssd (acet-ss-to-list (ssget "x" (list (cons 0 "dimension")))))
(foreach dm ssd
  (setq els (entget dm)
           txt (cdr (assoc 1 els)) 
           n (strlen txt)
  )
  (if (and (> n 4)
         (= (substr txt 1 (- n 4)) 
         "{\\fAIGDT|b0|i0;\\H17.5000;\\ln\\f\\M+1826C\\M+18272 \\M+18353\\M+18356\\M+18362\\M+1834E|b0|i0;\\H17.5000;}")
       )
       (entmod (subst (cons 1 (strcat "%%c" (substr txt (- n 3)))) (assoc 1 els) els))
  )
)
(command "undo" "e" )
(princ)
)
Chúc bạn vui.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×