Lisp biến Text thành 1 text hay một giá trị mình nhập vào ??????????

[hhhhgggg 29]

Bác Pro nào viết cho em cái Lisp biến các text ( Mtext) được chọn thành 1 Text khác (hay 1 Value) mà mình nhập vào ???

Cảm ơn các bác !

[Tue_NV 3.912]

Bác Pro nào viết cho em cái Lisp biến các text ( Mtext) được chọn thành 1 Text khác (hay 1 Value) mà mình nhập vào ???

Cảm ơn các bác !

Có phải bạn muốn chọn các text, sau đó nhập giá trị Text vào, lập tức các Text được chọn ban đầu đó nhận giá trị là Text vào

Nếu vậy thì cái bạn cần ở đây : http://www.cadviet.com/forum/index.php?showtopic=7092

[hhhhgggg 29]

Có phải bạn muốn chọn các text, sau đó nhập giá trị Text vào, lập tức các Text được chọn ban đầu đó nhận giá trị là Text vào

Nếu vậy thì cái bạn cần ở đây : http://www.cadviet.com/forum/index.php?showtopic=7092

Đúng là mình muốn vậy nhưng mà cái Lisp ở diễn đàn đó ko chạy được bạn à ? Báo lỗi : "Select objects: ; error: quit / exit abort"

[ssg 1.102]

Bác Pro nào viết cho em cái Lisp biến các text ( Mtext) được chọn thành 1 Text khác (hay 1 Value) mà mình nhập vào ???

Cảm ơn các bác !

Bạn dùng thử cái này, lệnh TTT:

 

(defun C:TTT( / ss txt e d)
(setq
   ss (ssget '((0 . "TEXT,MTEXT")))
   txt (getstring "\nGia tri text thay the:" T)
)
(while (setq e (ssname ss 0))
   (setq
       d (entget e)
       d (subst (cons 1 txt) (assoc 1 d) d)
   )
   (entmod d)
   (ssdel e ss)
)
(princ)
)

[Tue_NV 3.912]

Đúng là mình muốn vậy nhưng mà cái Lisp ở diễn đàn đó ko chạy được bạn à ? Báo lỗi : "Select objects: ; error: quit / exit abort"

Lỗi này là do file .dcl chưa được chỉ đường dẫn để tải vào ACAD.

CÁi này gồm 2 file Edit Multi Text.dcl và file Edit Multi Text.lsp

Bạn chép 2 file này vào trong 1 thư mục nào đó

 

Vào CAD, đánh lệnh op (option) -> ở nhãn file -> hàng đầu tiên Support file search Path -> Chọn Add -> Chỉ đường dẫn tới thư mục chứa file Edit Multi Text.dcl ->Apply -> OK.

 

Appload file lisp và sử dụng. Tên lệnh là edd.

Hai file đó đay : http://www.cadviet.com/upfiles/Edit_Multi_Text.rar

[hhhhgggg 29]

Bạn dùng thử cái này, lệnh TTT:

 

(defun C:TTT( / ss txt e d)
(setq
   ss (ssget '((0 . "TEXT,MTEXT")))
   txt (getstring "\nGia tri text thay the:" T)
)
(while (setq e (ssname ss 0))
   (setq
       d (entget e)
       d (subst (cons 1 txt) (assoc 1 d) d)
   )
   (entmod d)
   (ssdel e ss)
)
(princ)
)

ok ! Lisp của bác SSG chính là lời giải của bài toán. Em đã Test và chạy ok ! Em tặng bác 1 con gà quay ( Hình vẽ) để hậu tạ ! kekeke