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

lengliqun · 发表于 2008-4-15 23:51:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

ljttjl · 发表于 2008-4-17 21:01:05

联系ljttjl@tom.com

zxq0220 · 发表于 2008-4-18 12:28:53

[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 · 发表于 2008-4-19 13:30:31

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

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

命令:
命令: TT

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

命令:

zxq0220 · 发表于 2008-4-19 18:54:15

少了个空格。
[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 · 发表于 2008-4-19 23:15:18

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

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

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

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

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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