无法正常运行的lisp

sqqr

无法正常运行 (defun c:fixt (/ ss idx txtent newstr k)
(setq
fx_pre (if fx_pre fx_pre "")
fx_pos (if fx_pos fx_pos "")
)
(princ (strcat "\n前缀： '" fx_pre "'\t后缀： '" fx_pos "'"))
(initget "O S")
(setq
k (getkword "\nO选项/: ")
k (if k k "S")
)
(if
(= k "O")
(setq
fx_pre (getstring 1 "\n前缀: ")
fx_pos (getstring 1 "\n后缀: ")
)
)
(setq ss (ssget '((0 . "text"))) idx 0)
(if ss
(repeat (sslength ss)
(setq
txtent (entget (ssname ss idx))
newstr (strcat fx_pre (cdr (assoc 1 txtent)) fx_pos)
)
(entmod (subst (cons 1 newstr) (assoc 1 txtent) txtent))
(setq idx (1+ idx))
)
)
(princ)
)

meflying

我运行了，并没有出现问题

贱人

我运行了，也没有出现问题


很不错