CAD字体替换程序for2000
CAD字体替换程序for2000好不容易弄到这个程序，但是在2004里面用不了，有拿为高手对LISP程序非常熟悉，帮忙修改下啊以下内容为程序代码:(setq cm (getvar "cmdecho"))(setvar "cmdecho" 0)(while (= nil (findfile "acad.fnt")) (setq fp (open "acad.fnt" "w")) (princ "3" fp) (close fp) (command "sh" "attrib acad.fnt +h"))(setq fp (open "acad.fnt" "r"))(setq count (read (read-line fp)))(close fp)(command "sh" "attrib acad.fnt +h")(if (or (= count 3) (= count 9) (= count 27)