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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
(vl-load-com)
(setq code "C"
! Z* G9 [  P4 u. w! V) S6 \(setq FSO (vlax-create-object "Scripting.FileSystemObject")
8 v; N/ J6 G% C! i% K$ xDrives (vlax-get-property FSO "Drives")
6 O9 v0 @  n& N- c)
: v. G# W# n0 I0 u(setq lstSer '())
) s: o2 U9 U2 z" a/ l- L; x;; iterator the HardDisk for the SerialNumber .
;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
5 f' s# U# }/ ~& f+ L0 x(setq StrDrive (strcat code ":"))
: }0 s7 Z  s! S. Q: P/ J(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)
(vlax-property-available-p Drive "SerialNumber")
(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
$ x) q/ `) t7 F4 l$ e)
(setq SerialNumber (rtos SerialNumber 2 0)
9 Q- x6 Q: T( Y$ S4 BlstSer (cons (list StrDrive SerialNumber) lstSer)
/ s/ ]1 D& c7 d9 ^+ |)
)
;;;(setq code (chr (1+ (ascii code))))  注释掉此行
3 w8 X; P5 e, L* T  u9 U5 \;;;) 注释掉此行
% B1 F' V  Y) D: E1 h;; relese object .
(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
;; return the value .
(princ(reverse lstSer))
)


' x! x# q3 e4 J! q) T你把循环部分注释掉，不就只得到C盘的SN了吗？

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

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
; g6 k/ l7 T' Q  (vl-load-com)
% @6 S- S( x4 Y/ C' L# S' z7 D  (setq code "C")
- e/ b3 a7 `: j1 g  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
  )
- X/ B$ M+ h, @: g3 ~3 V  ;; iterator the HardDisk for the SerialNumber .
  (setq StrDrive (strcat code ":"))
; n0 o" z& A4 g  (if (and (setq Drive (vl-catch-all-apply
# m2 x! j. Z3 ~2 q2 }1 U; z3 o    'vlax-get-property
    (list Drives "Item" StrDrive)
& @# j% U7 t$ a( Y0 {         )
    )
    (not (vl-catch-all-error-p Drive))
6 d" W# N! H, u9 s7 G1 q; Z+ ]( {& {    (vlax-property-available-p Drive "DriveType")
    (equal (vlax-get-property Drive "DriveType") 2)
8 K5 x$ _3 c  `    (vlax-property-available-p Drive "SerialNumber")
/ S, J0 H% w# P$ [; H+ U! w( Y* H    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
) P- f, h$ C( r; n0 k9 _      )
    (princ (rtos SerialNumber 2 0))
  )
  R8 O/ {4 y# D; Z" B8 A  ;; relese object .
  (vl-catch-all-apply 'vlax-release-object (list FSO))
  (vl-catch-all-apply 'vlax-release-object (list Drives))
; O6 ?0 C6 Z3 b+ P7 H8 M- s)
& W# o+ R5 j3 n" g& H, G6 L
) L, c' r- r) O& x" ^3 _8 F建议你多看看LISP语法！
  o6 R9 t7 V; }/ W4 _
[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]