请注意,一个好的编程实践是在使用退出/退出进行更干净的退出时添加错误陷阱。或者可以按如下方式构建代码,尽管这可能会使代码过载。
- (if [color=magenta](not[/color] (or (= dir (getroot))
- (= dir (strcat (getroot) "\\Titleblocks")))[color=magenta])[/color]
- (progn
- ;;;your main code here
- )
- (progn
- (princ "\nHey you’re not allowed to delete files from this folder! ")
- )
- )
|