在纯AUTOLISP中取得C盘格式化序列号的源程序！！！

laoliu

2. 
   
3. 
   
4. XDsoft认为宜单独作主题，有道理，于是……
   
5. ;;; 程序编制：刘长清
   
6. ;;; [url]http://siteplan.yeah.net[/url]
   
7. ;;; [email]siteplan@sohu.com[/email]
   
8. ; 第一步，在初始化文件中加入两条命令用以操作系统,第一次运行时执行
   
9. 
   
10. ; 注意，请先检查是否有行字符串“dirtofile, dir,            4,site,”，
    
11. ; 没有才加上,检查部分省略
    
12. 
    
13.         (setq file-1 (findfile "acad.pgp"))
    
14.         (if file-1
    
15.           (setq file-2 (open file-1 "a"))
    
16.           (setq file-2 (open "acad.pgp" "a"))
    
17.         )
    
18.         (princ "\ndirtofile, dir,            4,site," file-2)
    
19.         (close file-2)
    
20. 
    
21. ;;第二步;重新启动ACAD或调用REINIT,以使该设置生效
    
22. 
    
23. ;;第三步,编写访问代码
    
24.           (command "dirtofile" "c:\\>.\\tmp.flp")
    
25.           (setq tmpflp (findfile ".\\tmp.flp"))
    
26.           (setq adisksiz (open tmpflp "r"))         
    
27.         (read-line adisksiz)
    
28.            ;以下三行为检查操作系统,9X和NT不一样
    
29.         (if (= (substr (getvar "platform") 19 1) "V"  )
    
30.             (read-line adisksiz)
    
31.           )
    
32.           ;以下一行取得了序列号所在的行
    
33.         (setq adisksn (read-line adisksiz))
    
34.         (close adisksiz)
    
35.            (setq        adsksn (substr adisksn (- (strlen adisksn) 8)
    
36.          
    
37.          ;----------------------------------------------
    
38.          ;注意: adsksn 就是你需要的C盘格式化后的序列号了.
    
39.          ;-----------------------------------------------
    
40. ;; 注意，第一步和第三步宜在两个程序或函数里。
    
41. ;; 如有问题请联系: [email]siteplan@sohu.com[/email]  [email]liuchangqing@263.net[/email] 均可
    

<br /> <br /> XDsoft认为宜单独作主题，有道理，于是……<br /> ;;; 程序编制：刘长清<br /> ;;; [url]http://siteplan.yeah.net[/url]<br /> ;;; [email]siteplan@sohu.com[/email]<br /> ; 第一步，在初始化文件中加入两条命令用以操作系统,第一次运行时执行<br /> <br /> ; 注意，请先检查是否有行字符串“dirtofile, dir,            4,site,”，<br /> ; 没有才加上,检查部分省略<br /> <br />         (setq file-1 (findfile "acad.pgp"))<br />         (if file-1<br />           (setq file-2 (open file-1 "a"))<br />           (setq file-2 (open "acad.pgp" "a"))<br />         )<br />         (princ "\ndirtofile, dir,            4,site," file-2)<br />         (close file-2)<br /> <br /> ;;第二步;重新启动ACAD或调用REINIT,以使该设置生效<br /> <br /> ;;第三步,编写访问代码<br />           (command "dirtofile" "c:\\>.\\tmp.flp")<br />           (setq tmpflp (findfile ".\\tmp.flp"))<br />           (setq adisksiz (open tmpflp "r"))          <br />         (read-line adisksiz)<br />            ;以下三行为检查操作系统,9X和NT不一样<br />         (if (= (substr (getvar "platform") 19 1) "V"  )<br />             (read-line adisksiz)<br />           )<br />           ;以下一行取得了序列号所在的行<br />         (setq adisksn (read-line adisksiz))<br />         (close adisksiz)<br />            (setq        adsksn (substr adisksn (- (strlen adisksn) 8)<br />           <br />          ;----------------------------------------------<br />          ;注意: adsksn 就是你需要的C盘格式化后的序列号了. <br />          ;-----------------------------------------------<br /> ;; 注意，第一步和第三步宜在两个程序或函数里。<br /> ;; 如有问题请联系: [email]siteplan@sohu.com[/email]  [email]liuchangqing@263.net[/email] 均可<br />

XDSoft

谢谢，：），你还忘了加“话题”就是前缀[AUTOLISP程序]： 和保持代码缩进，我都替你改好了。

laoliu

谢谢晓东

tjyly

DIRTOFILE这命令怎么没有？？？

前生

程序里写的比较清楚了
首先将dir...写入acad.pgp中
reinit重新。。
然后就..ok!