向版主请教，怎么样建立一个TXT文件，让lsp去读它的值才能用，谢谢

dinosaurhxe

确实我没有加入findfile，因为本身就没有什么意义。
如果你想指定路径，就

2.   (if (findfile "C:\\Program Files\\aas\\key.txt")
3.    (progn
4.     (setq f (open (findfile "key.txt") "r"))
5.     (setq line (read-line f))
6.     (close f)
7.     (if (= "888888" line)
8.      (progn
9.       ………………程序正文
10.      ) ;_ End progn
11.      (alert "未授权,请联系作者!")
12.     ) ;_ End if
13.    ) ;_ End progn
14.    (alert "未授权,请联系作者!")
15.   ) ;_ End if

  (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

ZZXXQQ

3. (defun c:ppp ( / fnm a aa f line)
4. (if (setq fnm (findfile "c:/Program Files/aas/key.txt")) (progn
5.   (setq f (open fnm "r"))   
6.   (setq line (read-line f))   
7.   (close f)
8.   (if (= line "888888") (progn
9.    (setq aa (ssget))
10.    (setq a (getvar "clayer"))
11.    (command "chprop" aa "" "la" a "")
12.   )
13.    (alert "未授权,请联系作者!")
14.   )
15. )
16.   (alert "未授权,请联系作者!")
17. )  
18. (print)
19. )

(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) )

ZZXXQQ

不加路径那文件就得在搜索路径中才能找到。

hzj526

其实，楼主在读取文件的时候加个判断就可以了

在dinosaurhxe的程序里加个判读语句，如下：

(setq fl (open "C:\Program Files\aas\key.txt" "r"));打开文件

(if （null fl) (progn (alert "未授权,请联系作者！") (exit)))

；fl为nil时（即文件key.txt不存在），弹出提示框，确定后退出程序

(setq line (read-line fl));读取文件的一行

(close fl);关闭文件