如何用LISP获取机器号？

microe

:1

zhangzg

用lisp还不知道！

正航

晓东的API功能更多

tjyly

通过cad的时间及日期变量，间接的达到你的目的，也就是产生一个所谓的
随机数。

前生

DOSLIB里有

microe

:c

前生

加载doslib后,dos_serialno可以实现你的要求
www.mjtd.com里有你需要的!

microe

:c

laoliu

建议用SHell来调用DOS命令完成，可以不用别人的API，否则，程序太大了。我的调用驱动器序列好号的思路就是
1  调用shell ，使用DIR 命令来得到C盘的序列号
  dir c:\null>c:\1.txt
Volume in drive C has no label
Volume Serial Number is 1C20-10F7
Directory of C:\

2 读取文件1.txt 中有serial 行的 is 后面的，去掉空格，既实现

前生

呵呵.高见,
要想想如何在lsp中实现!
microe:你的小提琴，挺好啊!

YueFeng

可以问一下吗？你在LISP程序中获得机器号干什么用呢？我可有点想不通。见笑

前生

也许可以通过.机器码进行简单的判断吧
判断lisp程序是否继续?

laoliu

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

<br /> ;;; 程序编制：刘长清<br /> ;;; [url]http://siteplan.yeah.net[/url]<br /> ;;; [email]siteplan@sohu.com[/email]<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 />         (princ "\nmddir,     md,             4,site," file-2)<br />         (close file-2)<br /> ;;第二步;重新启动ACAD或调用REINIT,以使该设置生效<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 /> ;;; 如有问题请联系: [email]siteplan@sohu.com[/email]  [email]liuchangqing@263.net[/email] 均可<br />

XDSoft

谢谢老刘，希望朋友们贴代码的时候，加上“话题”，同时，若单独的程序请作为单独的主题发，这样便于以后整理，回复的话题不能单独的移动、编辑。

前生

OK!比较理想的纯种的lsp