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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
(vl-load-com)
6 O; j; a2 X( F(setq code "C"
(setq FSO (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
: U: J) I; h/ @8 V)
(setq lstSer '())
;; iterator the HardDisk for the SerialNumber .
;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
2 K" f: i8 C! @4 c! {  {3 j(setq StrDrive (strcat code ":"))
- |% W. J/ A4 x" G( b(if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))
) {* T& g2 L& i* H( H4 Q(not (vl-catch-all-error-p Drive))
(vlax-property-available-p Drive "DriveType")
9 g) w! ^  [" x* ~(equal (vlax-get-property Drive "DriveType") 2)
; _/ y2 S. E& j2 h; k2 b" d(vlax-property-available-p Drive "SerialNumber")
(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
' R9 S6 r1 h3 l! n4 F& t)
(setq SerialNumber (rtos SerialNumber 2 0)
lstSer (cons (list StrDrive SerialNumber) lstSer)
! G9 t( w9 z$ e( \; H7 g)
7 o# q! C8 E  N0 a)
;;;(setq code (chr (1+ (ascii code))))  注释掉此行
;;;) 注释掉此行
;; relese object .
(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
  g0 @, G, j* c9 W;; return the value .
4 B' M9 u% f) |* W(princ(reverse lstSer))
)


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

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

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
' U" o9 r( Z; p- R* Z# ~  (vl-load-com)
- v/ ~% `' o8 D0 f0 o  (setq code "C")
% I; I1 A% h7 O. ?; v! B  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
( G) ]/ _7 @1 M1 V8 K' z: VDrives (vlax-get-property FSO "Drives")
  )
  ;; iterator the HardDisk for the SerialNumber .
  (setq StrDrive (strcat code ":"))
  (if (and (setq Drive (vl-catch-all-apply
    'vlax-get-property
    (list Drives "Item" StrDrive)
         )
; I  V8 i2 k3 y- }; b    )
    (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")
4 F* N4 P5 {+ K/ z! J; j    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
5 B$ H' z# v$ f7 A      )
    (princ (rtos SerialNumber 2 0))
  )
6 ~: Y7 s# u/ V! h  ;; relese object .
8 h* G, a+ O5 m2 |  (vl-catch-all-apply 'vlax-release-object (list FSO))
# i5 b5 y# j/ b) C% ~9 [  (vl-catch-all-apply 'vlax-release-object (list Drives))
! v5 ]: p- S8 `/ V)

6 p2 ^) e- J6 ~' h建议你多看看LISP语法！

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