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

sealive_leafage

(Defun C:phyhar (/ code code Drives lstSer StrDrive SerialNumber)
& m7 K! h: f: Z- Z8 `  M(vl-load-com)
! R: b% q% t  r8 ?( x(setq code "C"
# I7 Y; x# I0 r, e(setq FSO (vlax-create-object "Scripting.FileSystemObject")
5 d5 `$ v4 [- K% ^+ cDrives (vlax-get-property FSO "Drives")
! s# Q* J! p- W- A- M)
1 O2 k" t# W1 H9 T- {2 }8 Z(setq lstSer '())
8 U+ M8 _, j, {" `3 b;; iterator the HardDisk for the SerialNumber .
;;;(repeat (vlax-get-property Drives "Count") 注释掉此行
+ z! ]5 t$ ]$ h* m1 h9 N- B: x6 y1 z1 k(setq StrDrive (strcat code ":"))
, P0 B8 V# S  D(if (and (setq Drive (vl-catch-all-apply 'vlax-get-property (list Drives "Item" StrDrive)))
, P$ v# I, f. Z3 v2 F, Q(not (vl-catch-all-error-p Drive))
9 i) D+ w& B, }, Z' G(vlax-property-available-p Drive "DriveType")
" }: u  Y& n  _(equal (vlax-get-property Drive "DriveType") 2)
(vlax-property-available-p Drive "SerialNumber")
& B3 F( F+ V% [; t* Y(setq SerialNumber (vlax-get-property Drive "SerialNumber"))
2 t7 Q# m, u4 Z)
(setq SerialNumber (rtos SerialNumber 2 0)
lstSer (cons (list StrDrive SerialNumber) lstSer)
" s6 m( v# Q7 M: T4 g)
)
( s' Z, T! |- R;;;(setq code (chr (1+ (ascii code))))  注释掉此行
;;;) 注释掉此行
;; relese object .
% q' \8 e2 w0 ~(vl-catch-all-apply 'vlax-release-object (list FSO))
(vl-catch-all-apply 'vlax-release-object (list Drives))
$ J+ A& E. ^5 x. M;; return the value .
% \+ e' l5 n# M! T) {" v7 ~(princ(reverse lstSer))
5 a( q4 h! Z- G3 N! d6 C)

: T4 B( A  ]1 [! E7 b! W( \
你把循环部分注释掉，不就只得到C盘的SN了吗？

; r7 e+ }6 a# U4 m# h4 Z[ 本帖最后由 sealive_leafage 于 2007-7-23 14:39 编辑 ]

sealive_leafage

(Defun C:phyhar (/ code Drives Drive StrDrive)
# |7 r3 ?8 ~) \! `# ^( _  (vl-load-com)
  (setq code "C")
' y% I% `: i6 ^1 r6 @  (setq FSO    (vlax-create-object "Scripting.FileSystemObject")
Drives (vlax-get-property FSO "Drives")
  )
  ;; iterator the HardDisk for the SerialNumber .
  (setq StrDrive (strcat code ":"))
- u% Z! \, d& q* Z  (if (and (setq Drive (vl-catch-all-apply
    'vlax-get-property
    (list Drives "Item" StrDrive)
         )
    )
    (not (vl-catch-all-error-p Drive))
9 I: s* o+ D, q+ _# C    (vlax-property-available-p Drive "DriveType")
0 \. o7 H/ f! Q: t; X" Y    (equal (vlax-get-property Drive "DriveType") 2)
5 B( Y4 u! D1 D  C    (vlax-property-available-p Drive "SerialNumber")
$ {8 L, H: X8 O$ u# z9 D1 q) P  m+ c    (setq SerialNumber (vlax-get-property Drive "SerialNumber"))
+ U8 T9 X' |2 i# C" G6 {. j/ \2 c      )
$ X2 @1 i+ H9 _% _4 ?5 i9 x5 r    (princ (rtos SerialNumber 2 0))
+ a  n: L( L4 ~  )
+ W* K8 H9 h& k: a$ K" w' r  ;; relese object .
  (vl-catch-all-apply 'vlax-release-object (list FSO))
* J1 n5 G6 D- N1 M+ `2 J  (vl-catch-all-apply 'vlax-release-object (list Drives))
)
' a( k6 t5 T# D
建议你多看看LISP语法！

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