[求助]：请那位大哥帮忙看看这个程序,以前发的都没成功!!!

frankxie · 发表于 2005-12-9 15:15:01

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

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

×

此程序功能：选择一直线后，出现以对话框，默认值为管，当选择板、环、锥或型钢后出现一新的对话框，但是现在当选择板、环、锥或型钢后，不出现对话框，而是提示错误，不知怎么回事，请那位大哥帮忙看看，谢谢了
有点着急！

xyp1964 · 发表于 2005-12-9 15:30:59

最初由 frankxie 发布
[B]此程序功能：选择一直线后，出现以对话框，默认值为管，当选择板、环、锥或型钢后出现一新的对话框，但是现在当选择板、环、锥或型钢后，不出现对话框，而是提示错误，不知怎么回事，请那位大哥帮忙看看，谢谢了
有... [/B]

没看懂“此程序功能：选择一直线后，出现以对话框，默认值为管，当选择板、环、锥或型钢后出现一新的对话框，但是现在当选择板、环、锥或型钢后，不出现对话框，而是提示错误，不知怎么回事，请那位大哥帮忙看看，谢谢了！有点着急！”，请提供DWG文件加以说明！

frankxie · 发表于 2005-12-9 15:35:57

把备份文件加载后,输入命令input 就可以出来对话框

wwwdh · 发表于 2005-12-13 10:39:16

你是不是没有把第一个对话框结束或中断就调用第二个对话框啦？

似水无痕 · 发表于 2005-12-13 13:16:32

程序中第174行(unload_dialog input)不对，应改为(unload_dialog index_value)，因为你在新建对话框new_dialog时是这样的用法！(if (new_dialog "input" index_value)！因为和你不一样的专业，不知你想要让程序完成什么？但你说的问题即“不出现对话框，而是提示错误”可能在这一句！
还有第86行(set_tile "type" (vl-princ-to-string lasttype))一句是什么意思，lasttype变量好像在程序前面并没有出现，运行到此步时其值为nil，所以以下程序中：

(cond
((= lasttype "pipe")
(progn
(pipestatus)
(set_tile "leftnode" (vl-princ-to-string lastleftnode))
(set_tile "leftboard" (vl-princ-to-string lastleftboard))
(set_tile "rightnode" (vl-princ-to-string lastrightnode))
(set_tile "rightboard"
(vl-princ-to-string lastrightboard)
)
(set_tile "No" (vl-princ-to-string lastno))
(set_tile "length" (vl-princ-to-string lastlength))
;;;;;;;;;;;;;;;;;;
(set_tile "diameter" (vl-princ-to-string lastdiameter))
;;;;;;;;;;;;;;;;;;
(set_tile "thickness" (vl-princ-to-string lastthinkness))
;;;;;;;;;;;;;;;
(set_tile "material" (vl-princ-to-string lastmaterial))
;;;;;;;;;;;;;;;;;
;(setq list1 lastlist)
;(setq subtime lastsub)
;(repeat lastsub
;(setq lastlist2 (car lastlist))
;(setq s1 (car lastlist2))
;(setq s2 (cadr lastlist2))
;(setq s3 (caddr lastlist2))
;(setq s4 (last lastlist2))
;(setq string (strcat s1 " " " " s2 " " " " s3 " " " " s4))
;(start_list "popuplist" 2);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(add_list string)
;(end_list)
;(setq lastlist (cdr lastlist))
;)
)
)
((= lasttype "board")
(progn
(boardstatus)
(set_tile "angel" (vl-princ-to-string lastangel))
(set_tile "splint" (vl-princ-to-string lastsplint))
)
)
((= lasttype "ring")
(progn
(ringstatus)
(set_tile "outdia" (vl-princ-to-string lastoutdia))
(set_tile "india" (vl-princ-to-string lastindia))
)
)
((= lasttype "cone")
(progn
(conestatus)
(set_tile "outdia" (vl-princ-to-string lastbigdia))
(set_tile "india" (vl-princ-to-string lastsmalldia))
)
)
((= lasttype "bar")
(progn
(barstatus)
(set_tile "height" (vl-princ-to-string lastheight))
(set_tile "width" (vl-princ-to-string lastwidth))
(set_tile "barthick1" (vl-princ-to-string lastbarthick1))
(set_tile "barthick2" (vl-princ-to-string lastbarthick2))
(set_tile "rad" (vl-princ-to-string lastrad))
)
)
)

(cond 
            ((= lasttype "pipe") 
             (progn 
               (pipestatus) 
               (set_tile "leftnode" (vl-princ-to-string lastleftnode)) 
               (set_tile "leftboard" (vl-princ-to-string lastleftboard)) 
               (set_tile "rightnode" (vl-princ-to-string lastrightnode)) 
               (set_tile "rightboard" 
                         (vl-princ-to-string lastrightboard) 
               ) 
               (set_tile "No" (vl-princ-to-string lastno)) 
               (set_tile "length" (vl-princ-to-string lastlength)) 
;;;;;;;;;;;;;;;;;; 
               (set_tile "diameter" (vl-princ-to-string lastdiameter)) 
;;;;;;;;;;;;;;;;;; 
               (set_tile "thickness" (vl-princ-to-string lastthinkness)) 
;;;;;;;;;;;;;;; 
               (set_tile "material" (vl-princ-to-string lastmaterial)) 
;;;;;;;;;;;;;;;;; 
                                        ;(setq list1 lastlist) 
                                        ;(setq subtime lastsub) 
                                        ;(repeat lastsub 
                                        ;(setq lastlist2 (car lastlist)) 
                                        ;(setq s1 (car lastlist2)) 
                                        ;(setq s2 (cadr lastlist2)) 
                                        ;(setq s3 (caddr lastlist2)) 
                                        ;(setq s4 (last lastlist2)) 
                                        ;(setq string (strcat s1 " " " " s2 " " " " s3 " " " " s4)) 
                                        ;(start_list "popuplist" 2);;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
                                        ;(add_list string) 
                                        ;(end_list) 
                                        ;(setq lastlist (cdr lastlist)) 
                                        ;) 
             ) 
            ) 
            ((= lasttype "board") 
             (progn 
               (boardstatus) 
               (set_tile "angel" (vl-princ-to-string lastangel)) 
               (set_tile "splint" (vl-princ-to-string lastsplint)) 
             ) 
            ) 
            ((= lasttype "ring") 
             (progn 
               (ringstatus) 
               (set_tile "outdia" (vl-princ-to-string lastoutdia)) 
               (set_tile "india" (vl-princ-to-string lastindia)) 
             ) 
            ) 
            ((= lasttype "cone") 
             (progn 
               (conestatus) 
               (set_tile "outdia" (vl-princ-to-string lastbigdia)) 
               (set_tile "india" (vl-princ-to-string lastsmalldia)) 
             ) 
            ) 
            ((= lasttype "bar") 
             (progn 
               (barstatus) 
               (set_tile "height" (vl-princ-to-string lastheight)) 
               (set_tile "width" (vl-princ-to-string lastwidth)) 
               (set_tile "barthick1" (vl-princ-to-string lastbarthick1)) 
               (set_tile "barthick2" (vl-princ-to-string lastbarthick2)) 
               (set_tile "rad" (vl-princ-to-string lastrad)) 
             ) 
            ) 
 
          )

所有类型都不符合，我在对话框中设置中输入radio_row时并不设置关键字key，而你的对话框文件中有一句，

:label="杆件信息";
:radio_row{
key="type";

书上写单选行（即radio_row）的专有属性只介绍了value值属性，所以我认为：在这里key关键字属性是不起什么作用的！
所以要去掉lasttype这个变量，而将上述程序中各个cond语句加入

(action_tile "pipe" "(done_dialog 1)")
(action_tile "board" "(done_dialog 2)")
(action_tile "ring" "(done_dialog 3)")
(action_tile "cone" "(done_dialog 4)")
(action_tile "bar" "(done_dialog 5)")

复制代码

语句中，比如pipe改为

(action_tile "pipe" "(boardstatus) (done_dialog 1)"

复制代码

，并在(boardstatue)子程中加入你想要的内容！

无痕 · 发表于 2005-12-13 14:04:42

似水无痕改后把完整的文件发上来吧：）

似水无痕 · 发表于 2005-12-13 14:10:27

最初由无痕发布
[B]似水无痕改后把完整的文件发上来吧：） [/B]

程序我并没有该好，因为我也在楼上提到，和楼主并非一个专业，不知道楼主的思路如何，只是完全基于lisp和dcl语句中出现的几个错误给楼主提出一下而已！
哈哈，你也无痕，我亦无痕么！
呵呵，一不小心，在我编辑这个帖子并发布时，又的到一分，在此感谢eachy斑竹！万分感谢！！

对了，楼主！我这里有一个书上介绍的程序，感觉到挺通用的，这里给你发过去一个，可以做一个参照（这里并没有给出全部的，只是提取对话框数据的，全部程序在附件里）：
lisp程序

;;函数gi:getdialoginput()
(defun gi:getdialoginput (/ shuruva dcl_id vallist
do_what dialogloaded dialogshow
xe ye ze nxe
nye nze
)
;(alert
;"函数gi:getdialoginput将通过消息框通知用户参数输入的结果及下一步的行动。"
;)
;t
(setq dialogloaded t
dialogshow t
)
(if (> 0 (setq dcl_id (load_dialog "jiaocao.dcl")))
(progn
(princ "\n未能加载对话框文件：jiaocao.dcl")
(setq dialogloaded nil)
)
) ;结束if
(setq nxe "0.0"
nye "0.0"
nze "0.0"
)
(setq do_what 2)
(while (>= do_what 2)
(if (= null (new_dialog "jiancao" dcl_id))
(progn
(princ "\n未能显示输入键槽参数对话框。")
(setq dialogshow nil)
(exit)
) ;progn结束
) ;if结束
(set_tile "yuanxinx" nxe)
(set_tile "yuanxiny" nye)
(set_tile "yuanxinz" nze)
(action_tile "lungua" "(gshendu)")
(action_tile "lunzhou" "(zshendu)")
(action_tile
"accept"
"(setq shuruvar (ok)) (done_dialog 1)"
)
(action_tile "cancel" "(done_dialog 0)")
(action_tile "shiqudian" "(done_dialog 4)")
(setq do_what (start_dialog))
(cond
((= do_what 4)
(setq centre (getpoint "\n输入圆心点："))
(setq xe (car centre)
ye (cadr centre)
ze (caddr centre)
)
(setq nxe (rtos xe))
(setq nye (rtos ye))
(setq nze (rtos ze))
)
((= what_next 0)
(prompt "\n对话框被取消。")
)
) ;结束cond
) ;结束while
(unload_dialog dcl_id)
shuruvar
)

;;函数gi:getdialoginput() 
(defun gi:getdialoginput (/            shuruva   dcl_id        vallist 
                          do_what   dialogloaded        dialogshow 
                          xe            ye              ze        nxe 
                          nye            nze 
                         ) 
                                        ;(alert 
                                        ;"函数gi:getdialoginput将通过消息框通知用户参数输入的结果及下一步的行动。" 
                                        ;) 
                                        ;t 
  (setq        dialogloaded t 
        dialogshow   t 
  ) 
  (if (> 0 (setq dcl_id (load_dialog "jiaocao.dcl"))) 
    (progn 
      (princ "\n未能加载对话框文件：jiaocao.dcl") 
      (setq dialogloaded nil) 
    ) 
  )                                        ;结束if 
  (setq        nxe "0.0" 
        nye "0.0" 
        nze "0.0" 
  ) 
  (setq do_what 2) 
  (while (>= do_what 2) 
    (if        (= null (new_dialog "jiancao" dcl_id)) 
      (progn 
        (princ "\n未能显示输入键槽参数对话框。") 
        (setq dialogshow nil) 
        (exit) 
      )                                        ;progn结束 
    )                                        ;if结束 
    (set_tile "yuanxinx" nxe) 
    (set_tile "yuanxiny" nye) 
    (set_tile "yuanxinz" nze) 
    (action_tile "lungua" "(gshendu)") 
    (action_tile "lunzhou" "(zshendu)") 
    (action_tile 
      "accept" 
      "(setq shuruvar (ok)) (done_dialog 1)" 
    ) 
    (action_tile "cancel" "(done_dialog 0)") 
    (action_tile "shiqudian" "(done_dialog 4)") 
    (setq do_what (start_dialog)) 
    (cond 
      ((= do_what 4) 
       (setq centre (getpoint "\n输入圆心点：")) 
       (setq xe        (car centre) 
             ye        (cadr centre) 
             ze        (caddr centre) 
       ) 
       (setq nxe (rtos xe)) 
       (setq nye (rtos ye)) 
       (setq nze (rtos ze)) 
      ) 
      ((= what_next 0) 
       (prompt "\n对话框被取消。") 
      ) 
    )                                        ;结束cond 
  )                                        ;结束while 
  (unload_dialog dcl_id) 
  shuruvar 
)

dcl对话框

jiancao:dialog {
label = "输入键槽参数对话框";
spacer;
:boxed_column {
label = "选择绘制键槽参数";
spacer;
:boxed_radio_row {
label = "选择绘制键槽类型";
:radio_button {
label = "绘制轮毂";
key = "lungua";
value = "1";
}
:radio_button {
label = "绘制轮轴";
key = "lunzhou";
}
}
spacer;
:boxed_row {
label = "输入键槽参数";
spacer;
:boxed_column {
label = "输入轮毂或轮轴的圆心坐标";
:edit_box {
label = "圆心的X坐标值：";
key = "yuanxinx";
edit_width = 10;
}
:edit_box {
label = "圆心的Y坐标值：";
key = "yuanxiny";
edit_width = 10;
}
:edit_box {
label = "圆心的Z坐标值：";
key = "yuanxinz";
edit_width = 10;
}
:button {
label = "拾取点...";
key = "shiqudian";
}
}
:boxed_column {
label = "输入参数";
:edit_box {
label = "输入圆的半径r：";
key = "banjing";
value = "0.0";
edit_width = 14;
}
:popup_list {
label = "输入键槽宽度b：";
key = "kuandu";
width = 14;
list = "2\n3\n4\n5\n6\n8\n10\n12\n14\n16\n18\n20\
22\n25\n28\n32\n36\n40\n45\n50\n56\n63\n70\n80\
90\n100 ";
value = "";
}
:popup_list {
label = "轮毂键槽深度t：";
key = "gushendu";
width = 12;
list = "1.0\n1.4\n1.8\n2.3\n2.8\n3.3\n3.8\n4.3\
4.4\n4.9\n5.4\n6.4\n7.4\n8.4\n9.4\n10.4\n11.4\
12.4\n14.4\n15.4\n17.4\n19.5 ";
value = "";
}
:popup_list {
label = "轮轴键槽深度t：";
key = "zoshendu";
width = 12;
list = "1.2\n1.8\n2.5\n3.0\n3.5\n4.0\n5.0\n5.5\
6.0\n7.0\n7.5\n9.0\n10.0\n12.0\n13.0\n15.0\
17.0\n20.0\n22.0\n25.0\n28.0\n31.0 ";
value = "";
is_enabled = "false";
}
:edit_box {
label = "键槽角度αC°：";
key = "jiaodu";
value = "0.0";
edit_width = 14;
}
}
}
}
spacer;
ok_cancel;
}

jiancao:dialog { 
        label = "输入键槽参数对话框"; 
        spacer; 
        :boxed_column { 
                label = "选择绘制键槽参数"; 
                spacer; 
                :boxed_radio_row { 
                        label = "选择绘制键槽类型"; 
                        :radio_button { 
                                label = "绘制轮毂"; 
                                key = "lungua"; 
                                value = "1"; 
                        } 
                        :radio_button { 
                                label = "绘制轮轴"; 
                                key = "lunzhou"; 
                        } 
                } 
                spacer; 
                :boxed_row { 
                        label = "输入键槽参数"; 
                        spacer; 
                        :boxed_column { 
                                label = "输入轮毂或轮轴的圆心坐标"; 
                                :edit_box { 
                                        label = "圆心的X坐标值："; 
                                        key = "yuanxinx"; 
                                        edit_width = 10; 
                                } 
                                :edit_box { 
                                        label = "圆心的Y坐标值："; 
                                        key = "yuanxiny"; 
                                        edit_width = 10; 
                                } 
                                :edit_box { 
                                        label = "圆心的Z坐标值："; 
                                        key = "yuanxinz"; 
                                        edit_width = 10; 
                                } 
                                :button { 
                                        label = "拾取点..."; 
                                        key = "shiqudian"; 
                                } 
                        } 
                        :boxed_column { 
                                label = "输入参数"; 
                                :edit_box { 
                                        label = "输入圆的半径r："; 
                                        key = "banjing"; 
                                        value = "0.0"; 
                                        edit_width = 14; 
                                } 
                                :popup_list { 
                                        label = "输入键槽宽度b："; 
                                        key = "kuandu"; 
                                        width = 14; 
                                        list = "2\n3\n4\n5\n6\n8\n10\n12\n14\n16\n18\n20\ 
                                        22\n25\n28\n32\n36\n40\n45\n50\n56\n63\n70\n80\ 
                                        90\n100 "; 
                                        value = ""; 
                                } 
                                :popup_list { 
                                        label = "轮毂键槽深度t："; 
                                        key = "gushendu"; 
                                        width = 12; 
                                        list = "1.0\n1.4\n1.8\n2.3\n2.8\n3.3\n3.8\n4.3\ 
                                        4.4\n4.9\n5.4\n6.4\n7.4\n8.4\n9.4\n10.4\n11.4\ 
                                        12.4\n14.4\n15.4\n17.4\n19.5 "; 
                                        value = ""; 
                                } 
                                :popup_list { 
                                        label = "轮轴键槽深度t："; 
                                        key = "zoshendu"; 
                                        width = 12; 
                                        list = "1.2\n1.8\n2.5\n3.0\n3.5\n4.0\n5.0\n5.5\ 
                                        6.0\n7.0\n7.5\n9.0\n10.0\n12.0\n13.0\n15.0\ 
                                        17.0\n20.0\n22.0\n25.0\n28.0\n31.0 "; 
                                        value = ""; 
                                        is_enabled = "false"; 
                                } 
                                :edit_box { 
                                        label = "键槽角度αC°："; 
                                        key = "jiaodu"; 
                                        value = "0.0"; 
                                        edit_width = 14; 
                                } 
                        } 
                } 
        } 
        spacer; 
        ok_cancel; 
}

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

[求助] [求助]：请那位大哥帮忙看看这个程序,以前发的都没成功!!!

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

相关帖子

Re: [求助]：请那位大哥帮忙看看这个程序,以前发的都没成功!!!