自贡黄明儒 发表于 2024-5-31 10:59:27

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

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

pzweng 发表于 2024-5-31 11:07:34

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

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

黄翔 发表于 2024-5-31 12:27:51

命令: (setq fs1 (cadr fs))
"2205014-A000-05A?框架.DWG"
命令: (vl-string->listfs1)
(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:33:16

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


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

黄翔 发表于 2024-5-31 12:39:34

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

guangdonglbq 发表于 2024-5-31 13:50:19

如非一定需要编程，可以试试小小工具集里的“批处理dwg文件”，省事。
页: 1 [2]
查看完整版本: 利用lisp批量插入文件的问题