社区 › AutoLISP/Visual LISP 编程技术 › 2008.11.10 *****列表对话框问题*****JXLSP再帮我看一下

aicr317 发表于 2008-11-9 14:46:00

2008.11.10 *****列表对话框问题*****JXLSP再帮我看一下

本帖最后由 作者 于 2008-11-10 9:04:40 编辑 <br /><br /> <p>如果是这种情况怎么处理</p><p>dcl_settings : default_dcl_settings { audit_level = 3; }</p><p>gj : dialog {<br/>&nbsp;&nbsp;&nbsp; label = "管件连接尺寸汇编";<br/>&nbsp;&nbsp;&nbsp; : boxed_column {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label = "公制";&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : column {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : popup_list {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label = "90° 弯头（L）&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DN";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = "00";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mnemonic = "9";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; list = "15\n20\n25\n40\n50\n65\n80\n100\n125\n150\n200\n250\n300\n350\n400\n450\n500\n600\n700\n800\n900\n1000\n1100\n1200";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : popup_list {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label = "异径管（同心）&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DN";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = "11";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; list = "20*15";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br/>&nbsp;&nbsp;&nbsp; }<br/>&nbsp;&nbsp;&nbsp; ok_cancel;<br/>}</p><p></p><p><font color="#ff0000">如果仅仅只有“90°弯头”的情况下，下面的LSP是可以实现我要的功能的，但现在添加了“异径管”这一项，我 又该如何修改以下lSP来实现我想要选择DN20*15来插入事先做好的块呢？</font></p><p>;;管件连接尺寸汇编<br/>(DEFUN c:gj ()&nbsp;&nbsp; <br/>&nbsp;(setq dcl_id (load_dialog "gj"))<br/>&nbsp;(new_dialog "gj" dcl_id)</p><p>(action_tile "accept" "(setq gj_done_id (get_tile\"00\"))(done_dialog 1)")</p><p></p><p>(setq gj_done(start_dialog))<br/>(unload_dialog dcl_id)</p><p>(if (&gt; gj_done 0)<br/>&nbsp; (progn&nbsp;&nbsp; <br/>&nbsp;&nbsp; (setvar "osmode" 15359) <br/>&nbsp;&nbsp; (cond ((= "0" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "1" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "2" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "3" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_4)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "4" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_5)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "5" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_6)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "6" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_7)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "7" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_8)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "8" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_9)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "9" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_10)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "10" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_11)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "11" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_12)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "12" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_13)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "13" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_14)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "14" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_15)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "15" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_16)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "16" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_17)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "17" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_18)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "18" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_19)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "19" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_20)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "20" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_21)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "21" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_22)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "22" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_23)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "23" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_24)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; </p><p></p><p>&nbsp; )<br/>&nbsp;&nbsp; ;(mold_res)<br/>&nbsp; )<br/>&nbsp;) <br/>&nbsp;(princ)<br/>)</p><p></p><p></p><p>&nbsp;&nbsp; <br/>&nbsp;<br/>&nbsp;&nbsp; </p><p><br/>(defun dim_gj_1 () (command "jmj" "e15" pause "" "" "" ""))<br/>(defun dim_gj_2 () (command "jmj" "e20" pause "" "" "" ""))<br/>(defun dim_gj_3 () (command "jmj" "e25" pause "" "" "" ""))<br/>(defun dim_gj_4 () (command "jmj" "e40" pause "" "" "" ""))<br/>(defun dim_gj_5 () (command "jmj" "e50" pause "" "" "" ""))<br/>(defun dim_gj_6 () (command "jmj" "e65" pause "" "" "" ""))<br/>(defun dim_gj_7 () (command "jmj" "e80" pause "" "" "" ""))<br/>(defun dim_gj_8 () (command "jmj" "e100" pause "" "" "" ""))<br/>(defun dim_gj_9 () (command "jmj" "e125" pause "" "" "" ""))<br/>(defun dim_gj_10 () (command "jmj" "e150" pause "" "" "" ""))<br/>(defun dim_gj_11 () (command "jmj" "e200" pause "" "" "" ""))<br/>(defun dim_gj_12 () (command "jmj" "e250" pause "" "" "" ""))<br/>(defun dim_gj_13 () (command "jmj" "e300" pause "" "" "" ""))<br/>(defun dim_gj_14 () (command "jmj" "e350" pause "" "" "" ""))<br/>(defun dim_gj_15 () (command "jmj" "e400" pause "" "" "" ""))<br/>(defun dim_gj_16 () (command "jmj" "e450" pause "" "" "" ""))<br/>(defun dim_gj_17 () (command "jmj" "e500" pause "" "" "" ""))<br/>(defun dim_gj_18 () (command "jmj" "e600" pause "" "" "" ""))<br/>(defun dim_gj_19 () (command "jmj" "e700" pause "" "" "" ""))<br/>(defun dim_gj_20 () (command "jmj" "e800" pause "" "" "" ""))<br/>(defun dim_gj_21 () (command "jmj" "e900" pause "" "" "" ""))<br/>(defun dim_gj_22 () (command "jmj" "e1000" pause "" "" "" ""))<br/>(defun dim_gj_23 () (command "jmj" "e1100" pause "" "" "" ""))<br/>(defun dim_gj_24 () (command "jmj" "e1200" pause "" "" "" ""))</p><p><br/>(princ)</p><p></p>

120120 发表于 2008-11-9 16:33:00

<p>修改成这样即可</p><p>(defun dim_crk_1 () (command "-insert" "1.dwg" pause "" "" "" ""))<br/>(defun dim_crk_2 () (command "-insert" "2.dwg" pause "" "" "" ""))</p><p></p><p><br/></p>

aicr317 发表于 2008-11-9 16:39:00

120120发表于2008-11-9 16:33:00static/image/common/back.gif修改成这样即可(defun dim_crk_1 () (command \"-insert\" \"1.dwg\" pause \"\" \"\" \"\" \"\"))(defun dim_crk_2 () (command \"-insert\" \"2.dwg\" pause \"\" \"\" \"\" \"\"))

<p>我晕，服你了，不要瞎搞</p>

jxlsp 发表于 2008-11-9 16:55:00

<p>试下:</p><p>(DEFUN c:crk ()&nbsp;&nbsp; <br/>&nbsp;(setq dcl_id (load_dialog "crk"))<br/>&nbsp;(new_dialog "crk" dcl_id)</p><p>(action_tile "accept" "(setq crk_done_id (get_tile\"crk_1\"))(done_dialog 1)")</p><p>(if (&gt; crk_done_id 0)<br/>&nbsp; (progn&nbsp;&nbsp; <br/>&nbsp;&nbsp; (setvar "osmode" 0) <br/>&nbsp;&nbsp; (cond ((=&nbsp;"0" crk_done_id)<br/>&nbsp;&nbsp; (dim_crk_1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((=&nbsp;"1" crk_done_id)<br/>&nbsp;&nbsp; (dim_crk_2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; ;(mold_res)<br/>&nbsp; )<br/>&nbsp;) <br/>&nbsp;(princ)<br/>)</p>

aicr317 发表于 2008-11-9 17:17:00

jxlsp发表于2008-11-9 16:55:00static/image/common/back.gif试下:(DEFUN c:crk ()&nbsp;&nbsp; &nbsp;(setq dcl_id (load_dialog \"crk\"))&nbsp;(new_dialog \"crk\" dcl_id)(action_tile \"accept\" \"(setq crk_done_id (get_tile\\"crk_1\\"))(done_

<p>按了确定就没有反应了！再帮我看看吧！</p>

jxlsp 发表于 2008-11-9 18:02:00

<p>(DEFUN c:crk ()&nbsp;&nbsp; <br/>&nbsp;(setq dcl_id (load_dialog "crk"))<br/>&nbsp;(new_dialog "crk" dcl_id)</p><p>(action_tile "accept" "(setq crk_done_id (get_tile\"crk_1\"))(done_dialog 1)")</p><p>(setq crk_done(start_dialog))<br/>(unload_dialog dcl_id)</p><p>(if (&gt; crk_done 0)<br/>&nbsp; (progn&nbsp;&nbsp; <br/>&nbsp;&nbsp; (setvar "osmode" 0) <br/>&nbsp;&nbsp; (cond ((=&nbsp;"0" crk_done_id)<br/>&nbsp;&nbsp; (dim_crk_1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((=&nbsp;"1" crk_done_id)<br/>&nbsp;&nbsp; (dim_crk_2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; ;(mold_res)<br/>&nbsp; )<br/>&nbsp;) <br/>&nbsp;(princ)<br/>)</p>

aicr317 发表于 2008-11-9 18:16:00

<p>非常感谢！</p>

aicr317 发表于 2008-11-9 20:52:00

问题又来了，帮我看一下！

aicr317 发表于 2008-11-10 13:55:00

ding

飞诗(fsxm) 发表于 2008-11-10 17:19:00

<p>提个小意见！</p><p>你这一排排的 cond看的有点晕～写出来更晕～</p><p>&nbsp;&nbsp; (cond ((= "0" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= "1" gj_done_id)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dim_gj_2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</p><p>&nbsp;.....................</p><p>不如这样: (eval (read (strcat "(dim_gj_"&nbsp;gj_done_id ")")))</p><p></p>

查看完整版本: 2008.11.10 *****列表对话框问题*****JXLSP再帮我看一下