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

yxp

;;给你一个子程序，以表的形式返回文件的全部内容

;;例如d盘存在 abc.txt  则调用 (ffile "abc.txt") 

(defun ffile(f / f_dat txt_row)
 (setq ccdate '()
       f_dat (open (strcat "d:/" f) "r"))
    (while (setq txt_row (read-line f_dat))
    (setq ccdate (cons txt_row ccdate))
  ) (close f_dat) (reverse ccdate)
)

caoyin

只需要将二楼的写成函数就可以了

2. (defun read_txtfile (txtfile / line lst)  ;;定义函数，语法(read_text <TXT文件名>)
3.   (if (and (setq txtfile (findfile txtfile)) ;;判断文件存在
4.            (not (vl-file-directory-p txtfile))  ;;确保文件名不是文件夹
5.            (setq txtfile (open txtfile "r"))    ;;打开
6.       )
7.     (progn
8.       (while (setq line (read_line txtfile)) ;;循环读取文件每一行
9.       ;;(if ...     ;;此处可以添加验证该行的内容是否正确
10.         (setq lst (cons line txtfile))  ;;将该行内容储存到表
11.       ;;)
12.       )
13.       (close txtfile)    ;;关闭
14.       (reverse lst)    ;;返回TXT文件内容
15.     )
16.   )
17. )
18. ;;-------------------------------------------------------------------------------------------
19. ;; test
20. (read_txtfile "C:\\TEST.TXT")

(defun read_txtfile (txtfile / line lst)  ;;定义函数，语法(read_text <TXT文件名>)   (if (and (setq txtfile (findfile txtfile)) ;;判断文件存在            (not (vl-file-directory-p txtfile))  ;;确保文件名不是文件夹            (setq txtfile (open txtfile "r"))    ;;打开       )     (progn       (while (setq line (read_line txtfile)) ;;循环读取文件每一行       ;;(if ...     ;;此处可以添加验证该行的内容是否正确         (setq lst (cons line txtfile))  ;;将该行内容储存到表       ;;)       )       (close txtfile)    ;;关闭       (reverse lst)    ;;返回TXT文件内容     )   ) ) ;;------------------------------------------------------------------------------------------- ;; test (read_txtfile "C:\\TEST.TXT")

dinosaurhxe

个人认为这样加密没有什么意义。

2. (defun c:xxxx (/ fl line)
3. (setq fl (open "filename" "r")) ;打开文件
4. (setq line (read-line fl)) ;读取文件的一行
5. (close fl) ;关闭文件
6. (if (/= line "password")
7.   (exit)
8. ) ;_ End if
9. ………………程序正文
10. ) ;_ End defun

(defun c:xxxx (/ fl line) (setq fl (open "filename" "r")) ;打开文件 (setq line (read-line fl)) ;读取文件的一行 (close fl) ;关闭文件 (if (/= line "password")   (exit) ) ;_ End if ………………程序正文 ) ;_ End defun

2. (defun c:xxxx (/ fl line)
3. (setq fl (open "filename" "r")) ;打开文件
4. (setq line (read-line fl)) ;读取文件的一行
5. (close fl) ;关闭文件
6. (if (/= line "password")
7.   (exit)
8. ) ;_ End if
9. ………………程序正文
10. ) ;_ End defun

(defun c:xxxx (/ fl line) (setq fl (open "filename" "r")) ;打开文件 (setq line (read-line fl)) ;读取文件的一行 (close fl) ;关闭文件 (if (/= line "password")   (exit) ) ;_ End if ………………程序正文 ) ;_ End defun

caoyin

(defun c:ppp( / a aa f line)
(if (findfile "key.txt") 
  (progn
    (setq f (open (findfile "key.txt") "r"))   
    (setq line (read-line f))   
    (close f)
    (if (=  "888888" line)
      (progn
        (setq aa (ssget))
        (setq a (getvar "clayer"))
        (command "chprop" aa "" "la" a "")
      )
      (alert "未授权,请联系作者!")
    )
  )
) 
(print)     
)