API应用一个简易的文字替换

eachy · 发表于 2014-11-8 20:19:07

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

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

×

如将选中文字为下列文字中的任意组合替换为一个 string
"KZ3, KZ12, KZ21, KZ22, KZ23, KZ24, KZ25, KZ26, KZ30, KZ34, KZ42, KZ46, KZ47, KZ48, KZ49, KZ50, KZ51, KZ52, KZ53, KZ54, KZ55, KZ56, KZ57, KZ59, KZ62, KZ64, KZ65, KZ66, KZ69, KZ74, KZ78, KZ79, KZ80"

(defun c:tt (/ e str ss lst)
(if (and (setq e (car (xdrx_entsel "\n选择要替换文字" '((0 . "text")))))
(setq str (getstring "\nInput New String: "))
(progn
(princ "\n选择替换范围....")
(setq ss (ssget '((0 . "text"))))
)
)
(progn
(setq lst (xdrx_string_split
(xdrx_getpropertyvalue e "textstring")
","
)
)
(mapcar '(lambda (x /)
(if (vl-some '(lambda (a) (vl-position a lst))
(xdrx_string_split
(xdrx_getpropertyvalue x "textstring")
","
)
)
(xdrx_setpropertyvalue x "textstring" str)
)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

(defun c:tt (/ e str ss lst) 
  (if (and (setq e (car (xdrx_entsel "\n选择要替换文字" '((0 . "text"))))) 
           (setq str (getstring "\nInput New String: ")) 
           (progn 
             (princ "\n选择替换范围....") 
             (setq ss (ssget '((0 . "text")))) 
           ) 
      ) 
    (progn 
      (setq lst        (xdrx_string_split 
                  (xdrx_getpropertyvalue e "textstring") 
                  "," 
                ) 
      ) 
      (mapcar '(lambda (x /) 
                 (if (vl-some '(lambda (a) (vl-position a lst)) 
                              (xdrx_string_split 
                                (xdrx_getpropertyvalue x "textstring") 
                                "," 
                              ) 
                     ) 
                   (xdrx_setpropertyvalue x "textstring" str) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (princ) 
)

楼国林 · 发表于 2018-11-28 13:08:12

比如我需要将某一个文字替换为123那就只需要把代码中的string更换为123就可以了吗

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

[教学] API应用 一个简易的文字替换

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

[教学] API应用一个简易的文字替换