没细看代码。前几天也试用DeepSeek写代码，感觉其能力比其它ai强，最最主要的是把自己的语言类型及功能要求简洁地描述清楚
你试一下另存看看
找个软件直接打开db文件，然后另存为，再把原db文件删除，将另存的改名。写啥lisp代码
GEGEYANG88 发表于 2025-2-2 13:07
DEEPSEEK是个国际玩笑
凭什么你这么贬低deepseek?张口就来吗？
经过我的几轮问答,deepseek终于给出了正确解。总结,deepseek还是很厉害的,远远强于其他AI,编程方面尤为突出。难怪老美怕的要死
(defun c:ForceSetTime (/ oldfile newfile randomNum newFileName)
;; 获取原文件的完整路径
(setq oldfile (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
;; 检查是否已经保存了初始文件名
(if (not (boundp '*initialFileName*))
(setq *initialFileName* (getvar "DWGNAME")) ; 如果是第一次运行，保存初始文件名
)
;; 生成5个随机阿拉伯数字（范围：10000 到 99999）
(setq randomNum (itoa (+ 10000 (fix (* (rem (getvar "CPUTICKS") 1e6) 0.9)))))
;; 生成新的文件名，格式为 "2025-5个随机数字-初始文件名"
(setq newFileName (strcat (getvar "DWGPREFIX") "2025-" randomNum "-" *initialFileName*))
;; 另存为新文件
(command "_.SAVEAS" "" newFileName)
;; 使用PowerShell修改原文件的最后修改时间
(startapp
(strcat
"powershell.exe -NoExit -Command \"(Get-Item '"
oldfile
"').LastWriteTime = Get-Date\""
)
)
(alert "原文件时间已修改，请手动删除临时文件。")
)
(alert "原文件时间已修改，请手动删除临时文件。")
为什么还要用手动解决问题？难怪老美怕的要死。
GEGEYANG88 发表于 2025-2-3 12:48
(alert "原文件时间已修改，请手动删除临时文件。")
为什么还要用手动解决问题？难怪老美怕的要死。
说话好好说，我说的是deepseek这个软件编程厉害，和为什么还要用手动解决问题有毛关系，不愿意听就别进来
I'm sorry!
感觉上面那个思路不好，又重新让deepseek写了一个，这个就是生成一个备份文件，这样，就能保证备份文件的时间始终是最新的。思路是我想的，程序是deepseek写的。
(defun c:UpdateFileTime (/ filename bakfile pscommand)
;; 获取当前文件的完整路径和文件名
(setq filename (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
;; 强制保存当前文件（不弹出对话框）
(command "_.QSAVE")
;; 构建备份文件名（格式：原文件名bak.dwg）
(setq bakfile (strcat (getvar "DWGPREFIX") (vl-filename-base filename) "bak.dwg"))
;; 使用系统命令强制覆盖备份文件（不提示）
(startapp (strcat "cmd /c copy /y \"" filename "\" \"" bakfile "\" > nul"))
;; 等待文件操作完成
(while (not (findfile bakfile)) (vl-sleep 100))
;; 构建PowerShell命令（处理路径空格）
(setq pscommand
(strcat
"powershell -Command \""
"(Get-Item -Path '" bakfile "').LastWriteTime = Get-Date;"
"(Get-Item -Path '" bakfile "').CreationTime = Get-Date\""
)
)
;; 修改文件时间戳（创建时间和修改时间）
(startapp pscommand)
;; 提示用户操作完成
(princ (strcat "\n文件备份已创建并更新时间戳: " bakfile))
(princ)
)
GEGEYANG88 发表于 2025-2-2 13:07
DEEPSEEK是个国际玩笑
我看你自己就是个笑话。要是美国人搞的，你会不会这么说？！