DCL对话框的一个问题
大家看这个DCL比如我把光标放在柱子图层 我在右边图层列表里面点一下 左边edit_box 就能出现我点击的图层目前我点左边的 他只会改变一个 求指教！！！ 设置一个变量curKey代表左边的edit_box的key值,当点击左边的dit_box时将其key赋给变量curKey,点击右边列表框时,直接(set_tile curkey (nth (read $value) vallist))即可! (defun sub_box_1(vvs)
(set_tile curKey "box_1")
(set_tile curKey (nth(atoi vvs)laylist))
(set_tile "box_1" curKey)
) yu888yu 发表于 2014-11-24 17:34 static/image/common/back.gif
(defun sub_box_1(vvs)
(set_tile curKey "box_1")
(set_tile curKey (nth(atoi vvs)laylist))
大神能否在指点一下
(defun sub_box_1(vvs)
(setq curKey1 "")
(setq curKey1 (nth(atoi vvs)laylist))
(set_tile "box_1" curKey1)
) 也是只能传递一个 其他的都不能用
yu888yu 发表于 2014-11-24 18:07 static/image/common/back.gif
也是只能传递一个 其他的都不能用
请提供完整源码供测试！ 欢迎测试
t3:dialog{
label="YJK图层转换";
:row{
:list_box{
label="图层列表";
key="keylist";
width=20;
height=20;}
:boxed_column{
label="目标图层";
:row{
:edit_box{edit_width=15;key="box_1";}
:button{label="拾取<";width=1;key="button_1";}
}
:row{
:edit_box{edit_width=15;key="box_2";}
:button{label="拾取<";width=1;key="button_2";}
}
:row{
:edit_box{edit_width=15;key="box_3";}
:button{label="拾取<";width=1;key="button_3";}
}
:row{
:edit_box{edit_width=15;key="box_4";}
:button{label="拾取<";width=1;key="button_4";}
}
:row{
:edit_box{edit_width=15;key="box_5";}
:button{label="拾取<";width=1;key="button_5";}
}
:row{
:edit_box{edit_width=15;key="box_6";}
:button{label="拾取<";width=1;key="button_6";}
}
}
}
spacer_1;
ok_cancel;
} ;;;lsp
;;创建acad母体对象
(defun acad-ActiveX-base()
(vl-load-com)
(setq acadobj(vlax-get-acad-object))
(setq dwgobj(vla-get-ActiveDocument acadobj))
(setq mspace(vla-get-ModelSpace dwgobj))
(setq layersobj(vla-get-layers dwgobj))
)
;;释放acad母体对象
(defun acad-ActiveX-exit()
(vlax-release-object acadobj)
)
;;获取图层列表
(defun get-X-laylist()
(setq layersobj(vla-get-layers dwgobj))
(setq laylist nil)
(vlax-for sobj layersobj
(setq layname(vla-get-name sobj))
(setq laylist(cons layname laylist))
)
(setq laylist(acad_strlsort laylist))
)
;;主程序
(defun C:HBk()
(setvar "cmdecho" 0)
(acad-ActiveX-base)
(get-X-laylist)
(acad-ActiveX-exit)
(Act-dcl)
)
(defun Act-dcl()
(setq newlay nil)
(setq dcl_id(load_dialog "新版对话框"))
(new_dialog "t3" dcl_id)
(show_list "keylist" laylist)
(getvalue)
(action_tile "keylist" "(sub_box_1 $value)")
(action_tile "keylist" "(sub_box_2 $value)")
(action_tile "accept" "(ok_dig)(done_dialog 1)")
(setq dd(start_dialog))
(if(= dd 1)(prin1 lay1))
)
;;反回下拉框中的图层
(defun sub_box_1(vvs)
(setq curKey1 "")
(setq curKey1 (nth(atoi vvs)laylist))
(set_tile "box_1" curKey1)
)
(defun sub_box_2(vvs)
(setq curKey2 "")
(setq curKey2 (nth(atoi vvs)laylist))
(set_tile "box_2" curKey2)
)
(defun sub_box_3(vvs)
(set_tile "box_3"(nth(atoi vvs)laylist))
)
(defun sub_box_4(vvs)
(set_tile "box_4"(nth(atoi vvs)laylist))
)
(defun sub_box_5(vvs)
(set_tile "box_5"(nth(atoi vvs)laylist))
)
(defun sub_box_6(vvs)
(set_tile "box_6"(nth(atoi vvs)laylist))
)
;;取得下拉框中的图层
(defun ok_dig()
(setq lay1(get_tile "box_1"))
(setq lay2(get_tile "box_2"))
(setq lay3(get_tile "box_3"))
(setq lay4(get_tile "box_4"))
(setq lay5(get_tile "box_5"))
(setq lay6(get_tile "box_6"))
)
;;;赋值列表共享程序
(defun show_list(key newlist)
(start_list key)
(mapcar 'add_list newlist)
(end_list)
)
;;;初始值赋值
(defun getvalue()
(setq key_box '("box_1" "box_2" "box_3" "box_4" "box_5" "box_6"))
(setq val_box '("S-AXIS" "S-Column" "S-Wall" "S-beam-cont" "S-beam-dash" "S-hole"))
(mapcar 'set_tile key_box val_box)
)
;;;保存初始值
(defun getdata()
(setq "box_1"(get_tile "box_1"))
(setq "box_1"(get_tile "box_2"))
(setq "box_1"(get_tile "box_3"))
(setq "box_1"(get_tile "box_4"))
(setq "box_1"(get_tile "box_5"))
(setq "box_1"(get_tile "box_6"))
) 谁要是解决了，麻烦把结果粘上来。供大家一起学习啊
页:
[1]