怎样写关于读取硬盘号的LISP函数

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
(vl-load-com)
8 H7 V9 G1 u( r(setq code "C"
5 t' i8 H7 n3 j9 R* e4 N; p" M(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
8 A: S% j5 v/ [9 q9 _' t6 r)
(setq lstSer '())
4 G. o- n7 t7 b1 ?% P* w. C;; iterator the HardDisk for the SerialNumber .
' e& J* i+ Y: W$ \' |* C;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
3 N2 R4 b0 K2 W. q( F6 F: B(setq StrDrive (strcat code ":"))
(if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))
(not (vl-catch-all-error-p Drive))
(vlax-property-available-p Drive "DriveType")
(equal (vlax-get-property Drive "DriveType") 2)
6 G/ M1 T% l& s% _, J* B+ d& b, \(vlax-property-available-p Drive "SerialNumber")
(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
2 \2 ^3 L% }, N6 f: f+ N0 V# Q)
0 B+ N; \$ I- U(setq SerialNumber (rtos SerialNumber 2 0)
5 ~1 H3 k! b" _; Y6 I% C' \" RlstSer (cons (list StrDrive SerialNumber) lstSer)
1 s3 O6 g7 [* w3 L3 o1 J)
9 v- Z/ p9 U" I) P- \)
" u5 j7 a& n0 I- ?: t* W5 x;;;(setq code (chr (1+ (ascii code))))  注释掉此行
4 V4 b9 _+ |7 {) t0 I;;;) 注释掉此行
;; relese object .
: S0 h9 U- {, y(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
;; return the value .
(princ(reverse lstSer))
, L/ c  b4 h" m1 y: u)


# v7 M, ^8 {8 O3 M5 B; ^- v你把循环部分注释掉，不就只得到C盘的SN了吗？
- E3 V+ V+ B. K3 S8 v* d5 D
[ 本帖最后由 sealive_leafage 于 2007-7-23 14:39 编辑 ]

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
( e: y4 E$ l: R" v; r, n  (vl-load-com)
  (setq code "C")
  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
" ^& W0 b, H) N: l+ Q; iDrives (vlax-get-property FSO "Drives")
' l6 z" a" @: l: ^4 d# z# T  )
, m1 I0 E2 E+ |3 i. N  ;; iterator the HardDisk for the SerialNumber .
, M5 I/ C  o, v8 j- ?  f  (setq StrDrive (strcat code ":"))
  (if (and (setq Drive (vl-catch-all-apply
    'vlax-get-property
    (list Drives "Item" StrDrive)
         )
    )
( y3 e$ j6 O+ _1 e& i# ?9 x    (not (vl-catch-all-error-p Drive))
    (vlax-property-available-p Drive "DriveType")
    (equal (vlax-get-property Drive "DriveType") 2)
    (vlax-property-available-p Drive "SerialNumber")
    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
1 [9 Z8 [; W: e0 s# z5 c- {      )
" |" g- S7 y: S2 p0 s, m    (princ (rtos SerialNumber 2 0))
6 v% l- t( N' @  )
  ;; relese object .
  (vl-catch-all-apply 'vlax-release-object (list FSO))
9 C3 I$ ]  T6 N  (vl-catch-all-apply 'vlax-release-object (list Drives))
: q3 ?: e8 ?4 q0 b# D)
* i" a* R, B8 S0 B8 N. _
0 z1 a- s9 a3 g# z' _2 \0 }+ \8 @6 g% i建议你多看看LISP语法！

[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]