求助：lisp读取excel单元格出问题

gamexia

利用excel数据，插入块，cad 返回这个错误: no function definition: MSXL-GET-RANGE
是啥问题，帮看看
excel路径：
"C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE"

2. (defun c:mapan ()
   
3.   (vl-load-com)
   
4.   (setq exname "d:\\ABC.xls")
   
5.   (setq *excel* (vlax-create-object "excel.application"))
   
6.   (setq *xlapp* (vlax-invoke-method (vlax-get-property *excel* 'Workbooks) 'Open exname))
   
7.   (vla-put-visible *excel* 1)  ;;显示工作表
   
8.   (setq *sheet* (vlax-get-property (vlax-get-property *xlapp* 'Worksheets) 'item "DEF"))
   
9. 
   
10. 
    
11. (setq pt (getpoint "\n选择需要插入块的基点:"))
    
12.   (setq mm 2) ;mm从第二行开始
    
13. 
    
14. (repeat 1080
    
15. ;;;从EXCEL的C列mm行读取块名
    
16.   (setq    km (Ljx-read-excel-data  "C" mm *sheet* ))
    
17. ;;;从excel的B列mm行读取角度
    
18.   (setq jiaodu (Ljx-read-excel-data "B" mm *sheet*))
    
19.    (command "_insert" km pt 1 1 jiaodu );以pt为基点插入指定块，x比例1，y比例1，角度为指定jiaodu
    
20. 
    
21.    (setq mm (1+ mm))
    
22.   )
    
23.   
    
24.   (vlax-invoke-method (vlax-get-property *excel* "ActiveWorkbook") 'Close 0)
    
25.   (vlax-invoke-method *excel* 'QUIT)
    
26.   (vlax-release-object *sheet*)
    
27.   (vlax-release-object *xlapp*)
    
28. )
    
29. ;;;;;读取数excel数据函数
    
30. (defun Ljx-read-excel-data1 (vv hor sh) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet
    
31.   (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2))
    
32. )
    
33. 
    
34. ;;;;;读取数excel数据函数输出text格式
    
35. (defun Ljx-read-excel-text1 (vv hor sh /  ru) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet
    
36.   (vl-princ-to-string (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2)))
    
37. )
    
38. (defun ljx-vlxls-get-range-value1 ( sheet rangeid / range value valuelist )
    
39.   (setq range (vlax-get-property sheet 'Range rangeid))
    
40.   (setq value (vlax-get-property range 'Value2))
    
41.   (cond
    
42.     ((= (vlax-variant-type value)  8204);;;为数组时，即为区域;
    
43.         (progn
    
44.           (setq value (vlax-safearray->list(vlax-variant-value value)))
    
45.           (setq valuelist (mapcar (function (lambda (x) (mapcar 'vlax-variant-value x))) value))
    
46.         )
    
47.     )
    
48.     ( T;;;;为单个单元格;
    
49.       (setq valuelist (vlax-variant-value value))
    
50.     )
    
51.   );;;;cond
    
52.   valuelist
    
53. )
    

(defun c:mapan ()<br />   (vl-load-com)<br />   (setq exname "d:\\ABC.xls")<br />   (setq *excel* (vlax-create-object "excel.application"))<br />   (setq *xlapp* (vlax-invoke-method (vlax-get-property *excel* 'Workbooks) 'Open exname))<br />   (vla-put-visible *excel* 1)  ;;显示工作表<br />   (setq *sheet* (vlax-get-property (vlax-get-property *xlapp* 'Worksheets) 'item "DEF"))<br /> <br /> <br /> (setq pt (getpoint "\n选择需要插入块的基点:"))<br />   (setq mm 2) ;mm从第二行开始<br /> <br /> (repeat 1080<br /> ;;;从EXCEL的C列mm行读取块名<br />   (setq    km (Ljx-read-excel-data  "C" mm *sheet* ))<br /> ;;;从excel的B列mm行读取角度<br />   (setq jiaodu (Ljx-read-excel-data "B" mm *sheet*))<br />    (command "_insert" km pt 1 1 jiaodu );以pt为基点插入指定块，x比例1，y比例1，角度为指定jiaodu<br /> <br />    (setq mm (1+ mm))<br />   )<br />   <br />   (vlax-invoke-method (vlax-get-property *excel* "ActiveWorkbook") 'Close 0)<br />   (vlax-invoke-method *excel* 'QUIT)<br />   (vlax-release-object *sheet*) <br />   (vlax-release-object *xlapp*)<br /> )<br /> ;;;;;读取数excel数据函数<br /> (defun Ljx-read-excel-data1 (vv hor sh) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet<br />   (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2))<br /> )<br /> <br /> ;;;;;读取数excel数据函数输出text格式<br /> (defun Ljx-read-excel-text1 (vv hor sh /  ru) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet<br />   (vl-princ-to-string (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2)))<br /> )<br /> (defun ljx-vlxls-get-range-value1 ( sheet rangeid / range value valuelist )<br />   (setq range (vlax-get-property sheet 'Range rangeid))<br />   (setq value (vlax-get-property range 'Value2))<br />   (cond<br />     ((= (vlax-variant-type value)  8204);;;为数组时，即为区域;<br />         (progn<br />           (setq value (vlax-safearray->list(vlax-variant-value value)))<br />           (setq valuelist (mapcar (function (lambda (x) (mapcar 'vlax-variant-value x))) value))<br />         )<br />     )<br />     ( T;;;;为单个单元格;<br />       (setq valuelist (vlax-variant-value value))<br />     )<br />   );;;;cond<br />   valuelist<br /> )<br />

kozmosovia

这是因为没有加载Excel的 typelib导致的，不过可以找到错误代码位置，用vlax-get改写一下，就不需要msxl开头的函数了。我印象中不久之前有个帖子里我说过。你可以搜一下
要定位你的Excel.exe
(setq tlb  "d:\\Program Files\\Microsoft Office\\Office12\\Excel.exe")
(vlax-import-type-library
  :tlb-filename      tlb  :methods-prefix
  "msxl-"      :properties-prefix "msxl-"
  :constants-prefix  "msxl-"
)

烟盒迷唇

翻译一下就知道是缺少这个函数了

Scarlet2001

第十五行
(setp    km (Ljx-read-excel-data  "C" mm *sheet* ))
setq好像打成step了

gamexia

Scarlet2001 发表于 2024-11-20 17:31
第十五行
(setp    km (Ljx-read-excel-data  "C" mm *sheet* ))
setq好像打成step了

第十五行setq 我修改了，还是不行，报错: no function definition: MSXL-GET-RANGE

gamexia

定位Excel.exe后
又显示 错误: 参数类型错误: VLA-OBJECT nil

gamexia

我搜索了下，用活动的excel就可以了

2. (defun c:mapan ()
   
3.   (vl-load-com)
   
4.   ;;简单示例lisp读取excel里的数据（没有判断容错功能）by snddd2000 2011-11-17
   
5.   (setq excelapp0 (vlax-get-object "Excel.Application"))
   
6.   ;;excel程序对象，没开excel下边的都是白搭
   
7.   (setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook))
   
8.   ;;excel工作簿对象
   
9.   (setq activesheet0 (vlax-get-property activeworkbook0 'ActiveSheet))
   
10.   ;;excel工作表对象
    
11.   (setq cells0 (vlax-get-property activesheet0 'cells))
    
12. 
    
13.   ;;获取excel单元格对象的示例 (get-cell 3 2) ;;;3是指3横行，2是指B竖列
    
14.   (setq mm 2) ;mm从第二行开始
    
15.   (setq pt (getpoint "\n选择需要插入块的基点:"))
    
16.   (setq mm 2) ;mm从第二行开始
    
17.   
    
18.   (repeat 1080
    
19.     (setq km (get-cell mm 3))
    
20.     (setq km (rtos km));转字符串   
    
21.     (setq jiaodu (get-cell mm 2))
    
22.    ; (setq jiaodu (rtos jiaodu))
    
23.     (command "_insert" km pt 1 1 jiaodu );以pt为基点插入指定块，x比例1，y比例1，角度为指定jiaodu
    
24.     (setq mm (1+ mm))   
    
25.   )
    
26.           
    
27. )
    
28. 
    
29. 
    
30. (defun get-cell (row col)
    
31.     (setq a1 (vlax-get-property    cells0   'item row col))
    
32.     ;;A1单元格对象
    
33.     (setq  a1-value
    
34.        (vlax-variant-value
    
35.          (vlax-get-property (vlax-variant-value a1) 'value)
    
36.          ;;或者'value
    
37.        )
    
38.     )
    
39.     ;;单元格里面的值里的值
    
40.     a1-value
    
41.   )

(defun c:mapan ()<br />   (vl-load-com)<br />   ;;简单示例lisp读取excel里的数据（没有判断容错功能）by snddd2000 2011-11-17<br />   (setq excelapp0 (vlax-get-object "Excel.Application"))<br />   ;;excel程序对象，没开excel下边的都是白搭<br />   (setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook))<br />   ;;excel工作簿对象<br />   (setq activesheet0 (vlax-get-property activeworkbook0 'ActiveSheet))<br />   ;;excel工作表对象<br />   (setq cells0 (vlax-get-property activesheet0 'cells))<br /> <br />   ;;获取excel单元格对象的示例 (get-cell 3 2) ;;;3是指3横行，2是指B竖列<br />   (setq mm 2) ;mm从第二行开始<br />   (setq pt (getpoint "\n选择需要插入块的基点:"))<br />   (setq mm 2) ;mm从第二行开始<br />   <br />   (repeat 1080<br />     (setq km (get-cell mm 3))<br />     (setq km (rtos km));转字符串    <br />     (setq jiaodu (get-cell mm 2))<br />    ; (setq jiaodu (rtos jiaodu))<br />     (command "_insert" km pt 1 1 jiaodu );以pt为基点插入指定块，x比例1，y比例1，角度为指定jiaodu<br />     (setq mm (1+ mm))    <br />   )<br />            <br /> )<br /> <br /> <br /> (defun get-cell (row col)<br />     (setq a1 (vlax-get-property    cells0   'item row col))<br />     ;;A1单元格对象<br />     (setq  a1-value<br />        (vlax-variant-value<br />          (vlax-get-property (vlax-variant-value a1) 'value)<br />          ;;或者'value<br />        )<br />     )<br />     ;;单元格里面的值里的值<br />     a1-value<br />   )