maghreb 发表于 2024-2-10 21:07:21

表中函数该如何表达？

(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)替换呢？

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

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

maghreb 发表于 2024-2-11 21:02:11

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


非常感谢，还是要用list

shirker 发表于 2024-2-15 23:10:18

感谢分享学习了

菜卷鱼 发表于 2024-2-20 11:08:15

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

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

maghreb 发表于 2024-2-20 12:15:56

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

是的，quote直接引用不计算，保护性的
页: [1]
查看完整版本: 表中函数该如何表达？