[编程申请]：将字符串改为用户输入的字符串，要求 先输入，后选择。若

lengliqun

将字符串改为用户输入的字符串，要求　先输入，后选择。若输入的字符串中有“.”号，则将“.”号自动改成“D”，若输入的字符串中有“-”号，则将“-”号自动改成“;”号，如输入3.20,则所选字符改成3D20，如输入2.22-2.20，则所选字符改成2D22;2D20。
最好将“.”号自动改成“D”编成个子程序，以方便增加与修改。

ljttjl

联系ljttjl@tom.com

zxq0220

[php]
;字符替换 晓东 zxq0220 2008.4.18
(defun C:tt ()
(if (> (strlen (setq s1 (getstring "\nInput string 输入字符串 :"))) 0) (progn
  (setq sl (strlen s1) i 1 tmp "")
  (if (wcmatch s1 "*.*") (setq s1 (chchar s1 "." "D")))
  (if (wcmatch s1 "*.*") (setq s1 (chchar s1 "." "D")))
  (if (wcmatch s1 "*-") (setq s1 (chchar s1 "-" ";")))
  (if (and (setq s2 (entsel "\nSelect a text  选择文字 :"))
           (setq ent (entget(car s2)))
           (= (cdr (assoc 0 ent)) "TEXT")) (progn
   (setq ent (subst (cons 1 s1) (assoc 1 ent) ent))
   (entmod ent)
  ))
))
(princ)
)
(defun chchar (ss eqq wt/ tmp i)
(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)))
)
[/php]

lengliqun

谢谢zxq0220 大侠，3楼程序cad2004测试有问题，提示如下：

命令: TT
Input string 输入字符串 :3.20
; 错误: 参数太少

命令:
命令: TT

Input string 输入字符串 :2.22-2.20
; 错误: 参数太少

命令:

zxq0220

少了个空格。
[php]
(defun C:tt ()
(if (> (strlen (setq s1 (getstring "\nInput string 输入字符串 :"))) 0) (progn
  (if (wcmatch s1 "*.*") (setq s1 (chchar s1 "." "D")))
  (if (wcmatch s1 "*.*") (setq s1 (chchar s1 "." "D")))
  (if (wcmatch s1 "*-*") (setq s1 (chchar s1 "-" ";")))
  (if (and (setq s2 (entsel "\nSelect a text  选择文字 :"))
           (setq ent (entget(car s2)))
           (= (cdr (assoc 0 ent)) "TEXT")) (progn
   (setq ent (subst (cons 1 s1) (assoc 1 ent) ent))
   (entmod ent)
  ))
))
(princ)
)
(defun chchar (ss eqq wt / tmp i)
(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)))
)
[/php]

lengliqun

*-*4 5楼程序CAD2004测试可用，谢谢。

然将程序中两个"D"改成两个"]"，当输入只有一个点号时，程序无反应，当输入字符中有两个点号时则正常。提示如下：

命令: tt
Input string 输入字符串 :3.25
; 错误: 函数被取消

能再改改让您的程序更完美支持“]”吗？谢谢。

不知是否为字符半角与全角的区别。
我替换的地方为：
  (if (wcmatch s1 "*.*") (setq s1 (chchar s1 "." "]")))
  (if (wcmatch s1 "*.*") (setq s1 (chchar s1 "." "]")))