单选对话框，为什么执行时出现未知错误？

yfywk · 发表于 2015-6-4 15:56:22

练习写单选对话框，选择后，运行命令出现未知错误
源码

(defun show_sld (key sld)
;(setq key "lmimage")
(setq px (dimx_tile key));;获取图像右下角X坐标
(setq py (dimy_tile key));;获取图像右下角Y坐标
(start_image key);;开始处理图像对象
(fill_image 0 0 px py -2);先处理图像对象
(slide_image 0 0 px py sld);;展示幻灯片
(end_image);;结束
)
(defun dcl_pqfh ()
(setq dcl_id (load_dialog "pqfh"))
(if (not (new_dialog "pqfh" dcl_id))
(exit)
)
(setq zs_err 1)
(sub_kk1)
(set_tile "hxs_kk" "1") ;;;设置剖切方向为横向上
(set_tile "bl_kk" (rtos (getvar "DIMSCALE")));;设置比例初始值为当前标注比例
(if $syth_sc$
(set_tile "syh_kk" $syth_sc$)
(set_tile "syh_kk" "索引号")
);如果索引号为空，则设置为索引号，否则设置为上次输入值
(if $syym_sc$
(set_tile "syym_kk" $syym_sc$)
(set_tile "syym_kk" "索引页码")
);如果索引页码为空，则设置为索引页码，否则设置为上次输入值
(action_tile "syh_kk" "(setq keyk $Value)")
(action_tile "syym_kk" "(setq keyp $Value)")
(action_tile "hxs_kk" "(sub_kk1)")
(action_tile "hxx_kk" "(sub_kk2)")
(action_tile "zxz_kk" "(sub_kk3)")
(action_tile "zxy_kk" "(sub_kk4)")
(action_tile "ins_ok" "(ok_pqfh) (done_dialog 1)")
(setq dd (start_dialog))
(if (= dd 1)
(inst_pqfh)
)
(UNLOAD_DIALOG dcl_id)
)
(defun ok_pqfh ()
(setq n1 (get_tile "bl_kk"));;;当前标注比例
(if (= n1 "")
(setq n1 n2)
)
(setq keyk (get_tile "syh_kk")) ;;;;;请输入索引图号，如D-01，D-02，D-03.
(setq $syth_sc$ keyk)
$syth_sc$
(if (= keyk "")
(setq keyk "索引号")
)
(setq keyp (get_tile "syym_kk")) ;;;;; 请输入本图名称，如1，2，3... A，B，C...<1>:
(setq $syym_sc$ keyp)
(if (= keyp "")
(setq keyp "索引页码")
)
)
(defun sub_kk1 ()
(setq ddtype 1)
(show_sld "lmimage" "hxsfh")
)
(defun sub_kk2 ()
(setq ddtype 2)
(show_sld "lmimage" "hxxfh")
)
(defun sub_kk3 ()
(setq ddtype 3)
(show_sld "lmimage" "zxzfh")
)
(defun sub_kk4 ()
(setq ddtype 4)
(show_sld "lmimage" "zxyfh")
)
(defun inst_pqfh (/ p1 p2 n1 n2 keyk keyp fh_layer)
(setq g_yesorno 1);设置是否编组
(setq p1 (getpoint "\n指定剖切线第一点:"))
(setq p2 (getpoint p1 "\n指定剖切线下一点:"))
(Set_layer)
(command "layer" "s" fh_layer "")
(command ".line" p1 p2 "")
(setq obj_line (entlast))
(setq n5 (getvar "ltscale"))
(setq n6 (/ (* 6 (getvar "DIMSCALE")) n5))
(command "change" obj_line "" "p" "lt" "CENTER" "c" "6" "s" n6 "");;这一部执行完，下来就出错，未知命令
(cond
((= ddtype 1)
(command "INSERT" "kpmfhp02" p2 n1 n1 "" keyk keyp)
(setq obj_nb (entlast))
(command "INSERT" "kpmfhp01" p1 n1 n1 "")
(setq obj_na (entlast))
)
((= ddtype 2)
(command "INSERT" "kpmfhp02x" p2 n1 n1 "" keyk keyp)
(setq obj_nb (entlast))
(command "INSERT" "kpmfhp01x" p1 n1 n1 "")
(setq obj_na (entlast))
)
((= ddtype 3)
(command "INSERT" "kpmfhp04" p2 n1 n1 "" keyk keyp)
(setq obj_nb (entlast))
(command "INSERT" "kpmfhp03" p1 n1 n1 "")
(setq obj_na (entlast))
)
((= ddtype 4)
(command "INSERT" "kpmfhp04y" p2 n1 n1 "" keyk keyp)
(setq obj_nb (entlast))
(command "INSERT" "kpmfhp03y" p1 n1 n1 "")
(setq obj_na (entlast))
)
)
;(command "" "")
(if (= g_yesorno 1) ;编组
(progn
(setq obj_together (ssadd obj_na (ssadd obj_nb (ssadd obj_line))))
;生成匿名组
(command "-group" "c" "*" "符号标注" obj_together "")
)
)
)
;剖切符号插入命令，作者：凯凯
(defun c:test (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp keyl fh_layer)
(command "undo" "be")
(command "ATTDIA" 0)
(YL_begin)
(dcl_pqfh)
(YL_end) ;
(command "undo" "e")
(princ)
)

(defun show_sld (key sld) 
      ;(setq key "lmimage") 
      (setq px (dimx_tile key));;获取图像右下角X坐标 
     (setq py (dimy_tile key));;获取图像右下角Y坐标 
     (start_image key);;开始处理图像对象 
     (fill_image 0 0 px py -2);先处理图像对象 
     (slide_image 0 0 px py sld);;展示幻灯片 
     (end_image);;结束 
) 
 
(defun dcl_pqfh () 
(setq dcl_id (load_dialog "pqfh")) 
(if (not (new_dialog "pqfh" dcl_id)) 
(exit) 
) 
 (setq zs_err 1) 
(sub_kk1) 
 (set_tile "hxs_kk" "1") ;;;设置剖切方向为横向上 
(set_tile "bl_kk" (rtos (getvar "DIMSCALE")));;设置比例初始值为当前标注比例 
(if $syth_sc$ 
    (set_tile "syh_kk" $syth_sc$) 
    (set_tile "syh_kk" "索引号") 
   );如果索引号为空，则设置为索引号，否则设置为上次输入值 
(if $syym_sc$ 
     (set_tile "syym_kk" $syym_sc$) 
     (set_tile "syym_kk" "索引页码") 
 );如果索引页码为空，则设置为索引页码，否则设置为上次输入值 
 
(action_tile "syh_kk" "(setq keyk $Value)") 
(action_tile "syym_kk" "(setq keyp $Value)") 
(action_tile "hxs_kk" "(sub_kk1)") 
(action_tile "hxx_kk" "(sub_kk2)") 
(action_tile "zxz_kk" "(sub_kk3)") 
(action_tile "zxy_kk" "(sub_kk4)") 
(action_tile "ins_ok" "(ok_pqfh) (done_dialog 1)") 
(setq dd (start_dialog)) 
(if (= dd 1) 
(inst_pqfh) 
) 
(UNLOAD_DIALOG dcl_id) 
) 
 
(defun ok_pqfh () 
(setq n1 (get_tile "bl_kk"));;;当前标注比例 
(if (= n1 "") 
   (setq n1 n2) 
) 
(setq keyk (get_tile "syh_kk")) ;;;;;请输入索引图号，如D-01，D-02，D-03. 
(setq $syth_sc$ keyk) 
$syth_sc$ 
 (if (= keyk "") 
   (setq keyk "索引号") 
 ) 
(setq keyp (get_tile "syym_kk")) ;;;;; 请输入本图名称，如1，2，3... A，B，C...<1>: 
(setq $syym_sc$ keyp) 
 (if (= keyp "") 
   (setq keyp "索引页码") 
 ) 
) 
 
(defun sub_kk1 () 
   (setq ddtype 1) 
   (show_sld "lmimage" "hxsfh") 
) 
(defun sub_kk2 () 
   (setq ddtype 2) 
   (show_sld "lmimage" "hxxfh") 
) 
(defun sub_kk3 () 
   (setq ddtype 3) 
   (show_sld "lmimage" "zxzfh") 
) 
(defun sub_kk4 () 
   (setq ddtype 4) 
   (show_sld "lmimage" "zxyfh") 
) 
 
(defun inst_pqfh (/ p1 p2 n1 n2 keyk keyp fh_layer) 
 (setq g_yesorno 1);设置是否编组 
(setq p1 (getpoint "\n指定剖切线第一点:")) 
(setq p2 (getpoint p1 "\n指定剖切线下一点:")) 
(Set_layer) 
(command "layer" "s" fh_layer "") 
(command ".line" p1 p2 "") 
 (setq obj_line (entlast)) 
(setq n5 (getvar "ltscale")) 
(setq n6 (/ (* 6 (getvar "DIMSCALE")) n5)) 
(command "change" obj_line "" "p" "lt" "CENTER" "c" "6" "s" n6 "");;这一部执行完，下来就出错，未知命令 
(cond 
        ((= ddtype 1) 
         (command "INSERT" "kpmfhp02" p2 n1 n1 "" keyk keyp) 
         (setq obj_nb (entlast)) 
         (command "INSERT" "kpmfhp01" p1 n1 n1 "") 
         (setq obj_na (entlast)) 
          ) 
         ((= ddtype 2) 
           (command "INSERT" "kpmfhp02x" p2 n1 n1 "" keyk keyp) 
           (setq obj_nb (entlast)) 
           (command "INSERT" "kpmfhp01x" p1 n1 n1 "") 
           (setq obj_na (entlast)) 
          ) 
        ((= ddtype 3) 
                 (command "INSERT" "kpmfhp04" p2 n1 n1 "" keyk keyp) 
                (setq obj_nb (entlast)) 
                 (command "INSERT" "kpmfhp03" p1 n1 n1 "") 
                 (setq obj_na (entlast)) 
          ) 
        ((= ddtype 4) 
               (command "INSERT" "kpmfhp04y" p2 n1 n1 "" keyk keyp) 
               (setq obj_nb (entlast)) 
                (command "INSERT" "kpmfhp03y" p1 n1 n1 "") 
                (setq obj_na (entlast)) 
           ) 
  ) 
;(command "" "") 
 (if (= g_yesorno 1) ;编组 
      (progn 
       (setq obj_together (ssadd obj_na  (ssadd obj_nb (ssadd obj_line)))) 
       ;生成匿名组 
       (command "-group" "c" "*" "符号标注" obj_together "") 
      ) 
     ) 
) 
 
;剖切符号插入命令，作者：凯凯 
(defun c:test (/ lst ptt1 pt1 n1 n2 n8 n2 keyk keyp keyl fh_layer) 
(command "undo" "be") 
(command  "ATTDIA" 0) 
(YL_begin) 
(dcl_pqfh) 
(YL_end) ; 
(command "undo" "e") 
(princ) 
)

DCL源码
pqfh : dialog {
   label = "剖切符号插入工具——by  凯凯";
      : row {
   alignment=centered;
   fixed_width=true;
: column{
      : row {
: column{
   : boxed_column {
   alignment=centered;
   fixed_width=true;
   label = "索引选项：";
            is_bold=true;
      : edit_box {
            label = "索引号：";
            key = "syh_kk";
            edit_width = 10;
            edit_limit =15;
         }
      : edit_box {
            label = "索引页码：";
            key = "syym_kk";
            edit_width = 10;
            edit_limit =15;
         }
}
      :spacer {
}
   : boxed_column {
alignment=centered;
   fixed_width=true;
            label = "SCALE：";
      : edit_box {
            label = "当前比例：";
            key = "bl_kk";
            edit_width =10;
            edit_limit =15;
         }
}
      :spacer {
}
   : boxed_column {
alignment=centered;
fixed_width=false;
         // width = 27;
            label = "选择剖切方向：";
: row {
//alignment=centered;
//fixed_width=true;
   : radio_button {
            label = "横向上";
            key = "hxs_kk";
         }
   : radio_button {
            label = "横向下";
            key = "hxx_kk";
         }
}
: row {
   : radio_button {
            label = "纵向左";
            key = "zxz_kk";
         }
   : radio_button {
            label = "纵向右";
            key = "zxy_kk";
      alignment=right;
         }
}
}
}
      :image {
            key = "lmimage";
            width = 45;
            height = 20;
            fixed_width = true;
            fixed_height = false;
            color = -15;
         allow_accept=true;
         //alignment=centered;
            }
}

}
}
         errtile;
: row {
   alignment=centered;
   fixed_width=true;

   : button {
                  label = "确定";
                  key = "ins_ok";
                  width = 8;
                  is_default=true;
   }
   : spacer { width =4;}
      cancel_button;
}
}

账号		自动登录	找回密码
密码			注册

[提问] 单选对话框，为什么执行时出现未知错误？

浏览过的版块