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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
4 j$ a& R' n6 G(vl-load-com)
(setq code "C"
(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
)
(setq lstSer '())
;; iterator the HardDisk for the SerialNumber .
' I) g$ `1 F5 F, x2 Y+ L$ V;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
, S, ~1 ]( I, c: T; R8 `$ w(setq StrDrive (strcat code ":"))
7 |+ o! I0 X3 a+ m6 c3 I, n(if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))
7 o( m! h; |1 S0 D. f' Q3 r5 a6 ^& X0 r$ n6 |(not (vl-catch-all-error-p Drive))
2 `) _+ H" t* U8 k(vlax-property-available-p Drive "DriveType")
(equal (vlax-get-property Drive "DriveType") 2)
! T6 i% q4 F0 }' x2 B(vlax-property-available-p Drive "SerialNumber")
5 x6 J' |. }' l, ~9 s% N" D(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
8 }2 W: L  c4 [6 F5 c)
2 v& g: W; N0 H1 n(setq SerialNumber (rtos SerialNumber 2 0)
lstSer (cons (list StrDrive SerialNumber) lstSer)
)
% |! l; V7 Y1 I; \, K3 z)
+ `9 u4 }4 `& O; H# J8 `' a5 U;;;(setq code (chr (1+ (ascii code))))  注释掉此行
;;;) 注释掉此行
;; relese object .
(vl-catch-all-apply 'vlax-release-object (list FSO))
! ?0 q7 P& ?) v% R* u7 d(vl-catch-all-apply 'vlax-release-object (list Drives))
6 ~# O1 b& j% _3 \5 y/ s9 U5 j; N;; return the value .
4 q! m8 t% i8 i0 Q9 h* U(princ(reverse lstSer))
)

/ }- Y3 R8 B( s* |+ n3 g
你把循环部分注释掉，不就只得到C盘的SN了吗？

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

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
9 h9 o' d4 F& B1 E# J  (vl-load-com)
3 s! P( L: s% Z5 U  (setq code "C")
  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
  )
4 C$ z0 _. ~! B: n- I% B  ;; iterator the HardDisk for the SerialNumber .
- w+ x/ F$ B9 W! X6 D' ?  (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)
    (vlax-property-available-p Drive "SerialNumber")
2 V  K+ d8 x8 k1 S+ |    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
6 W6 h- j! f2 j- E3 x0 |% G0 I      )
    (princ (rtos SerialNumber 2 0))
  )
- e% c- B2 h) E$ X  ;; relese object .
# W' A$ \. v3 H4 y+ N) O# P  (vl-catch-all-apply 'vlax-release-object (list FSO))
  (vl-catch-all-apply 'vlax-release-object (list Drives))
0 o. h$ H! T5 k$ t/ F( ~)

建议你多看看LISP语法！
7 S0 R4 y) q3 n& O5 U4 H& x
: O  A! U, @9 c; j( o[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]