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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
(vl-load-com)
2 M- m5 B- N9 j/ L& E(setq code "C"
; a( [" t* t- u' s1 ]+ D(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
)
& `1 c8 M# I( k2 e, _(setq lstSer '())
. ^: z8 p: t, ~: j; u7 s: I+ u6 Q;; iterator the HardDisk for the SerialNumber .
: j! I  ?$ @! p: J/ `8 Q;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
& F! \0 ~- D0 q(setq StrDrive (strcat code ":"))
% Y3 \" P; r) i5 P* ^& s(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)
  \! M2 v9 e7 O  O" l& {(vlax-property-available-p Drive "SerialNumber")
8 @6 R" Y9 T* M# {. c" o2 Z8 K1 s(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
! C' c* v% L$ Q" @)
(setq SerialNumber (rtos SerialNumber 2 0)
6 W) c/ K- S% I% m% a$ blstSer (cons (list StrDrive SerialNumber) lstSer)
. `+ {3 R& Y& |3 O8 _, f1 Y)
)
6 c1 G# `' U  }# H% r8 K/ Y1 };;;(setq code (chr (1+ (ascii code))))  注释掉此行
1 t) R8 ~) L# k  b. Z( s; K9 I;;;) 注释掉此行
;; relese object .
(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
" ]4 c) ~2 e- ]7 ~  d;; return the value .
(princ(reverse lstSer))
)


1 z: j4 H' i8 q! ]你把循环部分注释掉，不就只得到C盘的SN了吗？
9 }% g' m: c. O( R
[ 本帖最后由 sealive_leafage 于 2007-7-23 14:39 编辑 ]

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
' p5 }2 {4 q/ P) h! V6 W  (vl-load-com)
  (setq code "C")
* O* U4 b# S8 i. I  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
9 @0 Z+ B) n) r8 f  )
  H, \2 {" e3 |5 f# S* D& e; N  ;; iterator the HardDisk for the SerialNumber .
  (setq StrDrive (strcat code ":"))
  (if (and (setq Drive (vl-catch-all-apply
% }$ S4 m* Q$ z- r    'vlax-get-property
5 O$ H' L6 x6 s, e' c2 v2 P+ Y    (list Drives "Item" StrDrive)
. {+ j" n- ]7 N/ S0 w3 P2 {. C# U0 D         )
    )
    (not (vl-catch-all-error-p Drive))
    (vlax-property-available-p Drive "DriveType")
+ r2 w! k) y( _) k    (equal (vlax-get-property Drive "DriveType") 2)
    (vlax-property-available-p Drive "SerialNumber")
    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
) E$ d4 J0 G0 X' N7 ^* |' y  r      )
    (princ (rtos SerialNumber 2 0))
  )
  ;; relese object .
) W& `0 p, d- J8 y  (vl-catch-all-apply 'vlax-release-object (list FSO))
3 k3 J0 a* ?: C0 Q0 }0 e$ N6 L  (vl-catch-all-apply 'vlax-release-object (list Drives))
# ?9 B3 t# z' d! k( P)
8 l+ X* x- ~$ N: @/ z9 u
建议你多看看LISP语法！
2 }* H* ?. W# a* |7 i% ~
* G- J: {( T/ q! l! p& P. i[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]