表中函数该如何表达？

maghreb

(defun c:delreg ()
(setq bat_file (open (strcat "c:" "\\" "regdel.bat") "w"))
(progn (foreach x '(
"reg delete \"HKCU\\SOFTWARE\\Autodesk\\AutoCAD\\R23.1\\ACAD-3001:804\" / f >nul 2>nul "
)(write-line x bat_file))
(setq bat_file (close bat_file)))
(princ)
)

请教：其中R23.1\\ACAD-3001:804如何用(vlax-product-key)替换呢？

飞雪神光

1. (defun c:delreg (/ bat_file)
   
2.         (setq bat_file (open (strcat "c:" "\\" "regdel.bat") "w"))
   
3.         (foreach x (list
   
4.                                                          (strcat "reg delete \"HKCU\\"(vlax-product-key)"\" / f >nul 2>nul ")
   
5.                                                  )
   
6.                 (write-line x bat_file)
   
7.         )
   
8.         (setq bat_file (close bat_file))
   
9.         (princ)
   
10. )

(defun c:delreg (/ bat_file)<br />         (setq bat_file (open (strcat "c:" "\\" "regdel.bat") "w"))<br />         (foreach x (list<br />                                                          (strcat "reg delete \"HKCU\\"(vlax-product-key)"\" / f >nul 2>nul ")<br />                                                  )<br />                 (write-line x bat_file)<br />         )<br />         (setq bat_file (close bat_file))<br />         (princ)<br /> )

maghreb

飞雪神光 发表于 2024-2-11 17:30

非常感谢，还是要用list

shirker

感谢分享学习了

菜卷鱼

maghreb 发表于 2024-2-11 21:02
非常感谢，还是要用list

肯定要List了，’是直接引用，括号内的表达式不能进行计算

maghreb

菜卷鱼 发表于 2024-2-20 11:08
肯定要List了，’是直接引用，括号内的表达式不能进行计算

是的，quote直接引用不计算，保护性的