让Lisp在指定USB中应用范例

ScmTools

        前些天一个网友在QQ上问我能否让LISP程序在指定的USB中运行, 因为好久没有写LISP了, 感觉都不会用LISP了, 所以当时我就抽空写了个通用DLL动态库, 刚好今天有空现将LISP运用范例贴上, 附件中是编译后的通用DLL动态库.

1. 
   
2. ;;
   
3. ;;让Lisp在指定USB中应用范例,应用前请将附件中文件放到CAD任意搜索目录下便可
   
4. ;;
   
5. (defun c:test()
   
6.    (if(= Scm_NO Scm-GetUsbName)
   
7.      (Alert "请先插入USB!")
   
8.      (progn
   
9.        (setq U-Name(Scm-GetUsbName)
   
10.                U-Dir(Scm-GetUsbDir)
    
11.                U-Id(Scm-GetUsbId))
    
12.      )
    
13.    )
    
14.    (Alert (strcat "USB盘符: " U-Name "\n" "USB路径: " U-Dir "\n" "USB序号: " U-Id "\n" "\n" "                        
    
15. 
    
16.                                                                 -By ScmTools"))
    
17.   (princ)
    
18. )
    

<br /> ;;<br /> ;;让Lisp在指定USB中应用范例,应用前请将附件中文件放到CAD任意搜索目录下便可<br /> ;;<br /> (defun c:test()<br />    (if(= Scm_NO Scm-GetUsbName)<br />      (Alert "请先插入USB!")<br />      (progn<br />        (setq U-Name(Scm-GetUsbName)<br />                U-Dir(Scm-GetUsbDir)<br />                U-Id(Scm-GetUsbId))<br />      )<br />    )<br />    (Alert (strcat "USB盘符: " U-Name "\n" "USB路径: " U-Dir "\n" "USB序号: " U-Id "\n" "\n" "                        <br /> <br />                                                                 -By ScmTools"))<br />   (princ)<br /> )<br />

   

Lisphk

大师，LISP不能在USB中加载吗？

ScmTools

Lisphk 发表于 2013-12-22 17:25
大师，LISP不能在USB中加载吗？

Lisp可以直接在USB中加载, 这个范例是获取USB信息限制Lisp在指定的USB中运行{:soso_e140:}

st788796

类要注册吗？

/db_自贡黄明儒_

版本呀，你这个怎么使用？

marting

/db_自贡黄明儒_ 发表于 2017-7-20 22:09

加载DLL， 里面定义了函数

sicky111

这个要收藏！

ayl1004

如果可以引用类的话，是不是就可以不用指定usb了？

ayl1004

在fas里可以用59标示引用一个类

kqqt6236

不知道怎么用。

liunian0524

感谢楼主分享

yoyoho

谢谢楼主分享！！！！