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

[Đã xong] lisp chọn text chứa dấu phẩy thành dấu chấm

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

Các bác cao thủ lisp cho tui hỏi 1 chút

các bác có lisp nào có nội dung như sau không

Khi chọn text , trong text đó có chứa dấu ","

thì sẽ chuyển thành dấu chấm "."

ví dụ: 2,2+12,6 sẽ thành 2.2+12.6

em cám ơn trướ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
Các bác cao thủ lisp cho tui hỏi 1 chút

các bác có lisp nào có nội dung như sau không

Khi chọn text , trong text đó có chứa dấu ","

thì sẽ chuyển thành dấu chấm "."

ví dụ: 2,2+12,6 sẽ thành 2.2+12.6

em cám ơn trước!??

bạn dùng lệnh find của AutoCAD!

thaychamthanhphay.gif

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

Cám ơn bác hoành, nhưng em muốn không dùng lềnh find mà

lập lisp có được không ạ?!

cho tiết kiệm thời gian bác à! bác giúp em nha?!

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
Cám ơn bác hoành, nhưng em muốn không dùng lềnh find mà

lập lisp có được không ạ?!

cho tiết kiệm thời gian bác à! bác giúp em nha?!

Chúng ta không nên quá lạm dụng lisp, mặc dù lisp này cũng rất đơn giản.

 

Lệnh CV dưới đây làm theo yêu cầu của bạn

(defun c:CV( / sst ent old tt)  
 (princ "\nConvert [,] to [.] - (c) CADViet.com")
 (setq sst (ssget '((0 . "TEXT"))))
 (while (> (sslength sst) 0)
(setq ent (ssname sst 0)	  
  sst (ssdel ent sst)
)	
(entmod (subst (cons 1 (vl-string-translate "," "." (cdr (setq old (assoc 1 (setq tt (entget ent))))))) old tt))
 )
 (princ)
)
(vl-load-com)

  • 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

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


×