Dayananda Posted November 8, 2020 Posted November 8, 2020 This is the text I found in my cad Drawing 2T16 - 05 I need to remove the blank space which after 16 and before 05 The minus mark is ok. New texts should be as 2T16-05 Pl can you help. Quote
dlanorh Posted November 8, 2020 Posted November 8, 2020 (while (vl-string-search " " str) (setq str (vl-string-subst "" " " str))) where str is the string you want to change 1 Quote
Trudy Posted November 8, 2020 Posted November 8, 2020 Something from me, it can be change for multiple text. (defun c:try1 (/ sel text text2 ) (setq sel (car (entsel "\nSelect some text: "))) (setq text (cdr (assoc 1 (entget sel)))) (setq text2 (vl-list->string (vl-remove 32 (vl-string->list text)))) (entmod (subst (cons 1 text2) (assoc 1 (entget sel)) (entget sel))) (princ) ) 1 Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.