- 积分
- 169
- 明经币
- 个
- 注册时间
- 2005-6-7
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
经过我的几轮问答,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 "原文件时间已修改,请手动删除临时文件。")
) |
|