社区 › Auto Lisp › 提取文本标签和尺寸

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

嗨，布莱恩，
 
谢谢你的感谢，我很高兴这个项目进展顺利。
 
表达式：
(strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv")将构造并返回CSV文件的文件路径，该文件的文件名与活动图形相同，并且位于活动图形的相同位置（即工作目录中）。
 
我当前的代码正在写入文件路径：
因此，用上面给出的表达式替换此文件路径将产生所需的结果。
 
因此：
(setq des (open "f:\\BrianD\\Dims.csv" "a"))变成：
(setq des (open (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv") "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

(strcat "f:\\BrianD\\" (vl-filename-base (getvar 'dwgname)) ".csv")

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

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

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

 
格式由以下rtos表达式确定：
由于调用rtos函数时没有单位和精度参数，因此尺寸测量值的格式基于LUNITS和LUPREC系统变量的值。
 
您可以通过提供rtos文档中描述的单位（模式）和精度参数来覆盖此格式，例如，对于精度由LUPREC控制的十进制格式，您可以使用：
15对于小数格式设置为4位小数：
16

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个维度，然后输入数量。
 
谢谢

查看完整版本: 提取文本标签和尺寸