帮忙看看这段代码执行时为什么未知命令？

yfywk · 发表于 2015-6-3 17:04:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

编写单选对话框，为什么到这里出现未知命令？

(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 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 "") 
      ) 
     ) 
)

/db_自贡黄明儒_ · 发表于 2015-6-3 19:34:35

通常是command后多加了空格＂＂

yfywk · 发表于 2015-6-3 19:49:41

只是加了个对话框实现而已，lisp源文件这一部分执行就没问题啊

yfywk · 发表于 2015-6-4 09:19:41

一直在测试，还是没什么进展，不知为什。另外对话框出现了如下问题 QQ图片20150604090926.png

单选框那里为什么选了第一个后，再选择下面两个任意一个，第一个为什么不关闭？
程序运行到(cond 这里就出错，说是未知命令，不知道为什么？
附源码

(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) 
)

对话框

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;
}
}

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; 
    } 
}

/db_自贡黄明儒_ · 发表于 2015-6-4 11:24:52

: row {改成 radio_row 试试

yfywk · 发表于 2015-6-4 11:53:32

/db_自贡黄明儒_ 发表于 2015-6-4 11:24
: row {改成 radio_row 试试

改成这样还是一样，横排，可以，纵列，也没问题，但就是两两排列就出现这个问题

yfywk · 发表于 2015-6-4 12:57:06

(defun sub_kk1 ()
(setq ddtype A11)
(show_sld "lmimage" "hxsfh")
(set_tile "hxx_kk" "0")
(set_tile "zxz_kk" "0")
(set_tile "zxy_kk" "0")
)
(defun sub_kk2 ()
(setq ddtype B11)
(show_sld "lmimage" "hxxfh")
(set_tile "hxs_kk" "0")
(set_tile "zxz_kk" "0")
(set_tile "zxy_kk" "0")
)
(defun sub_kk3 ()
(setq ddtype C11)
(show_sld "lmimage" "zxzfh")
(set_tile "hxs_kk" "0")
(set_tile "hxx_kk" "0")
(set_tile "zxy_kk" "0")
)
(defun sub_kk4 ()
(setq ddtype D11)
(show_sld "lmimage" "zxyfh")
(set_tile "hxs_kk" "0")
(set_tile "hxx_kk" "0")
(set_tile "zxz_kk" "0")
)
这里改了下，就可以了，哈哈！
但是未知命令还是无法解决，请高手看看，谢谢！

/db_自贡黄明儒_ · 发表于 2015-6-4 13:07:21

(command "INSERT" "kpmfhp02" p2 n1 n1 "" keyk keyp)是不是多了一项？

yfywk · 发表于 2015-6-4 13:34:52

/db_自贡黄明儒_ 发表于 2015-6-4 13:07
(command "INSERT" "kpmfhp02" p2 n1 n1 "" keyk keyp)是不是多了一项？

这一行在未改成对话框前，执行是没有问题的，就是改成对话框后成这样了，是不是不能使用cond

qq1254582201 · 发表于 2019-6-16 00:39:35

对话框不错，有空研究一下

yinchuan99001 · 发表于 2019-7-6 16:12:09

本帖最后由 yinchuan99001 于 2019-7-6 17:03 编辑

子程序在程序中没有(YL_begin)，(YL_end)，(Set_layer)，幻灯片文件hxsfh，hxxfh，zxzfh，zxyfh, kpmfhp02.dwg,kpmfhp01.dwg,kpmfhp02x.dwg,kpmfhp01x.dwg,kpmfhp04.dwg,kpmfhp03.dwg,kpmfhp04y.dwg,kpmfhp03y.dwg.程序运行能通过。

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

[求助] 帮忙看看这段代码执行时为什么未知命令？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评