請問有可以從excel檔座標值匯入cad裡面標註嗎？

p-3-ianlcc

请问有可以从excel档座标值汇入cad里面标注吗？

假设excel档sheet1表格中

a1储存格：座标编号

b1储存格：x座标值

c1储存格：y座标值

d1储存格：z座标值

然后执行lsp后，直接读取excel档，选取excel表格

将上面座标值标注在图上：

图片上所显示少了“座标编号”

cq4920

假设excel档sheet1表格中
a1储存格：座标编号
b1储存格：x座标值
c1储存格：y座标值
d1储存格：z座标值

请用autolisp语言完成以下操作，
分别读取excel文档中的每一行的4个数据，
然后用autolisp语言绘制在CAD图纸中
以下是一个简单的AutoLISP程序，它可以读取Excel文档中的每一行的4个数据，并将它们绘制在CAD图纸中：

(defun read-excel-data (filepath)
  (vl-load-com)
  (setq excel (vlax-create-object "Excel.Application"))
  (setq workbook (vlax-invoke-method excel 'Workbooks 'Open filepath))
  (setq worksheet (vlax-invoke-method workbook 'Worksheets 'Item 1))
  (setq row 1)
  (while (not (null (vlax-get-property worksheet (strcat "A" (itoa row)))))
    (setq x (vlax-get-property worksheet (strcat "B" (itoa row))))
    (setq y (vlax-get-property worksheet (strcat "C" (itoa row))))
    (setq z (vlax-get-property worksheet (strcat "D" (itoa row))))
    (command "point" (list x y z))
    (setq row (1+ row))
  )
  (vlax-invoke-method workbook 'Close)
  (vlax-release-object worksheet)
  (vlax-release-object workbook)
  (vlax-release-object excel)
)
这个程序使用了Visual LISP自带的COM接口来读取Excel文档中的数据。您需要将程序中的“filepath”参数替换为您的Excel文件的路径。程序将在CAD图纸中绘制每个坐标点。

这是一个简单的思路，未经验证！

p-3-ianlcc

cq4920 发表于 2023-6-4 16:35
假设excel档sheet1表格中
a1储存格：座标编号
b1储存格：x座标值

嗯，谢谢您！
我来试试看～
非常的感谢

孤独荒原狼

现在用WPS很多，用CSV或者TEXT格式比较好，纯属个人看法哈。