文字の置換

異なる内容の文字列を複数選択し、すべてを同一内容に置換します。

(setq number 0)
(setq [変数1] (getstring "置換後の文字列を入力: "))
(setq [変数2] (ssget '((0 . "text"))))
(repeat (sslength [変数2])
(setq [変数3] (ssname [変数2] number))
(command "_change" [変数3] "" "" "" "" "" "" [変数1])
(setq number (1+ number))
)