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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
1 ~& H0 M7 m! [" d/ T  o- c(vl-load-com)
( q( y+ D; N- V# }% ?(setq code "C"
) L- T6 _2 }* r' ?(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
)
(setq lstSer '())
) a$ Y8 T  g- T# c6 \4 y% [) u;; iterator the HardDisk for the SerialNumber .
! o& h/ H9 I! M# C5 b;;;(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))
' k7 K) u: k4 Q/ F5 {1 F0 v: B(vlax-property-available-p Drive "DriveType")
' Q9 U7 I- Z2 g9 z6 Y1 q(equal (vlax-get-property Drive "DriveType") 2)
(vlax-property-available-p Drive "SerialNumber")
(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
# P; P$ I+ g& Z$ e: U)
(setq SerialNumber (rtos SerialNumber 2 0)
lstSer (cons (list StrDrive SerialNumber) lstSer)
  g$ a$ ]; H. L# t5 b8 J# Q! h)
  A- }4 B9 ]9 e$ D  a( Y: d( y' x)
;;;(setq code (chr (1+ (ascii code))))  注释掉此行
;;;) 注释掉此行
% C9 t7 X8 e# b# I8 U( h; A4 `;; relese object .
( V9 C, y0 D% w/ \. U* R(vl-catch-all-apply 'vlax-release-object (list FSO))
0 n; D. O5 f; ?- I(vl-catch-all-apply 'vlax-release-object (list Drives))
  N/ K/ n; u  Y! g( \; R;; return the value .
  l$ @. n- h3 v$ R(princ(reverse lstSer))
)
2 p$ U) {3 @$ n0 I0 `$ l

你把循环部分注释掉，不就只得到C盘的SN了吗？

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

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
3 D6 v% |  T( B+ P1 o( \  (vl-load-com)
& o( l5 g8 \4 g8 t2 {  (setq code "C")
: a. j8 I: G+ ]  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
" c8 ^3 q! d4 I0 Q  )
  ;; iterator the HardDisk for the SerialNumber .
9 L/ T+ n. g4 U0 f2 s3 s+ W  (setq StrDrive (strcat code ":"))
* n- c  [, d3 Q6 [* d! l  (if (and (setq Drive (vl-catch-all-apply
    'vlax-get-property
    (list Drives "Item" StrDrive)
) O  C0 j5 d$ `8 J. h! c         )
& A0 P1 l6 |! g5 _& ]    )
    (not (vl-catch-all-error-p Drive))
, R/ }# m. K9 w, w% U" G' b0 J    (vlax-property-available-p Drive "DriveType")
9 o6 I  b& d- V  E6 q$ q% k% A    (equal (vlax-get-property Drive "DriveType") 2)
    (vlax-property-available-p Drive "SerialNumber")
( |3 W+ v8 f  t0 M- p! N7 l    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
) ~9 k' \$ D' k0 h$ _      )
    (princ (rtos SerialNumber 2 0))
: W$ j" u5 A/ _  )
$ \! k' i0 _9 E2 f, V8 o1 P, i  ;; relese object .
  (vl-catch-all-apply 'vlax-release-object (list FSO))
1 v/ s% R1 \7 c+ S7 i  (vl-catch-all-apply 'vlax-release-object (list Drives))
0 Q! O- z0 D/ j/ d# n8 d& J8 a)
. A- Q' U% r! n2 ^. d' s& o- {% K# P
建议你多看看LISP语法！
. W2 ?! W. s1 @. t
+ O9 h8 c" C/ ?) X! D( I* q/ z& Q[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]