p-3-ianlcc 发表于 2023-6-4 15:16:43

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

本帖最后由 p-3-ianlcc 于 2023-6-4 15:18 编辑

请问有可以从excel档座标值汇入cad里面标注吗？
假设excel档sheet1表格中a1储存格：座标编号b1储存格：x座标值c1储存格：y座标值d1储存格：z座标值
然后执行lsp后，直接读取excel档，选取excel表格将上面座标值标注在图上：图片上所显示少了“座标编号”

cq4920 发表于 2023-6-4 16:35:40

本帖最后由 cq4920 于 2023-6-4 16:37 编辑

假设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 发表于 2023-6-4 19:37:37

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


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

孤独荒原狼 发表于 2023-6-5 17:31:29

现在用WPS很多，用CSV或者TEXT格式比较好，纯属个人看法哈。
页: [1]
查看完整版本: 請問有可以從excel檔座標值匯入cad裡面標註嗎？