请教如何用LISP程序读取电子表格excel中的数据？

xqyhome

请教如何用LISP程序读取电子表格excel中的数据？

mmmmmm

参考http://www.ikozmos.com 中的VLXLS

bestlike

怎么写入那？比如说在ACAD中，有一些文字，按照我点选的顺序以次存入EXCEL中，且在E中是按列排序，就是输入一个，回车自动，输入一个，自动回车……选定第一个单元格，然后以次写入它下面的一列单元格。

sieben

(defun exl-pro (/ exl-app exl-workb exl-file exl-sheet exl-rep1 exl-cont exl-t2 exl-rep2 exl-list2 exl-val)
(if exl-road
(setq exl-road (getfiled "Select a Excel file " exl-road "xls" 0))
(setq exl-road (getfiled "Select a Excel file " "" "xls" 0))
)
(if (not exl-road)
(start-end nil)
)
(princ "\nReading file !!! Please Wait ..........")
(setq exl-app (vlax-get-or-create-object "EXCEL.application"))
(if (not exl-app)
(progn
(alert "\nThis computer hasn't setup EXCEL application !!!")
(start-end nil)
)
)
(if (equal nil msEC-XLBAR)
(vlax-import-type-library
:tlb-filename
(strcat (vlax-get-property exl-app "Path") "\\xl5cht32.olb")
:methods-prefix
"MSEM-"
:properties-prefix
"MSEP-"
:constants-prefix
"MSEC-"
)
)
(vlax-put-property exl-app "DisplayFullScreen" :vlax-true)
(vlax-put-property exl-app "DisplayFullScreen" :vlax-false)
(setq exl-workb (vlax-get-property exl-app "workbooks")
exl-file (msem-open exl-workb exl-road)
exl-sheet (vlax-get-property exl-file "activesheet")
)
(setq exl-rep1 2
exl-list1 nil
exl-cont t
)
(while exl-cont
(setq exl-t2 (itoa exl-rep1)
exl-rep2 0
exl-list2 nil
)
(repeat 6
(setq exl-t1 (chr (+ 65 exl-rep2))
exl-t3 (strcat exl-t1 exl-t2 ":" exl-t1 exl-t2)
)
(setq exl-val (vlax-variant-value (vla-get-value (vlax-get-property exl-sheet "range" exl-t3))))
(if exl-val
(if (= exl-rep2 0)
(setq exl-list2 (cons (fix exl-val) exl-list2))
(setq exl-list2 (cons exl-val exl-list2))
)
(setq exl-cont nil)
)
(setq exl-rep2 (1+ exl-rep2))
)
(setq exl-list1 (cons (reverse exl-list2) exl-list1))
(setq exl-rep1 (1+ exl-rep1))
)
(setq exl-list1 (reverse (cdr exl-list1)))
(msem-close exl-file)
(vla-quit exl-app)
(princ)
) 这是一个从Excel读入数据的子程序,希望能帮到你

spshchen

我好像运行不了呀。埃 看看lisp还能看看，加了VLA－等的东西感觉就复杂了，看也看不懂