从csv文件导入

mousho · 发表于 2022-7-5 15:36:49

亲爱的朋友们
假设我想画一些东西，我想从csv文件中读取信息。
我要找的是一个lisp，它从csv文件中读取并将单元格内容存储在A1/A2/A3。。。
当行中有空单元格时，他开始读取第二列并将其存储为B1/B2/B3。。。。

我搜索了所有的网页，但没有成功
plz帮助

衬垫。csv

BIGAL · 发表于 2022-7-5 15:54:27

不明白当你在excel中打开csv时，它会形成一个模式，与Pad有关。

您需要发布一个dwg或图像，说明您正在尝试做什么。

ziele_o2k · 发表于 2022-7-5 16:05:11

读取CSV
写入CSV

mousho · 发表于 2022-7-5 16:16:42

嗨BIGAL
我正在附加DWG和部分代码
我想要的是设置参数W1/L1/H1。。。。从excel而不是从autocad
完成例行程序后，他将开始阅读excel的第二列，以此类推。

衬垫。图纸
PAD 3步骤-复制（6）。LSP

BIGAL · 发表于 2022-7-5 16:33:06

ziele说，仅仅使用csv比从excel中读取要容易得多，是的，你可以读取我使用GETEXCEL的excel单元格值。lsp

进一步查看，您可以构建一个大列表，将csv文件的每一行组合在一起

copy


(("PAD1" "PAD2" "PAD3" "PAD4")
("WIDTH1" "400" "350" "" "")
("LENGTH1" "500" "460" "" "")
("HEIGHT1" "100" "80" "" "")
("WIDTH2" "300" "300" "" "")
("LENGTH2" "400" "350" "" "")
("HEIGHT2" "80" "70" "" "")
("WIDTH3" "200" "250" "" "")
("LENGTH3" "300" "300" "" "")
("HEIGHT3" "60" "60" "" "")
("WIDTH_COL" "40" "40" "" "")
("LENGTH_COL" "80" "80" "" ""))

在双重复循环中使用第n个函数，可以为这部分代码提取正确的值

copy


W1 (getreal "\nEnter Width Of Pad (cm) :")
        L1 (getreal "\nEnter Length Of Pad (cm) :")
        H1 (getreal "\nEnter Hight Of Pad (cm) :")
        W2 (getreal "\nEnter Width2 Of Pad (cm) :")
        L2 (getreal "\nEnter Length2 Of Pad (cm) :")
        H2 (getreal "\nEnter Hight2 Of Pad (cm) :")
        W3 (getreal "\nEnter Width3 Of Pad (cm) :")
        L3 (getreal "\nEnter Length3 Of Pad (cm) :")
        H3 (getreal "\nEnter Hight3 Of Pad (cm) :")
        W4 (getreal "\nEnter Width Of Col (cm) :")
        L4 (getreal "\nEnter Length Of Col (cm) :")

获取Excel。lsp

BIGAL · 发表于 2022-7-5 16:45:23

像这样的

copy


(setq x 1)
(set1 y 1)
(while (/= (setq W1 (nth x (nth y lst))) nil)
(setq L1 (nth x  (nth (setq y (+ y 1)) lst)))
(setq H1 (nth x (nth (setq y (+ y 1)) lst)))
......
Draw now
(setq x (+ x 1))
(setq y 1)
)

[编程交流] 从csv文件导入

发表回复

精选推荐