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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
(vl-load-com)
- A& m% @( M* j$ n4 \% Q" R% Y1 I. [(setq code "C"
+ |" e! O7 |( |# u3 s! S1 T( x(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
( B# |( y* |5 E) _)
(setq lstSer '())
;; iterator the HardDisk for the SerialNumber .
9 D9 N8 u" N% z;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
(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")
# a* S/ p' ?% i1 M) y(equal (vlax-get-property Drive "DriveType") 2)
4 z2 n: {8 y" B* ]" ~(vlax-property-available-p Drive "SerialNumber")
, T, P' w* s' G. Q(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
* c3 }3 P; g, L)
& t* Q+ r' L" t( S4 M  {, H(setq SerialNumber (rtos SerialNumber 2 0)
lstSer (cons (list StrDrive SerialNumber) lstSer)
)
)
* }+ {" z+ I# _  w* E" r' O;;;(setq code (chr (1+ (ascii code))))  注释掉此行
;;;) 注释掉此行
;; relese object .
0 E* U+ G  `/ `  \5 O: w( U7 M(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
1 N) }: o5 L- X& g;; return the value .
( |; h, U1 Y) X0 z, D(princ(reverse lstSer))
2 R6 h  W  u2 G8 U9 A7 S)
+ r0 S7 Y2 i& j3 Z6 U

) f0 I" ]. v6 r5 m你把循环部分注释掉，不就只得到C盘的SN了吗？

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

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
  (vl-load-com)
0 X- w; V4 A( P( X$ ]  (setq code "C")
  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
' s* W6 }# C$ D; S& N2 {  )
$ g0 I- B6 E  m  ~0 k, ~  ;; iterator the HardDisk for the SerialNumber .
9 B4 G2 t( d7 p; o+ j! v3 V: Z/ S  (setq StrDrive (strcat code ":"))
( Q- y% _, W7 E  k% p  (if (and (setq Drive (vl-catch-all-apply
    'vlax-get-property
; R6 ]2 D9 n2 O  o; z" h3 P    (list Drives "Item" StrDrive)
         )
( G; `! }6 H, Z) a4 G, h2 p    )
    (not (vl-catch-all-error-p Drive))
    (vlax-property-available-p Drive "DriveType")
# Q+ |$ M6 q" i; U# Y8 _# t8 }  `    (equal (vlax-get-property Drive "DriveType") 2)
    (vlax-property-available-p Drive "SerialNumber")
' i( B' B- G' s    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
. k& ~. w* ?# ~9 Y  S9 f; L      )
2 C5 W* m3 ]* S" o/ A4 W! I3 r7 R    (princ (rtos SerialNumber 2 0))
  )
7 F' P4 v$ S0 }$ }+ h  ;; relese object .
8 S- l: X# w$ x* A7 n  (vl-catch-all-apply 'vlax-release-object (list FSO))
3 ~: _: r% X; ^( @  (vl-catch-all-apply 'vlax-release-object (list Drives))
)
# R/ S9 m$ d4 A
建议你多看看LISP语法！
. j8 x% J2 v3 A0 U8 Q
[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]