提取文本标签和尺寸

Lee Mac · 发表于 2022-7-5 16:39:33

嗨，布莱恩，

谢谢你的感谢，我很高兴这个项目进展顺利。

表达式：

(strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv")

将构造并返回CSV文件的文件路径，该文件的文件名与活动图形相同，并且位于活动图形的相同位置（即工作目录中）。

我当前的代码正在写入文件路径：
因此，用上面给出的表达式替换此文件路径将产生所需的结果。

因此：

(setq des (open [color=red]"f:\\BrianD\\Dims.csv"[/color] "a"))

变成：

(setq des (open [color=red](strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv")[/color] "a"))

BrianTFC · 发表于 2022-7-5 16:45:13

李，

好了，现在我开始明白了，如果我只想保存文件，例如“f:\\BrianD\\dwgname.csv”，该怎么办。代码是什么样子的？

Tharwat · 发表于 2022-7-5 16:48:35

布莱恩。

使用命令名vlisp打开Visual Lisp编辑器，然后激活控制台窗口，然后分别复制和粘贴每一行代码，如下图所示，以查看每一行代码的返回，这样可以非常清楚地解释示例中这些代码的目的。


(getvar 'dwgprefix)

然后是这个。


(getvar 'dwgname)

最后是这个。


(vl-filename-base (getvar 'dwgname))

Lee Mac · 发表于 2022-7-5 16:50:00

[color="red"](strcat "f:\\BrianD\" (vl-filename-base (getvar 'dwgname)) ".csv")[/color]

BrianTFC · 发表于 2022-7-5 16:53:31

李，

哪一行决定了维度输出的类型？i、对于我的提取程序，我需要它只是数字，没有英尺或英寸标记。

谢谢Brian

Lee Mac · 发表于 2022-7-5 16:57:58

格式由以下rtos表达式确定：
由于调用rtos函数时没有单位和精度参数，因此尺寸测量值的格式基于LUNITS和LUPREC系统变量的值。

您可以通过提供rtos文档中描述的单位（模式）和精度参数来覆盖此格式，例如，对于精度由LUPREC控制的十进制格式，您可以使用：

对于小数格式设置为4位小数：

BrianTFC · 发表于 2022-7-5 17:01:07

李，塔尔瓦特

谢谢你们向我解释一切。我设法让它按我需要的方式工作。

Tharwat · 发表于 2022-7-5 17:02:55

我很乐意帮助你，祝你工作顺利，布莱恩。

Lee Mac · 发表于 2022-7-5 17:06:08

不客气，布莱恩。

athran · 发表于 2022-7-5 17:09:22

李先生您好，

你能帮我做这个节目吗？
它几乎与前面提到的内容相同，但我希望它写在csv文件中，如下所示：
code1 code2维度数量
它将要求用户选择2个文本和2个维度，然后输入数量。

谢谢

[编程交流] 提取文本标签和尺寸