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.
hung37cespk

Nhờ giúp đỡ: Viết lisp chỉnh sửa kí tự trong text.

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

Chào các anh chị trong CADViet, em theo dõi diễn đàn cũng đã lâu và đã thu nhận được nhiều điều cực kì bổ ích từ diễn đàn. Đây là lần đầu tiên em post bài, mong nhận được sự giúp đỡ của các anh chị ạ.

Em muốn mọi người viết giúp em lisp chỉnh sửa nội dung text như sau:
1. chọn các text cần thay đổi.

2. Nhập vào kí tự cần thay đổi

3. nhập vào kí tự mong muốn.

tất cả các text sẽ được thay đổi theo.
VD: Chọn tất cả các text có nội dung 2Ø16, thay đổi 16 thành 14 hết trong các text trên, kết quả trả về tất cả là 2Ø14

Cám ơn tất cả các anh chị ạ!

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

Dạ, tại giờ em mới biết lệnh này, em vừa thử. được rồi ạ, lần trước thấy thấy làm bằng llisp rất nhanh mà tìm khắp diễn đàn mình không thấy, em chưa biết gì về lisp cả ạ

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

Dạ, tại giờ em mới biết lệnh này, em vừa thử. được rồi ạ, lần trước thấy thấy làm bằng llisp rất nhanh mà tìm khắp diễn đàn mình không thấy, em chưa biết gì về lisp cả ạ

Hế hế hế,

Muốn lisp thì có isp đây:

 

(defun c:ttt (/ ss old new)
(vl-load-com)
  (setq old (getstring "\n Nhap chuoi can thay the: ")
          new (getstring "\n Nhap chuoi gia tri thay the: ") )
 (alert "\n Chon cac text can thay the")
 (setq sst (acet-ss-to-list (ssget (list (cons 0 "*text")))))
(foreach a ssl
   (setq txt (cdr (assoc 1 (setq el (entget a))))
             txt (vl-string-translate old new txt) )
   (entmod (subst (cons 1 txt) (assoc 1 el) el))
)
)

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

 

Hế hế hế,

Muốn lisp thì có isp đây:

(defun c:ttt (/ ss old new)
(vl-load-com)
  (setq old (getstring "\n Nhap chuoi can thay the: ")
          new (getstring "\n Nhap chuoi gia tri thay the: ") )
 (alert "\n Chon cac text can thay the")
 (setq sst (acet-ss-to-list (ssget (list (cons 0 "*text")))))
(foreach a ssl
   (setq txt (cdr (assoc 1 (setq el (entget a))))
             txt (vl-string-translate old new txt) )
   (entmod (subst (cons 1 txt) (assoc 1 el) el))
)
)

Dạ, lisp bị sai rồi ạ

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


×