list_box或edit_box中如何实现双击反应?

飞诗(fsxm)

这list_box双击都被人用的烂掉了(= $reason 4)

还叫偏门的技术．．狂汗！

还叫偏门的技术．．狂汗！

linhui12

fsxm发表于2009-5-31 21:58:00这list_box双击都被人用的烂掉了(= $reason 4)还叫偏门的技术．．狂汗！还叫偏门的技术．．狂汗！还叫偏门的技术．．狂汗！

可我搜索了整个论坛和因特网都没能找到这样的例子啊,FSXM兄假如有这方面的示例程序能否传一份上来,使我可以参照着改改,

当然,如果您能直接在我的程序里帮忙改过来那我将不胜感激.

飞诗(fsxm)

在lsp文件中新加：

(defun test:act:list2 ()
  (cond ((= 4 $REASON)
  (GETVALOFDIA)
  (DONE_DIALOG 2009)
 )
  )
)

在setdialog函数中新加：

(or xdata (setq xdata ""))

  (start_list "list2")
  (add_list xdata)
  (end_list)

在C:getdata中

的(if (or (= RE 2) (= RE 3))...

前面加：(action_tile "list2" "(test:act:list2)")

后面加：如果(= 2009 re)则：
(if (setq pl (entsel "选一个PL:"))
       (setq xdata
       (mapcar
         'cdr
         (cdr
    (cadr
      (assoc
        -3
        (entget
          (car pl)
          (list "PipeSolid-*" "PipeWay-*")
        )
      )
    )
         )
       )
       )
     )
     (START_DIALOG)

linhui12

感谢FSXM的热情回复,我按照你的提示把代码改进去了,可运行后怎么不支持LIST_BOX的双击并且还提示错误:" 参数类型错误: stringp ("AH111-01" "273X5")"

飞诗(fsxm)

哦！原来xdata是表～！我没有下载你的dwg测试只是改了改～！

你可以取出xdata的字符放入list2

如：(add_list (car xdata))

这样就行了！如果你要改成别的，思路类似自己动手～～

linhui12

感谢FSXM,第15楼的的代码已按你的提示改进去了,可是我怎么还是不能实现"双击驱动"呢?麻烦再帮忙看看啊

masterlong

演示图片没看懂

楼主你点的所谓"list_box"应该是"popup_list"

popup_list是不支持双击的

但是你对话框里字体和下半部分的内容

又不是纯粹dcl里该有的东西

所以不太明白