再请赐教！！！

hys_han · 发表于 2003-4-10 12:20:00

非常感谢各位高手的帮忙！！！
请问：我现在如果想要用LISP获取当前的DWG文件名该怎么办呢？
我曾经尝试过在命令窗里输入系统变量名DWGNAME就可以获得文件名，但是我现在要对大量的DWG文件操作，想用LISP实现，查看帮助很长时间也没有查到。
请您帮忙！！！非常感谢

hys_han · 发表于 2003-4-10 12:40:00

我现在在做设计，需要大量高程点，要从60平方公里的地形图上提取，1平方公里有4幅或16幅图。量很大，所以想用编程来实现。

hys_han · 发表于 2003-4-10 19:10:00

当然有图了，要不然我的设计是没法作的。
都是些大比例尺地形图，按照大比例尺地形图分幅原则分幅。大概要有200或400多幅吧。可以往里敲文件名，虽然不是很多，但也很容易出错的。
请教各位高手，怎样用LISP获取当前的图形文件名？？？

alin · 发表于 2003-4-10 22:26:00

如果只是要文件名，可以用vl-directory-files函数，如
(vl-directory-files "D:\\Alin\\" "*.dwg")
返回目录D:\Alin\下的所有dwg文件名

hys_han · 发表于 2003-4-10 23:08:00

您可能没有理解我的意思，可能是我的问题问的不好。：）
我是说：如果现在AUTOCAD打开了“ABC001.DWG”文件，由于工作量太大了（有几百个文件），所以我想问一问能否用LISP获取这个文件名。
！！！！！！！！！非常感谢！！！！！！！！！