从excel向图形中添加文本

structo · 发表于 2022-7-5 17:29:02

你好，朋友，

显示一些错误。请测试。

Grrr · 发表于 2022-7-5 17:33:52

我不能没有适当的。csv文件，
我已经编辑了我发布的最后一个代码（忘记包括LM:csv->lst和LM:csv replacequotes子函数）-请重试。

structo · 发表于 2022-7-5 17:35:31

亲爱的朋友，
文本形成如图所示。
这里我附上了正确格式的csv文件。请测试。你的帖子#7比帖子#10好，请提供代码的最终版本。

谢谢你。
测试文件。csv
样品图纸2。dxf

Grrr · 发表于 2022-7-5 17:40:25

你说文本应该从“B”栏而不是“A”栏中摘录，但你的最后一个附件。csv文件文本位于“A”列。
根据您的决定，更改第#10页中的这行代码：

copy

(setq LstRows (mapcar 'cadr (LM:readcsv f)))

收件人：
如果您想从列“A”中提取（这对您最后上载的文件有效）：

copy

(setq LstRows (mapcar '[color="red"]car [/color](LM:readcsv f)))

如果要从“B”列中提取：

copy

(setq LstRows (mapcar '[color="red"]cadr [/color](LM:readcsv f)))

如果要从“C”列中提取：

copy

(setq LstRows (mapcar '[color="red"]caddr [/color](LM:readcsv f)))

等等

structo · 发表于 2022-7-5 17:42:54

哦，对不起，朋友，修改csv文件是不幸的。我为我的错误道歉。我会尝试你的最新代码并给出反馈。

感谢您的友好支持。

structo · 发表于 2022-7-5 17:45:22

亲爱的朋友，

我用以下代码进行了测试：仅用于“B”和“D”列的摘录。但误差未按上图纠正：

请测试并纠正我在lisp编程方面的错误知识。

谢谢你。
样品图纸2。dxf
测试文件。csv

Grrr · 发表于 2022-7-5 17:47:50

你能至少上传一个截图，看看你的csv里面是什么样子，而不是上传吗。
就像这样（我现在看到的）：

所以我可以知道我们在处理什么（因为我觉得我完全误解了任务，因为提供了.csv文件）。

ReMark · 发表于 2022-7-5 17:52:07

显然，OP希望你为他提供他需要的，而不是他要求的。两件不同的事不？

Grrr · 发表于 2022-7-5 17:54:58

这似乎就是为什么OPs的请求没有那么容易得到回答的原因，因为问题/提供的文件不清楚。
虽然他的任务是可以解决的，但为什么需要多发2-3页垃圾邮件才能理解真正的需求是什么。

在这里，您可以看到一个简单的请求，直到我们发现实际上我们必须处理损坏的几何体，而不是“矩形”对象。

“我想要一些小变化”是另一回事（在我看来这不是问题）。

编辑：
无论如何，要将列“B”与列“D”连接起来：

copy


(if (setq LstRows (LM:readcsv f))
   (setq LstRows (apply 'append (mapcar '(lambda (x) (list (nth 1 x) (nth 3 x))) LstRows)))
)

但仍然不能解决这个问题，因为我必须从代码中删除重新格式化的字符串-要这样做，我首先必须知道要从csv中操作哪些字符串来填充到文本实体中。

ziele_o2k · 发表于 2022-7-5 17:58:12

我在这个帖子中的最后一篇帖子。。。

copy

[编程交流] 从excel向图形中添加文本

发表回复

精选推荐