利用lisp批量插入文件的问题

自贡黄明儒

pzweng 发表于 2024-5-31 10:29
还不是空格，用insert插入后获取得到是块名有“?"号，这是这个符号导致无法用lisp实现

下载tt试了一下，(findfile name)正常，可能是你的电脑中毒了

pzweng

自贡黄明儒 发表于 2024-5-31 10:59
下载tt试了一下，(findfile name)正常，可能是你的电脑中毒了

请重新下载压缩包文件，直接上传DWG文件名会改变

黄翔

命令: (setq fs1 (cadr fs))
"2205014-A000-05A?框架.DWG"
命令: (vl-string->list  fs1)
(50 50 48 53 48 49 52 45 65 48 48 48 45 48 53 65 63 191 242 188 220 46 68 87 71)
命令: (vl-string->list  "2205014-A000-05A?框架.DWG")
(50 50 48 53 48 49 52 45 65 48 48 48 45 48 53 65 63 191 242 188 220 46 68 87 71)
命令: (vl-string->list  "?")
(63)
命令: (vl-string->list  " ")
(32)
这个就是个非法文件名

pzweng

黄翔 发表于 2024-5-31 12:27
命令: (setq fs1 (cadr fs))
"2205014-A000-05A?框架.DWG"
命令: (vl-string->list  fs1)

insert命令却可以插入，现在是在寻求解决办法，问题是已知道了

黄翔

不知道你想干什么.
如果确定(setq lst(vl-directory-files path (strcat "*." "dwg") 1))找到所有dwg文件.
可以不用findfile了.直接用(member filename lst)不是一样的吗?

guangdonglbq

如非一定需要编程，可以试试小小工具集里的“批处理dwg文件”，省事。