需要帮助删除词典

Archiman86 · 发表于 2022-7-6 11:29:32

我试图从一堆文件中删除一个特定的词典。当文件中存在问题时，我们处理的客户的文档管理系统中存在问题。我正在尝试让它工作，以便打印它是否已经存在，或者是否已删除。现在我不断收到一个错误，上面写着：

以下是我目前掌握的情况：

提前感谢您的帮助！

Lee Mac · 发表于 2022-7-6 11:48:24

我无法测试，但可能是这样的？

copy


(defun c:GCI  (/ newdictlist)  
 (cond (  (setq newdictlist (dictsearch (namedobjdict) "GcImageDef_Dict"))
          (dictremove (namedobjdict) "GcImageDef_Dict")
          (princ "\nThe GcImageDef_Dict has been removed."))
       (  (princ "\nGcImageDef_Dict does not exist.")))
 (princ))

Archiman86 · 发表于 2022-7-6 12:03:37

李，谢谢！这很有效。碰巧，你能解释一下为什么它会为我返回那个错误吗。理论上，据我所知，这应该行得通。我的意思是，我的版本确实有效，但在打印后就出现了这个错误“…已经删除。”再次感谢！

-丹

Lee Mac · 发表于 2022-7-6 12:23:58

这是一句话：

copy


((dictremove (namedobjdict) "GcImageDef_Dict") (princ"\nThe GcImageDef_Dict has been removed."))

也就是说，好像是一个函数（当然不是）。

要在IF函数的THEN语句中封装两个表达式，需要使用类似PROGN的包装器：

copy

JohnM · 发表于 2022-7-6 12:31:43

我认为问题是你的IF语句（=nil newdictlist）应该是
（=newdictlist nil）

[编程交流] 需要帮助删除词典

发表回复

精选推荐