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

[xaydung 12]

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!??

[Nguyen Hoanh 4.663]

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!

[xaydung 12]

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?!

[Nguyen Hoanh 4.663]

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)