[求助](已完成)求lsp程序，选择含分号的字符串，将分号“;”前的字符改成用户输入的

lengliqun

[求助](已完成)求lsp程序，选择含分号的字符串，将分号“;”前的字符改成用户输入的字符[br]求lsp程序，选择含分号的字符串，将分号“;”前的字符改成用户输入的字符（要求先输入字符，后选择）。
如：2D25;2D20 用户输入2A18,则变成2A18;2D20
如：2D20/2D18;2D25用户输入2D25/2D20,则变成2D25/2D20;2D25

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 2 才可浏览，你当前发帖数只有 0

lengliqun

CAD2004 测试可用，谢谢ZZXXQQ版主，

呵呵，有时还需要修改分号后边的字符，可不可以写一个修改分号后边字符的程序呢？已知条件与上面的一样，只是想替换掉分号后边的字符。

再次感谢。

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 3 才可浏览，你当前发帖数只有 0

lengliqun

4楼程序cad2004测试可用，谢谢ZZXXQQ版主的关注。

可以给“输入新字符串”加个“2]25”的默认值吗？还有，键盘输入的所有点号“.”在cad中都变成“]”号。

如：2D25;2D20 用户输入2.18,则变成2]18;2D20
如：2D20/2D18;2D25用户输入2.25/2.20,则变成2]25/2]20;2D25

谢谢。

ZZXXQQ

子程序见晓东。

游客，本帖隐藏的内容需要发帖数高于 4 才可浏览，你当前发帖数只有 0

lengliqun

配合晓东zxq0220的子程序，下面程序cad2004测试无反应，不知何故，不支持“]”号。

;替换分号后字符 明经 ZZXXQQ 2008.4.20
(defun c:tt ()
  (if (setq news (getstring "\nEnter New string 输入新字串 <2]25> :")) (progn
   (setq news (if (= (strlen news) 0) "2]25" news))
   (while (wcmatch news "*.*") (setq news (chchar news "." "]")))
   (if (setq ss (ssget '((0 . "TEXT") (1 . "*;*")))) (progn
    (setq i -1)
    (repeat (sslength ss)
     (setq i (1+ i)
           ent (entget(ssname ss i))
           txt (cdr(assoc 1 ent))
           j (strlen txt)
           sl j)
     (while (and (> j 1) (/= (setq s1 (substr txt j 1)) ";")) (setq j (1- j)))
     (setq ent (subst (cons 1 (strcat (substr txt 1 j) news)) (assoc 1 ent) ent))
  (entmod ent)
    )
   ))
  ))
  (princ)
)

(defun chchar (ss eqq wt / tmp i) ;;晓东 zxq0220 2008.4.18

(setq i 1 tmp "")
(while (/= (setq s2 (substr ss i 1)) eqq) (setq tmp (strcat tmp s2) i (1+ i)))
(strcat tmp wt (substr s1 (1+ i)))
)

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

lengliqun

CAD2004测试，8楼程序(配合晓东 zxq0220的子程序)可运行，但无法将点号“.”变成“]”输出。

ZZXXQQ

8楼已改。