已解决，谢谢大家 :radio_button分组单选问题求解决

ld80721 · 发表于 2012-1-20 17:40:15

本帖最后由 ld80721 于 2012-1-23 12:20 编辑

高手帮帮忙哦，选择时怎么会出现看似重选的问题，（圈中的点）。
同一列没问题，不同列就会出现这样的问题。我要做到的是：选框中任选其一，其他的不作选择。

我现在有12个单选按钮因为使用功能不同，分为多组，12个只能任选其一，在线请教如何用lisp控制!

cs.lsp

(defun c:cs()
(setvar "cmdecho" 0)
(dcl_lmgt)
(prin1)
)
(defun dcl_lmgt()
(setq dcl_id (load_dialog "lmgt"))
(new_dialog "lmgt" dcl_id)
(sub_rb1)
(set_tile "rb1" "1")
(set_tile "bww" "60")
(set_tile "kww" "420")
(set_tile "khh" "600")
(action_tile "rb1" "(sub_rb1)")
(action_tile "rb2" "(sub_rb2)")
(action_tile "rb3" "(sub_rb3)")
(action_tile "rb4" "(sub_rb4)")
(action_tile "rb5" "(sub_rb5)")
(action_tile "rb6" "(sub_rb6)")
(action_tile "rb7" "(sub_rb7)")
(action_tile "rb8" "(sub_rb8)")
(action_tile "rb9" "(sub_rb9)")
(action_tile "rb10" "(sub_rb10)")
(action_tile "rb11" "(sub_rb11)")
(action_tile "rb12" "(sub_rb12)")
(action_tile "accept" "(ok_lmgt)(done_dialog 1)")
(setq dd(start_dialog))
(if (= dd 1)
(draw_lmgt)
)
)
(defun sub_rb1()
(setq ddtype 1)
(show_sld "kimage" "lmgt1")
(mode_tile "bww" 1)
(mode_tile "kww" 1)
(mode_tile "khh" 1)
)
(defun sub_rb2()
(setq ddtype 2)
(show_sld "kimage" "lmgt2")
(mode_tile "bww" 0)
(mode_tile "kww" 1)
(mode_tile "khh" 1)
)
(defun sub_rb3()
(setq ddtype 3)
(show_sld "kimage" "lmgt3")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 0)
)
(defun sub_rb4()
(setq ddtype 4)
(show_sld "kimage" "lmgt4")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 0)
)
(defun sub_rb5()
(setq ddtype 5)
(show_sld "kimage" "lmgt5")
(mode_tile "bww" 0)
(mode_tile "kww" 1)
(mode_tile "khh" 1)
)
(defun sub_rb6()
(setq ddtype 6)
(show_sld "kimage" "lmgt6")
(mode_tile "bww" 0)
(mode_tile "kww" 1)
(mode_tile "khh" 1)
)
(defun sub_rb7()
(setq ddtype 7)
(show_sld "kimage" "lmgt7")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 1)
)
(defun sub_rb8()
(setq ddtype 8)
(show_sld "kimage" "lmgt8")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 1)
)
(defun sub_rb9()
(setq ddtype 9)
(show_sld "kimage" "lmgt9")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 1)
)
(defun sub_rb10()
(setq ddtype 10)
(show_sld "kimage" "lmgt10")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 0)
)
(defun sub_rb11()
(setq ddtype 11)
(show_sld "kimage" "lmgt11")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 1)
)
(defun sub_rb12()
(setq ddtype 12)
(show_sld "kimage" "lmgt12")
(mode_tile "bww" 1)
(mode_tile "kww" 0)
(mode_tile "khh" 1)
)
(defun show_sld(key sld)
(setq x (dimx_tile key))
(setq y (dimy_tile key))
(start_image key)
(fill_image 0 0 x y -2)
(slide_image 0 0 x y sld)
(end_image)
)
(defun ok_lmgt()
(setq bw (atof (get_tile "bww")))
(setq bb (atof (get_tile "kww")))
(setq hh (atof (get_tile "khh")))
)
(defun draw_lmgt()
(setq pt1 (getpoint "\n左上角点:")
pt3 (getcorner pt1 "\n右下角点:") )
;以下为三个模块共享的点坐标变量
(setq pt2 (polar pt1 0 ww))
(setq pt4 (polar pt3 pi (* ww 0.5)))
(setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5)))
(setq pt6 (polar pt5 pi (* ww 0.5)))
;以下依据不同的类别,调用不同的绘图模式
(cond
((= ddtype 1)
(setq pt2 (polar pt1 (* pi 1.5) bw))
(command "pline" pt1 pt2 pt3 ""))
((= ddtype 2)(command "pline" pt6 pt1 pt2 pt3 pt4 "")
(command "circle" "2p" pt4 pt6))
((= ddtype 3)(command "pline" pt1 pt2 pt3 "")
(command "pline" pt4 pt5 pt6 "")
(command "circle" "2p" pt3 pt4)
(command "circle" "2p" pt6 pt1))
((= ddtype 4)(command "pline" pt1 pt2 pt3 pt4 "a" "a" -180 pt6 "L" "C"))
((= ddtype 5)(command "pline" pt1 pt2 pt3 pt4 "C"))
)
)

(defun c:cs() 
   (setvar "cmdecho" 0) 
   (dcl_lmgt) 
   (prin1) 
) 
(defun dcl_lmgt() 
   (setq dcl_id (load_dialog "lmgt")) 
   (new_dialog "lmgt" dcl_id)    
   (sub_rb1) 
   (set_tile "rb1" "1") 
   (set_tile "bww" "60") 
   (set_tile "kww" "420") 
   (set_tile "khh" "600") 
   (action_tile "rb1" "(sub_rb1)") 
   (action_tile "rb2" "(sub_rb2)") 
   (action_tile "rb3" "(sub_rb3)") 
   (action_tile "rb4" "(sub_rb4)") 
   (action_tile "rb5" "(sub_rb5)") 
   (action_tile "rb6" "(sub_rb6)") 
   (action_tile "rb7" "(sub_rb7)") 
   (action_tile "rb8" "(sub_rb8)") 
   (action_tile "rb9" "(sub_rb9)") 
   (action_tile "rb10" "(sub_rb10)") 
   (action_tile "rb11" "(sub_rb11)") 
   (action_tile "rb12" "(sub_rb12)") 
 
 
 
 
   (action_tile "accept" "(ok_lmgt)(done_dialog 1)") 
   (setq dd(start_dialog)) 
   (if (= dd 1) 
       (draw_lmgt) 
   ) 
) 
(defun sub_rb1() 
   (setq ddtype 1) 
   (show_sld "kimage" "lmgt1") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 1) 
    
   (mode_tile "khh" 1) 
) 
(defun sub_rb2() 
   (setq ddtype 2) 
   (show_sld "kimage" "lmgt2") 
   (mode_tile "bww" 0) 
   (mode_tile "kww" 1) 
 
   (mode_tile "khh" 1) 
) 
(defun sub_rb3() 
   (setq ddtype 3) 
   (show_sld "kimage" "lmgt3") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
 
   (mode_tile "khh" 0) 
) 
(defun sub_rb4() 
   (setq ddtype 4) 
   (show_sld "kimage" "lmgt4") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
 
   (mode_tile "khh" 0) 
) 
(defun sub_rb5() 
   (setq ddtype 5) 
   (show_sld "kimage" "lmgt5") 
   (mode_tile "bww" 0) 
   (mode_tile "kww" 1) 
   (mode_tile "khh" 1) 
) 
 
(defun sub_rb6() 
   (setq ddtype 6) 
   (show_sld "kimage" "lmgt6") 
   (mode_tile "bww" 0) 
   (mode_tile "kww" 1) 
   (mode_tile "khh" 1) 
) 
 
(defun sub_rb7() 
   (setq ddtype 7) 
   (show_sld "kimage" "lmgt7") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
   (mode_tile "khh" 1) 
) 
(defun sub_rb8() 
   (setq ddtype 8) 
   (show_sld "kimage" "lmgt8") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
   (mode_tile "khh" 1) 
) 
(defun sub_rb9() 
   (setq ddtype 9) 
   (show_sld "kimage" "lmgt9") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
   (mode_tile "khh" 1) 
) 
(defun sub_rb10() 
   (setq ddtype 10) 
   (show_sld "kimage" "lmgt10") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
   (mode_tile "khh" 0) 
) 
(defun sub_rb11() 
   (setq ddtype 11) 
   (show_sld "kimage" "lmgt11") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
   (mode_tile "khh" 1) 
) 
 
(defun sub_rb12() 
   (setq ddtype 12) 
   (show_sld "kimage" "lmgt12") 
   (mode_tile "bww" 1) 
   (mode_tile "kww" 0) 
   (mode_tile "khh" 1) 
) 
 
 
 
 
 
 
(defun show_sld(key sld) 
   (setq x (dimx_tile key)) 
   (setq y (dimy_tile key)) 
   (start_image key) 
   (fill_image 0 0 x y -2) 
   (slide_image 0 0 x y sld) 
   (end_image) 
) 
(defun ok_lmgt() 
   (setq bw (atof (get_tile "bww"))) 
   (setq bb (atof (get_tile "kww"))) 
   (setq hh (atof (get_tile "khh"))) 
) 
(defun draw_lmgt() 
   (setq pt1 (getpoint "\n左上角点:") 
         pt3 (getcorner pt1 "\n右下角点:") ) 
   ;以下为三个模块共享的点坐标变量 
   (setq pt2 (polar pt1 0 ww)) 
    
   (setq pt4 (polar pt3 pi (* ww 0.5))) 
   (setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5))) 
   (setq pt6 (polar pt5 pi (* ww 0.5))) 
   ;以下依据不同的类别,调用不同的绘图模式 
   (cond 
     ((= ddtype 1) 
                                  
                 (setq pt2 (polar pt1 (* pi 1.5) bw)) 
 
                  (command "pline" pt1 pt2 pt3  "")) 
     ((= ddtype 2)(command "pline" pt6 pt1 pt2 pt3 pt4 "") 
                  (command "circle" "2p" pt4 pt6)) 
     ((= ddtype 3)(command "pline" pt1 pt2 pt3 "") 
    (command "pline" pt4 pt5 pt6 "") 
                  (command "circle" "2p" pt3 pt4) 
                  (command "circle" "2p" pt6 pt1)) 
     ((= ddtype 4)(command "pline" pt1 pt2 pt3 pt4 "a" "a" -180 pt6 "L" "C")) 
     ((= ddtype 5)(command "pline" pt1 pt2 pt3 pt4 "C")) 
   ) 
)

lmgt:dialog{
label="衣柜立面内结构绘制工具浪刀作品";
spacer_1;
:column{
:row{
:image {
key = "kimage";
color = -2;
width = 41;
aspect_ratio =0.6;
}
:boxed_radio_column{
label="设计样式";
:radio_button{label="36宽边框线"; key="rb1";}
:radio_button{label="欧式边框线"; key="rb2";}
:radio_button{label="两等分样式"; key="rb3";}
:text{label="中间电视位";}
:row{
:radio_button{label="普通"; key="rb4";}
:radio_button{label="欧外"; key="rb5";}
:radio_button{label="欧内"; key="rb6";}}
}
}
:row{
:boxed_radio_column{
label="无敌组合";
:row{
:radio_button{label="上叠下挂"; key="rb7";horizontal_margin = none;vertical_margin = none;}
:radio_button{label="上挂下叠"; key="rb8";horizontal_margin = none;vertical_margin = none;}
:radio_button{label="上挂下挂"; key="rb9";horizontal_margin = none;vertical_margin = none;}
}
:row{
:radio_button{label="上挂下裤"; key="rb10";horizontal_margin = none;vertical_margin = none;}
:radio_button{label="中间电视"; key="rb11";horizontal_margin = none;vertical_margin = none;}
:radio_button{label="全为层板"; key="rb12";horizontal_margin = none;vertical_margin = none;}}
}
:column{
:edit_box{label="边框线宽度BW:";edit_width=8;edit_limit=2;key="bww";}
:edit_box{label="棉被格高度MH:";edit_width=8;edit_limit=3;key="kww";}
:edit_box{label="库抽格宽度KW:";edit_width=8;edit_limit=3;key="khh";}
}
} }
spacer_1;
ok_cancel;
}

lmgt:dialog{ 
  label="衣柜立面内结构绘制<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>  浪刀作品"; 
spacer_1; 
  :column{ 
       :row{ 
        :image { 
      key = "kimage"; 
      color = -2; 
                        width = 41; 
      aspect_ratio =0.6; 
               } 
         
       
 
       
   
    :boxed_radio_column{ 
      label="设计样式"; 
                        :radio_button{label="36宽边框线";    key="rb1";} 
      :radio_button{label="欧式边框线";    key="rb2";} 
                        :radio_button{label="两等分样式";    key="rb3";} 
                      
      :text{label="中间电视位";} 
                        :row{ 
      :radio_button{label="普通";    key="rb4";} 
                        :radio_button{label="欧外";    key="rb5";} 
                        :radio_button{label="欧内";    key="rb6";}} 
 
      } 
             
             } 
       
                        
  :row{ 
       :boxed_radio_column{   
                         label="无敌组合"; 
  :row{            
     :radio_button{label="上叠下挂";    key="rb7";horizontal_margin = none;vertical_margin = none;} 
     :radio_button{label="上挂下叠";    key="rb8";horizontal_margin = none;vertical_margin = none;} 
     :radio_button{label="上挂下挂";    key="rb9";horizontal_margin = none;vertical_margin = none;} 
     } 
  :row{ 
      
     :radio_button{label="上挂下裤";    key="rb10";horizontal_margin = none;vertical_margin = none;} 
     :radio_button{label="中间电视";    key="rb11";horizontal_margin = none;vertical_margin = none;} 
     :radio_button{label="全为层板";    key="rb12";horizontal_margin = none;vertical_margin = none;}} 
      
      
     } 
       :column{ 
      
   
                  :edit_box{label="边框线宽度BW:";edit_width=8;edit_limit=2;key="bww";} 
      :edit_box{label="棉被格高度MH:";edit_width=8;edit_limit=3;key="kww";} 
                         
      :edit_box{label="库抽格宽度KW:";edit_width=8;edit_limit=3;key="khh";} 
       
      } 
    
                
    }  } 
    
  spacer_1; 
  ok_cancel; 
}

ld80721 · 发表于 2012-1-20 19:55:26

我费尽周折找到以下循环代码，本人套进去，我要的可以实现，但其他连接失效，不明哦。求助！
代码

(setq ma mb)
(if (null ma) (setq ma "M6"))
(set_tile ma "1")
(setq spec '("M3" "M4" "M5" "M6" "M8" "M10" "M12" "M14" "M16"
"M18" "M20" "M22" "M24" "M27" "M30" "M33" "M36" "M39"
"M42" "M45" "M48" "M52"))
(foreach keyspec spec (action_tile keyspec "(sel)"))
(defun sel ()
(foreach keyspec1 spec (set_tile keyspec1 "0"))
(setq ma $key)
(set_tile $key "1")
(setq mb ma)
)

ld80721 · 发表于 2012-1-21 08:40:42

我现在有12个单选按钮因为使用功能不同，分为多组，12个只能任选其一，在线请教如何用lisp控制!

mmmmmm · 发表于 2012-1-21 11:35:01

将所有的radio_button合并到一个里面，需要重新布置对话框。

lmgt:dialog{
label="衣柜立面内结构绘制工具浪刀作品";
:row{
:boxed_radio_column{
key="rbtype";
:text{label=" >> 设计样式";}
:radio_button{label="36宽边框线";key="rb1";}
:radio_button{label="欧式边框线";key="rb2";}
:radio_button{label="两等分样式";key="rb3";}
:text{label=" >> 中间电视位";}
:radio_button{label="普通";key="rb4";}
:radio_button{label="欧外";key="rb5";}
:radio_button{label="欧内";key="rb6";}
:text{label=" >> 无敌组合";}
:radio_button{label="上叠下挂";key="rb7";}
:radio_button{label="上挂下叠";key="rb8";}
:radio_button{label="上挂下挂";key="rb9";}
:radio_button{label="上挂下裤";key="rb10";}
:radio_button{label="中间电视";key="rb11";}
:radio_button{label="全为层板";key="rb12";}
}
:column{
spacer;
:image {key = "kimage";color = -2;width = 50;aspect_ratio =0.6;}
:boxed_column {
:edit_box{label="边框线宽度BW:";edit_width=8;edit_limit=2;key="bww";}
:edit_box{label="棉被格高度MH:";edit_width=8;edit_limit=3;key="kww";}
:edit_box{label="库抽格宽度KW:";edit_width=8;edit_limit=3;key="khh";}
}
errtile;
ok_cancel;
}
}
}

lmgt:dialog{ 
   label="衣柜立面内结构绘制工具  浪刀作品"; 
   :row{ 
     :boxed_radio_column{ 
      key="rbtype"; 
      :text{label=" >> 设计样式";}       
      :radio_button{label="36宽边框线";key="rb1";} 
      :radio_button{label="欧式边框线";key="rb2";} 
      :radio_button{label="两等分样式";key="rb3";}                      
      :text{label=" >> 中间电视位";} 
      :radio_button{label="普通";key="rb4";} 
      :radio_button{label="欧外";key="rb5";} 
      :radio_button{label="欧内";key="rb6";} 
      :text{label=" >> 无敌组合";}      
      :radio_button{label="上叠下挂";key="rb7";} 
      :radio_button{label="上挂下叠";key="rb8";} 
      :radio_button{label="上挂下挂";key="rb9";} 
      :radio_button{label="上挂下裤";key="rb10";} 
      :radio_button{label="中间电视";key="rb11";} 
      :radio_button{label="全为层板";key="rb12";} 
     } 
     :column{ 
      spacer; 
      :image {key = "kimage";color = -2;width = 50;aspect_ratio =0.6;} 
      :boxed_column { 
      :edit_box{label="边框线宽度BW:";edit_width=8;edit_limit=2;key="bww";} 
      :edit_box{label="棉被格高度MH:";edit_width=8;edit_limit=3;key="kww";}                         
      :edit_box{label="库抽格宽度KW:";edit_width=8;edit_limit=3;key="khh";} 
      } 
      errtile; 
      ok_cancel; 
     } 
  }   
}

LISP program update

(defun C:lmgt ()
(defun _RbType (id / KEY X Y)
(set_tile "rbtype" id)
(setq ddtype (read (substr id 3))
key "kimage"
x (dimx_tile key)
y (dimy_tile key)
)
(start_image key)
(fill_image 0 0 x y -2)
(slide_image 0 0 x y (strcat "lmgt" (itoa ddtype)))
(end_image)
)
(defun ok_lmgt ()
(setq bw (atof (get_tile "bww")))
(setq bb (atof (get_tile "kww")))
(setq hh (atof (get_tile "khh")))
)
(defun draw_lmgt ()
(setq pt1 (getpoint "\n左上角点:")
pt3 (getcorner pt1 "\n右下角点:")
)
;以下为三个模块共享的点坐标变量
(setq pt2 (polar pt1 0 ww))
(setq pt4 (polar pt3 pi (* ww 0.5)))
(setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5)))
(setq pt6 (polar pt5 pi (* ww 0.5)))
;以下依据不同的类别,调用不同的绘图模式
(cond
((= ddtype 1)
(setq pt2 (polar pt1 (* pi 1.5) bw))
(command "pline" pt1 pt2 pt3 "")
)
((= ddtype 2)
(command "pline" pt6 pt1 pt2 pt3 pt4 "")
(command "circle" "2p" pt4 pt6)
)
((= ddtype 3)
(command "pline" pt1 pt2 pt3 "")
(command "pline" pt4 pt5 pt6 "")
(command "circle" "2p" pt3 pt4)
(command "circle" "2p" pt6 pt1)
)
((= ddtype 4)
(command "pline" pt1 pt2 pt3 pt4 "a" "a" -180 pt6 "L" "C")
)
((= ddtype 5) (command "pline" pt1 pt2 pt3 pt4 "C"))
)
)
(setq ddtype 1
dcl_id (load_dialog "lmgt")
)
(if (new_dialog "lmgt" dcl_id)
(progn
(_RbType (strcat "rb" (itoa ddtype)))
(setq ii 0)
(while (< (setq ii (1+ ii)) 13)
(action_tile (strcat "rb" (itoa ii)) "(_RbType $Key)")
)
(set_tile "bww" "60")
(set_tile "kww" "420")
(set_tile "khh" "600")
(action_tile "accept" "(ok_lmgt)(done_dialog 1)")
(if (= (start_dialog) 1)
(draw_lmgt)
)
)
)
)

(defun C:lmgt () 
  (defun _RbType (id / KEY X Y) 
    (set_tile "rbtype" id) 
    (setq ddtype (read (substr id 3)) 
          key         "kimage" 
          x         (dimx_tile key) 
          y         (dimy_tile key) 
    ) 
    (start_image key) 
    (fill_image 0 0 x y -2) 
    (slide_image 0 0 x y (strcat "lmgt" (itoa ddtype))) 
    (end_image) 
  ) 
  (defun ok_lmgt () 
    (setq bw (atof (get_tile "bww"))) 
    (setq bb (atof (get_tile "kww"))) 
    (setq hh (atof (get_tile "khh"))) 
  ) 
  (defun draw_lmgt () 
    (setq pt1 (getpoint "\n左上角点:") 
          pt3 (getcorner pt1 "\n右下角点:") 
    ) 
                                        ;以下为三个模块共享的点坐标变量 
    (setq pt2 (polar pt1 0 ww)) 
 
    (setq pt4 (polar pt3 pi (* ww 0.5))) 
    (setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5))) 
    (setq pt6 (polar pt5 pi (* ww 0.5))) 
                                        ;以下依据不同的类别,调用不同的绘图模式 
    (cond 
      ((= ddtype 1) 
 
       (setq pt2 (polar pt1 (* pi 1.5) bw)) 
 
       (command "pline" pt1 pt2 pt3 "") 
      ) 
      ((= ddtype 2) 
       (command "pline" pt6 pt1 pt2 pt3 pt4 "") 
       (command "circle" "2p" pt4 pt6) 
      ) 
      ((= ddtype 3) 
       (command "pline" pt1 pt2 pt3 "") 
       (command "pline" pt4 pt5 pt6 "") 
       (command "circle" "2p" pt3 pt4) 
       (command "circle" "2p" pt6 pt1) 
      ) 
      ((= ddtype 4) 
       (command "pline" pt1 pt2 pt3 pt4 "a" "a" -180 pt6 "L" "C") 
      ) 
      ((= ddtype 5) (command "pline" pt1 pt2 pt3 pt4 "C")) 
    ) 
  ) 
  (setq        ddtype 1 
        dcl_id (load_dialog "lmgt") 
  ) 
  (if (new_dialog "lmgt" dcl_id) 
    (progn 
      (_RbType (strcat "rb" (itoa ddtype))) 
      (setq ii 0) 
      (while (< (setq ii (1+ ii)) 13) 
        (action_tile (strcat "rb" (itoa ii)) "(_RbType $Key)") 
      ) 
      (set_tile "bww" "60") 
      (set_tile "kww" "420") 
      (set_tile "khh" "600") 
      (action_tile "accept" "(ok_lmgt)(done_dialog 1)") 
      (if (= (start_dialog) 1) 
        (draw_lmgt) 
      ) 
    ) 
  ) 
)

ld80721 · 发表于 2012-1-21 11:51:47

好像不行哦，不到问题出在哪里

mmmmmm · 发表于 2012-1-21 12:12:48

你把文件都放到搜索路径里。
另外在draw_lmgt里，(setq pt2 (polar pt1 0 ww))这一句，WW没有定义。

ZZXXQQ · 发表于 2012-1-21 12:19:03

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

ld80721 · 发表于 2012-1-21 12:38:46

谢谢，正在摸索中。。。

ld80721 · 发表于 2012-1-21 13:49:51

ZZXXQQ 发表于 2012-1-21 12:19
[/post]

谢谢你的帮忙，问题已解决。还有一问题请教下。
(cond((= ddtype 1) 。。。依据不同的类别,调用不同的绘图模式，为何出现问题！
附件传上，再帮个忙。帮我的绘图程序套进去下，谢谢
lmgt.lsp

lmgt.dcl

两等分衣柜.lsp

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

已解决，谢谢大家 :radio_button分组单选问题求解决

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块