deepseek写的程序，在cad中运行后总是提示：读入的 (八进制) 字符不正确

wzg356

没细看代码。前几天也试用DeepSeek写代码，感觉其能力比其它ai强，最最主要的是把自己的语言类型及功能要求简洁地描述清楚

yaya7827

你试一下另存看看

kozmosovia

找个软件直接打开db文件，然后另存为，再把原db文件删除，将另存的改名。写啥lisp代码

中国兰

GEGEYANG88 发表于 2025-2-2 13:07
DEEPSEEK是个国际玩笑

凭什么你这么贬低deepseek?张口就来吗？

su37

经过我的几轮问答,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 "原文件时间已修改，请手动删除临时文件。")
)

GEGEYANG88

(alert "原文件时间已修改，请手动删除临时文件。")
为什么还要用手动解决问题？难怪老美怕的要死。

su37

GEGEYANG88 发表于 2025-2-3 12:48
(alert "原文件时间已修改，请手动删除临时文件。")
为什么还要用手动解决问题？难怪老美怕的要死。

说话好好说，我说的是deepseek这个软件编程厉害，和为什么还要用手动解决问题有毛关系，不愿意听就别进来

GEGEYANG88

I'm sorry!

su37

感觉上面那个思路不好，又重新让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)
)

sirlowlam1

GEGEYANG88 发表于 2025-2-2 13:07
DEEPSEEK是个国际玩笑

我看你自己就是个笑话。要是美国人搞的，你会不会这么说？！