钢筋字符替换为%%13*系列

370001737 · 发表于 2021-1-6 11:16:32

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

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

×

登录/注册后可看大图

，请问lisp中如何实现钢筋字符替换为探索者的%%13*系列钢筋字符

370001737 · 发表于 2021-1-6 11:18:29

登录/注册后可看大图

，请问lisp中如何实现钢筋字符替换为探索者的%%13*系列钢筋字符

pxt2015 · 发表于 2021-1-6 22:07:13

(defun PP:Str-Subst (newtext oldtext textstring / i n)
  (setq n (strlen newtext))
  (while (setq i (vl-string-search oldtext textstring i))
  (setq textstring
   (vl-string-subst newtext oldtext textstring i)
   i (+ i n)
)
  )
  textstring
)

(PP:Str-Subst “%%132”  oldstr fullstr)

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

[求助] 钢筋字符替换为%%13*系列

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

钢筋字符替换为%%13*系列