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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
# [2 M% l7 r1 A3 ?) b( h% M( f  W(vl-load-com)
+ n5 H" F4 D" w  H" A( b$ Z6 S% Q$ N3 D(setq code "C"
) D7 O5 B- |% m# p3 p(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
$ F0 W! W5 J6 m7 z4 {$ k)
(setq lstSer '())
;; iterator the HardDisk for the SerialNumber .
7 Q/ _) l$ K% H+ T/ A;;;(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)))
% x1 ^8 D1 s- \6 C(not (vl-catch-all-error-p Drive))
(vlax-property-available-p Drive "DriveType")
4 v2 i& J; H3 j# r(equal (vlax-get-property Drive "DriveType") 2)
(vlax-property-available-p Drive "SerialNumber")
( F. w4 F' _; o# K, p8 S! c8 w' z(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
)
(setq SerialNumber (rtos SerialNumber 2 0)
lstSer (cons (list StrDrive SerialNumber) lstSer)
0 f3 z+ y! v% e1 h1 U)
)
;;;(setq code (chr (1+ (ascii code))))  注释掉此行
: I9 ]" z2 w3 I( n" s0 r; ?;;;) 注释掉此行
% P1 U: u8 X. q& x9 }3 m, c  W;; relese object .
  ?7 R0 A* @- b/ z(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
1 w$ N' V8 M; _8 J# |6 d+ D" e;; return the value .
; `, U; D4 E$ G- l+ F' f1 K$ G/ D(princ(reverse lstSer))
)
. k5 U' H. f4 |; o% J8 Q

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

4 S7 P7 M0 f& j* T[ 本帖最后由 sealive_leafage 于 2007-7-23 14:39 编辑 ]

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
  G+ l$ l. T4 p4 F  (vl-load-com)
  (setq code "C")
  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
3 b  r8 X0 Z7 o% F0 ADrives (vlax-get-property FSO "Drives")
7 S, E0 P7 N/ ~. a- o: Y  )
% c6 ?4 T' j2 N- H% d  ;; iterator the HardDisk for the SerialNumber .
) j  T$ B% q# H  (setq StrDrive (strcat code ":"))
/ a& `- R* a8 l  (if (and (setq Drive (vl-catch-all-apply
& M$ ^5 E1 _  }/ i0 n( L    'vlax-get-property
    (list Drives "Item" StrDrive)
         )
    )
    (not (vl-catch-all-error-p Drive))
- [1 `$ O" x& p3 g) Q, b6 |    (vlax-property-available-p Drive "DriveType")
    (equal (vlax-get-property Drive "DriveType") 2)
    (vlax-property-available-p Drive "SerialNumber")
  U/ n; u! ~" l) |. v    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
9 E+ J6 o5 @4 U$ V8 k8 f  e' j3 p      )
    (princ (rtos SerialNumber 2 0))
  )
5 A, I+ D! }9 Z/ V8 Z  ;; relese object .
  (vl-catch-all-apply 'vlax-release-object (list FSO))
  (vl-catch-all-apply 'vlax-release-object (list Drives))
' I$ S/ G' g0 }  q. r)

建议你多看看LISP语法！

. b* g* W6 z* O& h6 x, ~, O( U[ 本帖最后由 sealive_leafage 于 2007-7-23 20:59 编辑 ]