- 积分
- 3766
- 明经币
- 个
- 注册时间
- 2010-9-8
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 kele99kele 于 2015-9-7 18:33 编辑
- ;读取参数值(N::GetValue "nice.ini" "ATSTART")
- ;作用:读取nice.ini文件中ASTART参数的属性值设置
- ;返回:ASTART的属性值
- (defun N::GetValue (fle key / value valuetmp)
- (if (findfile fle)
- (progn
- (setq valuetmp (vldos-readfile (findfile fle)))
- (while (cadr valuetmp)
- (if
- (wcmatch key (car (XD::String:Parse (car valuetmp) " ")))
- (setq value (atoi (cadr (XD::String:Parse (car valuetmp)" "))))
- )
- (setq valuetmp (cdr valuetmp))
- )
- value
- )
- (progn
- (princ (strcat "\n终止:未找到文件""fle ""请将文件放置于AutoCAD的搜索支持路径下。"))
- (princ)
- )
- )
- )
- ;替换参数值(N::SetValue "nice.ini" "ATSTART" "123")
- ;作用1:将nice.ini文件中ASTART参数的属性值设置为123。
- ;作用2:如果nice.ini文件中没有ASTART参数则在文件的末尾添加ASTART参数并设置为123。
- ;返回:nice.ini文件的存储路径
- (defun N::SetValue (fle key value / lst lsttmp ifset)
- (if (findfile fle)
- (progn
- (setq lsttmp (vldos-readfile (findfile fle))
- lst '()
- ifset 0
- )
- (while (car lsttmp)
- (if
- (wcmatch key (car (XD::String:Parse (car lsttmp) " ")))
- (progn
- (setq lst (cons (strcat (car (XD::String:Parse (car lsttmp) " ")) " " Value) lst))
- (setq ifset 1)
- )
- (setq lst (cons (car lsttmp) lst))
- )
- (setq lsttmp (cdr lsttmp))
- )
- (if (= ifset 0) (setq lst (cons (strcat key " " Value) lst)))
- (vldos-writefile (findfile fle) (reverse lst) T)
- )
- (progn
- (princ (strcat "\n终止:未找到文件""fle ""请将文件放置于AUTOCAD的搜索支持路径下。"))
- (princ)
- )
- )
- )
一个用来读取,另一个用来修改或写入,用到了黄老大的通用函数以及一个晓东的通用函数,可以在论坛上自己搜索
东拼西凑的东西,不过效果不错,我只发了我写的源码,其他的函数请自行下载。
|
|