DCL对话框的一个问题

yu888yu

大家看这个DCL  比如我把光标放在柱子图层 我在右边图层列表里面点一下 左边edit_box 就能出现我点击的图层  目前我点左边的 他只会改变一个 求指教！！！

Gu_xl

设置一个变量curKey代表左边的edit_box的key值,当点击左边的dit_box时将其key赋给变量curKey,点击右边列表框时,直接(set_tile curkey (nth (read $value) vallist))即可!

yu888yu

(defun sub_box_1(vvs)
  (set_tile curKey "box_1")
  (set_tile curKey (nth(atoi vvs)laylist))
  (set_tile "box_1" curKey)      
  )

yu888yu

yu888yu 发表于 2014-11-24 17:34
(defun sub_box_1(vvs)
  (set_tile curKey "box_1")
  (set_tile curKey (nth(atoi vvs)laylist))

大神能否在指点一下

yu888yu

(defun sub_box_1(vvs)
  (setq curKey1 "")   
  (setq curKey1 (nth(atoi vvs)laylist))
  (set_tile "box_1" curKey1)   
  )

yu888yu

也是只能传递一个 其他的都不能用

Gu_xl

yu888yu 发表于 2014-11-24 18:07
也是只能传递一个 其他的都不能用

请提供完整源码供测试！

yu888yu

欢迎测试
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;
}

yu888yu

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

yu888yu

谁要是解决了，麻烦把结果粘上来。供大家一起学习啊