XDExcel 解析库应用(3)--输出图层状态到Excel和从Exce输入图层模板

牢固

刚刚拿到最新的XDEX_API Excel函数库,顺手写了将CAD图层状态输出到Excel文件和从Excel文件输入图层模板到CAD的测试:

1. ;;Excel测试,保存图层状态到Excel文件
   
2. (defun c:tt (/ xlsfilename l)
   
3.   (if (setq xlsfilename (getfiled "" "" "xls;xlsx" 1))
   
4.     (progn
   
5.       (xdex_book_open)                       ; _ 创建一个新的内存XLS文件
   
6.       (xdex_book_addsheet "图层状态表" T) ; _ 创建一个表格"图层状态表",并设?
   
7.                                        ; 梦?鼻氨砀?
   
8.       (setq l (list (list "Name" "Colour" "Linetype" "Lineweight" "Plot"
   
9.                           "Description"
   
10.                     )
    
11.               )
    
12.       )
    
13.       (vlax-for la (vla-get-layers (vla-get-ActiveDocument
    
14.                                                            (vlax-get-acad-object)
    
15.                                    )
    
16.                    ) (setq l (cons (list (vla-get-name la)
    
17.                                          (vla-get-color la)
    
18.                                          (vla-get-Linetype la)
    
19.                                          (vla-get-Lineweight la)
    
20.                                          (if (= :vlax-true
    
21.                                                 (vla-get-Plottable la)
    
22.                                              )
    
23.                                            1
    
24.                                            0
    
25.                                          ) (vla-get-Description la)
    
26.                                    ) l
    
27.                              )
    
28.                      )
    
29.       )
    
30.       (XDEx_Cell_WriteRange 0 0 (reverse l))
    
31.       (XDEx_Book_save xlsfilename)
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )
    
36. 
    
37. ;;将图层状态从Excel文件输入到CAD
    
38. (defun c:tt1 ()
    
39.   (if (setq xlsfilename (getfiled "" "" "xls;xlsx" 4))
    
40.     (progn
    
41.       (xdex_book_open xlsfilename)     ; _ 打开XLS文件
    
42.       (xdex_book_setActiveSheet "图层状态表") ; _ 将表设置为当前表
    
43.       (setq l (xdex_cell_readRange))
    
44.       (xdex_book_close)
    
45.       (foreach x (cdr l)
    
46.         (setq la (xdrx_layer_make (cadr (nth 0 x)) (fix (cadr (nth 1 x))))) ; _ 创建图层
    
47.         (xdrx_setpropertyvalue la "LineType" (cadr (nth 2 x))) ; 设置线型
    
48.         (xdrx_setpropertyvalue la "LineWeight" (fix (cadr (nth 3 x)))) ; _
    
49.         (xdrx_setpropertyvalue la "Plottable" (= 0 (fix (cadr (nth 4 x)))))
    
50.         (xdrx_setpropertyvalue la "Description" (cadr (nth 5 x)))
    
51.       )
    
52.     )
    
53.   )
    
54.   (princ)
    
55. )
    
56.   

;;Excel测试,保存图层状态到Excel文件<br /> (defun c:tt (/ xlsfilename l)<br />   (if (setq xlsfilename (getfiled "" "" "xls;xlsx" 1))<br />     (progn<br />       (xdex_book_open)                       ; _ 创建一个新的内存XLS文件<br />       (xdex_book_addsheet "图层状态表" T) ; _ 创建一个表格"图层状态表",并设?<br />                                        ; 梦?鼻氨砀?<br />       (setq l (list (list "Name" "Colour" "Linetype" "Lineweight" "Plot"<br />                           "Description"<br />                     )<br />               )<br />       )<br />       (vlax-for la (vla-get-layers (vla-get-ActiveDocument<br />                                                            (vlax-get-acad-object)<br />                                    )<br />                    ) (setq l (cons (list (vla-get-name la)<br />                                          (vla-get-color la)<br />                                          (vla-get-Linetype la)<br />                                          (vla-get-Lineweight la)<br />                                          (if (= :vlax-true<br />                                                 (vla-get-Plottable la)<br />                                              )<br />                                            1<br />                                            0<br />                                          ) (vla-get-Description la)<br />                                    ) l<br />                              )<br />                      )<br />       )<br />       (XDEx_Cell_WriteRange 0 0 (reverse l))<br />       (XDEx_Book_save xlsfilename)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;将图层状态从Excel文件输入到CAD<br /> (defun c:tt1 ()<br />   (if (setq xlsfilename (getfiled "" "" "xls;xlsx" 4))<br />     (progn<br />       (xdex_book_open xlsfilename)     ; _ 打开XLS文件<br />       (xdex_book_setActiveSheet "图层状态表") ; _ 将表设置为当前表<br />       (setq l (xdex_cell_readRange))<br />       (xdex_book_close)<br />       (foreach x (cdr l)<br />         (setq la (xdrx_layer_make (cadr (nth 0 x)) (fix (cadr (nth 1 x))))) ; _ 创建图层<br />         (xdrx_setpropertyvalue la "LineType" (cadr (nth 2 x))) ; 设置线型<br />         (xdrx_setpropertyvalue la "LineWeight" (fix (cadr (nth 3 x)))) ; _<br />         (xdrx_setpropertyvalue la "Plottable" (= 0 (fix (cadr (nth 4 x)))))<br />         (xdrx_setpropertyvalue la "Description" (cadr (nth 5 x)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />   

st788796

(XD::Object:Get "layer")可以获得layername和layerid列表，xdrx_getpropertyvalue可以一次获取图层所有状态

liuyj

看得人着急，api什么时候发布啊。

牢固

liuyj 发表于 2014-10-24 20:22
看得人着急，api什么时候发布啊。

测试中，请耐心等待...

st788796

AcGe有些还在完善，XdRx XdGe XdEx组合lisper可以和那些纯Arx比肩了

wenyish

不错值得收藏，值得学习。

一方君侯

读取xls时直接死机。。

newer

一方君侯 发表于 2016-12-23 12:53

把XLS文件传上来，看看。

一方君侯

从xks读取图层时致命错误。。

一方君侯

newer 发表于 2016-12-23 12:57

是不是和office版本有关？

newer

一方君侯 发表于 2016-12-26 00:25

你用的不是最新的API吧？ 我测试了TT和TT1，都正常。请下载最新的API，再试试。

你的XLS文件 是未注册版本的EXCEL库生成的， 确定是楼主TT命令生成的XLS？



正常的XLS是这样的

一方君侯

newer 发表于 2016-12-26 00:45

是最新版本的API，致命错误原因应该是我自己的原因，我用tssd读取excel时也会出现致命错误

newer

一方君侯 发表于 2016-12-26 10:21

你CAD是什么版本的？ 64位？32位？ 你这个EXCEL文件确定是新版API生成的？ 还是其他软件生成的？API不会在首行生成带LIBXL未注册的信息。

你试下附件的XLS文件，能读进来不。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:新块.rar 
下载次数:9  文件大小:1.57 KB 
下载权限: 不限 以上  [免费赚D豆]

一方君侯

newer 发表于 2016-12-26 11:10

还是致命错误！win7x64位，cad2012，用的是wps未注册版本

marting

一方君侯 发表于 2016-12-26 12:22

建议你还是装个完整版的EXCEL试试看。