确实我没有加入findfile，因为本身就没有什么意义。
如果你想指定路径，就
(if (findfile "C:\\Program Files\\aas\\key.txt")
(progn
(setq f (open (findfile "key.txt") "r"))
(setq line (read-line f))
(close f)
(if (= "888888" line)
(progn
………………程序正文
) ;_ End progn
(alert "未授权,请联系作者!")
) ;_ End if
) ;_ End progn
(alert "未授权,请联系作者!")
) ;_ End if
(defun c:ppp ( / fnm a aa f line)
(if (setq fnm (findfile "c:/Program Files/aas/key.txt")) (progn
(setq f (open fnm "r"))
(setq line (read-line f))
(close f)
(if (= line "888888") (progn
(setq aa (ssget))
(setq a (getvar "clayer"))
(command "chprop" aa "" "la" a "")
)
(alert "未授权,请联系作者!")
)
)
(alert "未授权,请联系作者!")
)
(print)
)
不加路径那文件就得在搜索路径中才能找到。
本帖最后由 作者 于 2008-6-18 11:20:28 编辑 <br /><br /> <p>其实，楼主在读取文件的时候加个判断就可以了</p><p><strong><font face="Verdana" color="#61b713">在dinosaurhxe的程序里加个判读语句，如下：</font></strong></p><p><font style="BACKGROUND-COLOR: #cce8cf;">(setq fl (open "C:\Program Files\aas\key.txt" "r"));打开文件</font></p><p><font color="#ff0000" style="BACKGROUND-COLOR: #ffffff;">(if （null fl) (progn (alert "未授权,请联系作者！") (exit)))</font></p><p><font color="#ff0000" style="BACKGROUND-COLOR: #ffffff;">；fl为nil时（即文件key.txt不存在），弹出提示框，确定后退出程序</font></p><p><font style="BACKGROUND-COLOR: #cce8cf;">(setq line (read-line fl));读取文件的一行</font></p><p><font style="BACKGROUND-COLOR: #cce8cf;">(close fl);关闭文件</font></p>