[求助]：VLISP/LISP 加速 ？

silen618

有很多文本需要替换，写的程序运行速度总是很慢。
做过一个小测试：
2100个文本替换：
用自己写的程序（替换DXF组码并更新）用时：13.5秒
用FIND直接替换2.6秒
相差太大了！
求教：为什么，如何加速程序。文本替换的程序可否直接调用命令？

XDSoft

最初由 silen618 发布
[B]有很多文本需要替换，写的程序运行速度总是很慢。
做过一个小测试：
2100个文本替换：
用自己写的程序（替换DXF组码并更新）用时：13.5秒
用FIND直接替换2.6秒
相差太大了！
求教：为什么，如何加速程序。文本... [/B]

可以把你的代码贴到论坛来，大家看看，帮你优化下查找替换的算法，如果选择快速的算法，能提高些效率。

ACAD的FIND是ARX实现的，你举的例子，时间差别是ARX和LISP的差距，数量级上的差距，LISP是改变不了的。

另外，以后关于程序开发方面的问题，请发贴到“LISP开发技术”论坛，在那里，你能获得更多的帮助。

silen618

高手，请优化一下！
替换文字代码：
(defun c:ct (/ ss oldstr newstr el index str osl nsl si st)
  (setvar "cmdecho" 0)
  (setq ss (ssget '((0 . "TEXT"))))
  (setq oldstr (getstring "\n原文字: "))
  (setq newstr (getstring "\n新文字: "))
  (setq index 0)
  (repeat (sslength ss)
    (setq el        (entget (ssname ss index))
          index        (1+ index)
          )
    (setq str (cdr (assoc 1 el))
          osl (strlen oldstr)
          nsl (strlen newstr)
          si  1
          )
    (while (= osl (strlen (setq st (substr str si osl))))
      (if (= st oldstr)
        (setq str (strcat (substr str 1 (1- si))
                          newstr
                          (substr str (+ si osl))
                          )
              si  (+ si nsl)
              )
        (setq si (1+ si))
        )
      )
    (setq el (subst (cons 1 str) (assoc 1 el) el))
    (entmod el)
    )
  (setvar "cmdecho" 1)
  (princ)
  )
另批量文件的文本替换，用什么程序好一点，见过VB、VL的，发觉VL写的也很慢。