[求助]加入if或cond语句就出错哪位大哥帮看看（已解决）

夏生生

这个程序，在没有添加扩展数据的时候运行的很好，我在CJFH1子程序段加入IF判断后程序就不给我绘制符号了，我用调试代码调试就没有问题。本来我以为是e_d_edit函数的问题，但反复修改尝试都未发现问题所在；后来修改LJFH1段，测试也未发现问题。哪位大哥帮我看看。非常感谢大家的帮助。

调试的

夏生生

错误1：

(defun e_d_edit(en app_nam val str / new_ext_lst old_ext_lst endata judge);编辑扩展数据
  (cond
    ;1.添加扩展数据
    ((= str "make")
     (progn
       (regapp app_nam)
       (setq new_ext_lst(list -3 (list app_nam val)))
       (setq endata(entget en (list app_nam)))
       (if (setq old_ext_lst(assoc -3 endata))
     (setq endata(subst new_ext_lst old_ext_lst endata))
     (setq endata(append endata (list new_ext_lst)))
     );end if
;(entmod endata1);  错误
       (entmod endata)

        );end progn
     );end 1
    ;2.搜索数据并返回Judge值
    ((= str "serch")
     (progn
       (setq endata(entget en (list app_nam)))
       (if (setq old_ext_lst(assoc -3 endata))
     (setq judge(cdr (last (last old_ext_lst))))
     (setq judge "#w#"));end if
       );end progn
     );end 2
    );end cond
  )

错误2：

   (if (= judge "#w#")
;去掉      (progn
     (setq endata (subst new_10_li 10_li endata))
     (setq endata (subst new_11_li 11_li endata))
     (entmod endata)
     (command "-layer" "s" "连接符" "")
     (command "pline" #p1a "w" 200 0 #p1b "")
     (command "pline" #p2a "w" 200 0 #p2b "")
     (e_d_edit en "连接符号" (cons 1000 "2g") "make")))