[求助]谁给看看老是调试不成功

linshiyin2

;;;---------------------
;;;插入爆破材料库
;;;---------------------
(DEFUN C:bpclk() (SETQ DCL_ID (LOAD_DIALOG "custom.DCL"))
(NEW_DIALOG "BP_DCL" DCL_ID)
  (setq bt2t (GET_TILE "bp_2t")
 bp4t (GET_TILE "bp_4t")
 bp6t (GET_TILE "bp_6t")
 )
 
  (cond (= bp2t 1) (setq bpnm "bp2t.dwg")
 (= bp4t 1) (setq bpnm "bp4t.dwg")
 (= bp6t 1) (setq bpnm "bp6t.dwg")
    )
(ACTION_TILE "accept" "(drw_bp)(done_dialog)")
(START_DIALOG)(UNLOAD_DIALOG DCL_ID)
(PRINC))

(defun drw_bp()
  (setq pt1 (getpoint "插入点<炸药出口>:"))
  (setq pt2 (getpoint "巷道方向:"))
  (setq fwj (angle pt1 pt2))
  (setvar "aunits" 3);;角度弧度
  (setq M (get_m));;获取比例m
  (command "insert"  bpnm pt1 1 "" fwj);插入汇签
  );;;end插入爆破材料库

//------------------------
//插入爆破材料库对话框
//---------------------
BP_DCL:dialog
{ label="插入爆破材料库";
  :radio_row
  {label="";
               :radio_button
               {label="1～2t";
               key="bp_2t";
               value=1;
               }

               :radio_button
               {label="3～4t";
               key="bp_4t";
               value=0;
               }
               :radio_button
               {label="5～6t";
               key="bp_6t";
               value=0;
               }
  }
  ok_cancel;
  }

linshiyin2

(setq M (get_m));;获取比例m可以去掉

ZZXXQQ

程序散乱，不好读。

简单看了下有下列问题：

1、cond函数后的程序结构有误，每个判断要加一对圆括弧。

2、在done_dislog前的函数中不能调用command。

3、对话框文件名是ddd.dcl，可程序中怎么用custom.DCL加载？

linshiyin2

 回楼zzxxqq，ddd是因为我另存为时临时起的名字，
(ACTION_TILE "accept" "(drw_bp)(done_dialog)")
(command "insert"  bpnm pt1 1 "" fwj);插入汇签
(START_DIALOG)(UNLOAD_DIALOG DCL_ID)
这样可以吗

linshiyin2

 DEFUN C:bpclk
 (if (> (SETQ DCL_ID (LOAD_DIALOG "custom.DCL")) 0) (progn
  (if (NEW_DIALOG "BP_DCL" DCL_ID) (progn
   (getdata)
   (ACTION_TILE "accept" "(getdata)(done_dialog 1)")
   (action_tile "cancel" "(done_dialog 0)")
   (setq re (START_DIALOG))
  )
   (alert "无法显示对话框！")
  )
  (UNLOAD_DIALOG DCL_ID)
 )
  (alert "无法加载对话框！")
 )
 (if (= re 1) (drw_bp))
 (PRINC)
)
(defun getdata ()
 (setq bt2t (GET_TILE "bp_2t")
       bp4t (GET_TILE "bp_4t")
       bp6t (GET_TILE "bp_6t"))
 (cond
  ((= bp2t 1) (setq bpnm "bp2t.dwg"))
  ((= bp4t 1) (setq bpnm "bp4t.dwg"))
  ((= bp6t 1) (setq bpnm "bp6t.dwg"))
 )
)
(defun drw_bp()
 (setq pt1 (getpoint "插入点<炸药出口>:"))
 (setq pt2 (getpoint "巷道方向:"))
 (setq fwj (angle pt1 pt2))
 (setvar "aunits" 3);;角度弧度
 (setq M (get_m));;获取比例m
 (command "insert"  bpnm pt1 1 "" fwj);插入汇签
);;;end插入爆破材料库