本帖最后由 biya 于 2025-3-13 08:18 编辑
  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.   )

  12.   ;; 启动Excel应用程序
  13.   (setq excel-app (vlax-get-or-create-object "Excel.Application"))
  14.   (vlax-put-property excel-app 'Visible :vlax-false)  ;; 不显示Excel窗口

  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))  ;; 选择第一个工作表

  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))  ;; 获取列数



  27.   ;; 读取Excel数据
  28.   (setq data (vlax-safearray->list (vlax-variant-value (vlax-get-property excel-range 'Value2))))

  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)

  35.   ;; 提示用户选择插入点
  36.   (setq pt (getpoint "\n选择表格插入点: "))
  37.   (if (not pt)
  38.     (progn
  39.       (princ "\n未选择插入点。")
  40.       (exit)
  41.     )
  42.   )

  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.   )

  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.   )

  80.   (princ "\nExcel表格已成功插入到AutoCAD中。")
  81.   (princ)
  82. )


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


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

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

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

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

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

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

网友答: 历害，太历害啦

网友答: 选择文档了没反应  显示函数已取消

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

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

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

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

我用的是WPS

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

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

网友答: 现在有AI真的是强大，学习学习

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

你这头像碉堡了
  • 上一篇：视口复制粘贴后恢复图层状态
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025