列表框，如何突出显示

The Buzzard · 发表于 2022-7-6 04:40:04

大家好，

我决定在我的一个dcl中从popup_列表切换到list_框。我设置了默认值，它们工作正常。我在这里遇到的问题是，当dcl首次出现时，值没有突出显示。我尝试使用value=0；，但这没什么作用，所以我把它去掉了。

缺少什么？如果能在这方面得到任何帮助，我将不胜感激。
谢谢

copy

             : column {
              : boxed_column {
                label = "Class";
                : list_box {
                  key = "CLASS";
                  height = 8.0;
                  width = 9.0;
                  fixed_height = true;
                  fixed_width = true;
                  alignment = centered;
                }
              }
            }
            : column {
              : boxed_column {
                label = "Size";
                : list_box {
                  key = "PSIZ";
                  height = 8.0;
                  width = 9.0;
                  fixed_height = true;
                  fixed_width = true;
                  alignment = centered;
                }
              }
            }

JohnM · 发表于 2022-7-6 04:46:05

我认为（mode\u tile key mode）可以做到这一点

The Buzzard · 发表于 2022-7-6 04:48:40

谢谢你，约翰，

但是mode_互动程序会将注意力集中在互动程序上，而不会突出显示它。

JohnM · 发表于 2022-7-6 04:51:58

你想突出某个特定项目，对吗？
我认为你使用set_tile，然后将mode tile设置为mode 3

The Buzzard · 发表于 2022-7-6 04:55:58

这适用于编辑框内容，而不是列表框。

JohnM · 发表于 2022-7-6 04:58:52

现在，保存dcl和lisp文件，然后在AutoCAD中映射到文件夹的路径，在vlide编辑器中加载文件并运行lisp文件，您将看到列表框中的项目高亮显示。在lisp文件中，您将看到将set\u tile设置为列表中的项目，并将mode tile设置为高亮显示它们。您可以创建变量来记住这些。

copy


[font=Times New Roman][font=Times New Roman](defun test:DialogInput[/font]
[font=Times New Roman]      (/ dcl_id result userclick dialogLoaded dialogShow)[/font]
[font=Times New Roman] (setq dialogLoaded T[/font]
[font=Times New Roman]dialogShow   T       [/font]
[font=Times New Roman] ) ;_ end of setq[/font]
[font=Times New Roman] (if (= -1 (setq dcl_id (load_dialog "test.DCL")))[/font]
[font=Times New Roman]   (progn  [/font]
[font=Times New Roman]     (princ "\nERROR: Cannot load test.dcl")[/font]
[font=Times New Roman]     (setq dialogLoaded nil)[/font]
[font=Times New Roman]   ) ;_ end of progn[/font]
[font=Times New Roman] ) ;_ end of if[/font]
[font=Times New Roman] (if (and (not (new_dialog "test_dlg" dcl_id))[/font]
[font=Times New Roman]   dialogLoaded[/font]
[font=Times New Roman]     ) ;_ end of and[/font]
[font=Times New Roman]   (progn     [/font]
[font=Times New Roman]     (princ "\nERROR: Cannot show dialog test.dlg")[/font]
[font=Times New Roman]     (setq dialogShow nil)[/font]
[font=Times New Roman]   ) ;_ end of progn[/font]
[font=Times New Roman] ) ;_ end of if[/font]
[font=Times New Roman] (if (and dialogLoaded dialogShow)[/font]
[font=Times New Roman]   (progn[/font]
[font=Times New Roman]   (setq lst1 '("150" "300" "400" "600" "900" "1500" "2500"))[/font]
[font=Times New Roman]   (setq lst2 '("1/2" "3/4" "1" "1-1/4" "1-1/2" "1-3/4" "2"))[/font]
[font=Times New Roman]  (start_list "CLASS" 3) [/font]
[font=Times New Roman]     (mapcar 'add_list lst1);_[/font]
[font=Times New Roman]     (end_list)[/font]
[font=Times New Roman]   (set_tile "CLASS" "2")[/font]
[font=Times New Roman](mode_tile "CLASS" 3);_[/font]
[font=Times New Roman]      (start_list "PSIZ" 3);_[/font]
[font=Times New Roman]     (mapcar 'add_list lst2)  [/font]
[font=Times New Roman]     (end_list)[/font]
[font=Times New Roman]    (set_tile "PSIZ" "2")[/font]
[font=Times New Roman](mode_tile "PSIZ" 3);_[/font]
[font=Times New Roman]     (action_tile "cancel" "(done_dialog)(setq UserClick nil) ")[/font]
[font=Times New Roman]     (start_dialog)   [/font]
[font=Times New Roman]     (unload_dialog dcl_id)[/font]
[font=Times New Roman]      ;_ end of if[/font]
[font=Times New Roman]   ) ;_ end of progn[/font]
[font=Times New Roman] ) ;_ end of if [/font]
[font=Times New Roman])[/font]
[/font]

copy

 
test_dlg : dialog {
: row {
: column {
              : boxed_column {
                label = "Class";
                : list_box {
                  key = "CLASS";
                  height = 8.0;
                  width = 9.0;
                  fixed_height = true;
                  fixed_width = true;
                  alignment = centered;
                }
              }
            }
            : column {
              : boxed_column {
                label = "Size";
                : list_box {
                  key = "PSIZ";
                  height = 8.0;
                  width = 9.0;
                  fixed_height = true;
                  fixed_width = true;
                  alignment = centered;
                }
              }
            }
            }
: row {          // defines the OK/Cancel button row
 : spacer { width = 1; }
 : button {    // defines the OK button
   label = "OK";
   is_default = true;
   key = "accept";
   width = 8;
   fixed_width = true;
 }
 : button {    // defines the Cancel button
   label = "Cancel";
   is_cancel = true;
   key = "cancel";
   width = 8;
   fixed_width = true;}
   }
}//_end

Lee Mac · 发表于 2022-7-6 04:59:31

copy


(set_tile <key> "1")

The Buzzard · 发表于 2022-7-6 05:03:34

谢谢李，

但它没有做任何事情。我使用单选按钮设置类列表的值，类列表依次设置大小列表的值。最初的问题是，当对话框第一次启动时，没有按照默认设置突出显示每个列表中的第一个值。

选择后，这些值将高亮显示，并在对话框重新出现时记住其上次选择。

我不经常使用列表框，但在这种情况下，这似乎是一个很好的改变。男孩，我错了。

Lee Mac · 发表于 2022-7-6 05:05:36

Buzzard，这并不太难，列表框的工作方式与popup_列表相同（哦，它应该是“0”）

例如：

copy


(defun c:test ( / dc f lst item )
 (cond
   (
     (or
       (<= (setq dc (load_dialog "ListBox.dcl")) 0)
       (not (new_dialog "test" dc))
     )
   )
   (t
     (start_list "lst")
     (mapcar (function add_list) (setq lst '("Item1" "Item2" "Item3")))
     (end_list)
     (setq item (set_tile "lst" "0"))
     (action_tile "lst" "(setq item $value)")
     (setq f (start_dialog) dc (unload_dialog dc))
     (if (= f 1)
       (alert
         (strcat "You Selected: "
           (nth (atoi item) lst)
         )
       )
     )
   )
 )
 (princ)
)

大小现在突出显示，但不是类。

The Buzzard · 发表于 2022-7-6 05:09:09

我只设置变量，以便在用户点击OK之前没有选择任何项目时，变量具有tile_值。

set\u tile语句是突出显示列表框项的函数-不会有太多错误。

[编程交流] 列表框，如何突出显示

发表回复

精选推荐