(Deepseek训练作品)excel生成cad中TABLE表的源代码

biya

2. (defun c:tt (/ excel-app excel-file excel-workbook excel-sheet excel-range row-count col-count data row col pt table cell-value)
   
3.   ;; 提示用户选择Excel文件
   
4.   (setq excel-file (getfiled "选择Excel文件" "" "xlsx;xls" 16))
   
5.   (if (not excel-file)
   
6.     (progn
   
7.       (princ "\n未选择文件。")
   
8.       (exit)
   
9.     )
   
10.   )
    
11. 
    
12.   ;; 启动Excel应用程序
    
13.   (setq excel-app (vlax-get-or-create-object "Excel.Application"))
    
14.   (vlax-put-property excel-app 'Visible :vlax-false)  ;; 不显示Excel窗口
    
15. 
    
16.   ;; 打开Excel文件
    
17.   (setq excel-workbook (vlax-invoke-method (vlax-get-property excel-app 'Workbooks) 'Open excel-file))
    
18.   (setq excel-sheet (vlax-get-property (vlax-get-property excel-workbook 'Sheets) 'Item 1))  ;; 选择第一个工作表
    
19. 
    
20.   ;; 获取Excel数据的范围
    
21.   (setq excel-range (vlax-get-property excel-sheet 'UsedRange))
    
22.   (setq row-count (vlax-get-property (vlax-get-property excel-range 'Rows) 'Count))  ;; 获取行数
    
23.   (setq col-count (vlax-get-property (vlax-get-property excel-range 'Columns) 'Count))  ;; 获取列数
    
24. 
    
25. 
    
26. 
    
27.   ;; 读取Excel数据
    
28.   (setq data (vlax-safearray->list (vlax-variant-value (vlax-get-property excel-range 'Value2))))
    
29. 
    
30.   ;; 关闭Excel文件并退出Excel应用程序
    
31.   (vlax-invoke-method excel-workbook 'Close :vlax-false)
    
32.   (vlax-invoke-method excel-app 'Quit)
    
33.   (vlax-release-object excel-app)
    
34. 
    
35.   ;; 提示用户选择插入点
    
36.   (setq pt (getpoint "\n选择表格插入点: "))
    
37.   (if (not pt)
    
38.     (progn
    
39.       (princ "\n未选择插入点。")
    
40.       (exit)
    
41.     )
    
42.   )
    
43. 
    
44.   ;; 创建表格
    
45.   (setq table (vla-addtable
    
46.                 (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
    
47.                 (vlax-3d-point (car pt) (cadr pt) 0.0)  ;; 插入点（三维点）
    
48.                 (1+ row-count)  ;; 行数（包括标题行）
    
49.                 col-count      ;; 列数
    
50.                 10.0          ;; 行高
    
51.                 50.0          ;; 列宽
    
52.               )
    
53.   )
    
54. 
    
55.   ;; 填充表格数据
    
56.   (setq row 0)
    
57.   (foreach line data
    
58.     (setq col 0)
    
59.     (foreach cell line
    
60.       ;; 处理空值或非字符串数据
    
61.       (setq cell-value
    
62.         (cond
    
63.           ((null cell) "")  ;; 空值
    
64.           ((= (type cell) 'VARIANT)
    
65.             (vl-catch-all-apply 'vlax-variant-value (list cell)))  ;; VARIANT类型
    
66.           ((= (type cell) 'REAL) (rtos cell 2 2))  ;; 实数类型
    
67.           ((= (type cell) 'INT) (itoa cell))  ;; 整数类型
    
68.           (t (vl-princ-to-string cell))  ;; 其他类型
    
69.         )
    
70.       )
    
71.       ;; 确保单元格值不为空
    
72.       (if (and cell-value (/= cell-value ""))
    
73.         (vla-settext table row col cell-value)
    
74.       )
    
75.       (setq col (1+ col))
    
76.     )
    
77.     (setq row (1+ row))
    
78.   )
    
79. 
    
80.   (princ "\nExcel表格已成功插入到AutoCAD中。")
    
81.   (princ)
    
82. )

(defun c:tt (/ excel-app excel-file excel-workbook excel-sheet excel-range row-count col-count data row col pt table cell-value)<br />   ;; 提示用户选择Excel文件<br />   (setq excel-file (getfiled "选择Excel文件" "" "xlsx;xls" 16))<br />   (if (not excel-file)<br />     (progn<br />       (princ "\n未选择文件。")<br />       (exit)<br />     )<br />   )<br /> <br />   ;; 启动Excel应用程序<br />   (setq excel-app (vlax-get-or-create-object "Excel.Application"))<br />   (vlax-put-property excel-app 'Visible :vlax-false)  ;; 不显示Excel窗口<br /> <br />   ;; 打开Excel文件<br />   (setq excel-workbook (vlax-invoke-method (vlax-get-property excel-app 'Workbooks) 'Open excel-file))<br />   (setq excel-sheet (vlax-get-property (vlax-get-property excel-workbook 'Sheets) 'Item 1))  ;; 选择第一个工作表<br /> <br />   ;; 获取Excel数据的范围<br />   (setq excel-range (vlax-get-property excel-sheet 'UsedRange))<br />   (setq row-count (vlax-get-property (vlax-get-property excel-range 'Rows) 'Count))  ;; 获取行数<br />   (setq col-count (vlax-get-property (vlax-get-property excel-range 'Columns) 'Count))  ;; 获取列数<br /> <br /> <br /> <br />   ;; 读取Excel数据<br />   (setq data (vlax-safearray->list (vlax-variant-value (vlax-get-property excel-range 'Value2))))<br /> <br />   ;; 关闭Excel文件并退出Excel应用程序<br />   (vlax-invoke-method excel-workbook 'Close :vlax-false)<br />   (vlax-invoke-method excel-app 'Quit)<br />   (vlax-release-object excel-app)<br /> <br />   ;; 提示用户选择插入点<br />   (setq pt (getpoint "\n选择表格插入点: "))<br />   (if (not pt)<br />     (progn<br />       (princ "\n未选择插入点。")<br />       (exit)<br />     )<br />   )<br /> <br />   ;; 创建表格<br />   (setq table (vla-addtable<br />                 (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))<br />                 (vlax-3d-point (car pt) (cadr pt) 0.0)  ;; 插入点（三维点）<br />                 (1+ row-count)  ;; 行数（包括标题行）<br />                 col-count      ;; 列数<br />                 10.0          ;; 行高<br />                 50.0          ;; 列宽<br />               )<br />   )<br /> <br />   ;; 填充表格数据<br />   (setq row 0)<br />   (foreach line data<br />     (setq col 0)<br />     (foreach cell line<br />       ;; 处理空值或非字符串数据<br />       (setq cell-value<br />         (cond<br />           ((null cell) "")  ;; 空值<br />           ((= (type cell) 'VARIANT) <br />             (vl-catch-all-apply 'vlax-variant-value (list cell)))  ;; VARIANT类型<br />           ((= (type cell) 'REAL) (rtos cell 2 2))  ;; 实数类型<br />           ((= (type cell) 'INT) (itoa cell))  ;; 整数类型<br />           (t (vl-princ-to-string cell))  ;; 其他类型<br />         )<br />       )<br />       ;; 确保单元格值不为空<br />       (if (and cell-value (/= cell-value ""))<br />         (vla-settext table row col cell-value)<br />       )<br />       (setq col (1+ col))<br />     )<br />     (setq row (1+ row))<br />   )<br /> <br />   (princ "\nExcel表格已成功插入到<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>中。")<br />   (princ)<br /> )

此源代码为DEEPSEEK多次调试+人为干预提示调试出的作品，暂时未合并单元格处理，未提取原表格背景色，抛砖引玉，大家可以超越，加油！！

e2002

使用 datalink 的excel 数据 ，直接创建出 table 对象。
目前存在的问题主要是：table的尺寸大小不好控制，数据格式也存在一定的差异导致需要调整，最大的问题实际上在于后续的excel修改后，table中的数据更新时非常卡顿，且在增减行列后出现期望之外的结果。

这个问题我已经反馈给开发团队了，希望后续能尽快修正与改进。

ownlisp

e2002 发表于 2025-3-13 19:59
使用 datalink 的excel 数据 ，直接创建出 table 对象。
目前存在的问题主要是：table的尺寸大小不好控制 ...

大佬，使用datalink 的时候，怎么获得 链接的选项？链接的选项对应着不同的工作表

moshouhot

lea丶丶 发表于 2025-4-16 17:29
(setq *xlApp* (vlax-get-or-create-object "excel.Application")) 读取excel
(setq *xlApp* (vlax-get-or ...

你这个侧边栏是原创的吗？眼馋了

tanxindong

历害，太历害啦

pizi158545086

选择文档了没反应  显示函数已取消

biya

pizi158545086 发表于 2025-3-13 10:45
选择文档了没反应  显示函数已取消

我是OFFICE，你的是WPS？,奇怪

woshilj

之前用DEEPSEEK尝试写一个调整TABLE表行高列宽的插件，写出来的插件运行不成功，看不懂写的代码。

pizi158545086

biya 发表于 2025-3-13 11:19
我是OFFICE，你的是WPS？,奇怪

我用的是WPS

biya

pizi158545086 发表于 2025-3-13 12:32
我用的是WPS

你用OFFICE试一下可能就好了，或你改一下代码支持WPS
，我最近有点忙，闲了来改一下

qincccken

现在有AI真的是强大，学习学习

tranque

qincccken 发表于 2025-3-16 00:06
现在有AI真的是强大，学习学习

你这头像碉堡了