社区 › Auto Lisp › 抓取文件名

Kenter 发表于 2022-7-6 10:37:20

抓取文件名

有没有办法获取正在处理的文件的名称，并将其存储为变量？？
 
如。
您打开一个名为“square”的文件，并希望获取图形名称并将其存储为变量“name”。。。。。
 
不确定这是否可以做到，但如果可能的话，答案肯定会在这个论坛上找到。
 
肯特

Hippe013 发表于 2022-7-6 10:47:41

这当然可以做到。在命令行中键入以下代码。
 

(setq name (getvar "DWGNAME"))

 
在哪种类型之后：！命令行上的名称。

alanjt 发表于 2022-7-6 10:50:57

此外，（getvar'dwgprefix）将为您提供位置。

Kenter 发表于 2022-7-6 10:56:47

谢谢你们俩。我使用了：
 
它没拿枪就抓住了它。dwg在末尾。
 
 
肯特

alanjt 发表于 2022-7-6 11:06:23

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

Tharwat 发表于 2022-7-6 11:12:56

 
这真是一个非常明智的结果。你确实有通过密码的能力。
 
顺致敬意，
 
塔瓦特

Tharwat 发表于 2022-7-6 11:17:21

 
毫无疑问，这是最短和最直接的一个。。。。。

alanjt 发表于 2022-7-6 11:22:23

速度也更快

Lee Mac 发表于 2022-7-6 11:31:08

不需要，但对于VL恐惧症：
 
(substr (getvar 'DWGNAME) 1 (- (strlen (getvar 'DWGNAME)) 4))
 
或
 
(cadr (fnsplitl (getvar 'DWGNAME)))

Hippe013 发表于 2022-7-6 11:33:36

 
李你是一个字典的非法lisp函数！

查看完整版本: 抓取文件名