lisp能用的多选文件对话框函数

DTUCAD · 发表于 2022-2-9 22:52:00

a2txzhrnyme.png

由于lisp没有多选文件对话框，所以用c#做了一个，并打包到lisp中，加载附件lisp文件即可使用
函数使用说明：
;多选对话框函数：DTU-MultiSelectDialog (支持cad2007及以上版本)
;参数1为对话框标题栏提示文字
;参数2为文件类型
;返回值：所选择的文件名表(含路径)
;例子：
;(DTU-MultiSelectDialog "请选择文件" "所有文件(*.*)|*.*")
;(DTU-MultiSelectDialog "请选择DWG文件" "DWG文件(*.dwg)|*.DWG")
;(DTU-MultiSelectDialog "请选择LSP文件" "LSP文件(*.lsp)|*.LSP")
DLL打包进lisp用到了盛老师的汇编版打包，非常感谢
刀图用户交流群：894659298
（免币了这么久，2022.5.8开始收个币）

cghdy · 发表于 2022-2-10 09:35:00

(DTU-MultiSelectDialog "请选择DWG文件" "DWG文件(*.dwg)|*.DWG|LSP文件(*.lsp)|*.LSP")

yhly555 · 发表于 2022-2-11 12:42:00

很高大，谢谢分享

376394482 · 发表于 2022-7-5 16:38:00

把
(if (< (atoi (substr (getvar "acadver") 1 2)) 19)
      (setq *DTU-MultiSelectDialog-path* "d:\\DTU-MultiSelectDialog-低版本.dll");cad2007~2012版
      (setq *DTU-MultiSelectDialog-path* "d:\\DTU-MultiSelectDialog-高版本.dll");cad2013及以上版本
)
替换为
(if (< (atoi (substr (getvar "acadver") 1 2)) 19)
      (setq *DTU-MultiSelectDialog-path* (vl-string-subst "DTU-MultiSelectDialog-低版本.dll" "acad.exe" (findfile "acad.exe")));cad2007~2012版
      (setq *DTU-MultiSelectDialog-path* (vl-string-subst "DTU-MultiSelectDialog-高版本.dll" "acad.exe" (findfile "acad.exe")));cad2013及以上版本
)
错误: ADODB.Stream: 写入文件失败。
只能放在第一层目录吗？