DCL文本和方框宽度

guitarguy1685 · 发表于 2022-7-6 11:29:22

我正在编写一个包含一些文本的对话框。我的问题是，当我查看对话框时，文本右侧有相当大的空间。我试着改变盒子的宽度，但我不能得到那个间隙的rif。如果我把宽度变大，我会看到变化。如果我试着把它缩小，我只会缩小到我的文本宽+那个差距。

有人有这个问题吗？

第二个问题

如果未找到块，则显示此对话框。块名在lisp中设置为变量。
如何在对话框中显示？

The Buzzard · 发表于 2022-7-6 11:37:58

给你一个想法：

copy

: popup_list {
 key = "MYKEY";          // Set your key here.
 [color=red]width = 18.0;           // Set your width here[/color]
 fixed_width = true;     // Set it as fixed width
 alignment = centered;   // Center the list
}

可以通过更改值来调整宽度的大小。

Lee Mac · 发表于 2022-7-6 11:42:55

正如Buzzard所说，最像fixed_width属性。如果您还没有看到AfraLISP，那么它对对话框有很好的演练。

guitarguy1685 · 发表于 2022-7-6 11:44:41

这是我的密码

copy

 
//DCL CODING STARTS HERE
BLK_INS_ERROR
: dialog {
fixed_width = true; 
label = "©2009 test test";
: boxed_column {
label = "BLOCK NOT FOUND";
alignment = centered;
fixed_width = true;
width = 15;
value = 0;
: paragraph {
: text {
label = "test test test test test testtest test test  ";
}
: text {
label = "test tes testtest test test test test test  ";
}
}
: paragraph {
: text {
label = "test test testtest test test test test test ";
}
: text {
label = "test test testtest test test test test test  ";
}
: text {
label = "test test testtest test test test test test ";
}
}
}
: button {
key = "accept";
label = "Cancel";
is_default = true;
fixed_width = true;
alignment = centered;
is_cancel = true;
is_tab_stop = true;
}
}

宽度不适合我

The Buzzard · 发表于 2022-7-6 11:48:19

您没有识别互动程序的类型，最后缺少}。

copy

 
[color=red]: popup_list {[/color]
 label = "BLOCK NOT FOUND";
 alignment = centered;
 fixed_width = true;
 width = 15;
 value = 0;
[color=red]}
[/color]

The Buzzard · 发表于 2022-7-6 11:52:44

在查看了你的对话框文件后，我不确定你想做什么。
您想要一个列表还是让程序报告回对话框。
我不确定。

你能把你的代码贴在上面让我看看发生了什么吗？

对于您正在尝试执行的操作，一个警报框可能比一个对话框更好。

The Buzzard · 发表于 2022-7-6 11:57:49

在我看来，你真正需要的是：

显示警报框。

copy

(defun MISSING_BLOCK ()
 (alert "BLOCK NOT FOUND!")
 (princ))

或者：

打印到命令行。

copy

(defun MISSING_BLOCK ()
 (princ "BLOCK NOT FOUND!")
 (princ))

guitarguy1685 · 发表于 2022-7-6 12:02:37

如果我只想显示错误，我会发出警报。但是，此对话框将包含更多信息。并可能显示块的完整路径。

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

好的，我同意你，
但是你也能发布lisp代码吗？

The Buzzard · 发表于 2022-7-6 12:10:56

所以你期待着这样的事情：

copy

BLK_INS_ERROR : dialog {
               label = "©2009 test test";
               : row {
                 : column {
                   : boxed_column {
                     label = "BLOCK NOT FOUND";
                     : paragraph {
                       : text {
                         value = "test test test test test test test test test";
                         fixed_width = true;
                         width = 30;
                       }
                       : text {
                         value = "test test test test test test test test test";
                         fixed_width = true;
                         width = 30;
                       }
                     }
                     : paragraph {
                       : text {
                         value = "test test test test test test test test test";
                         fixed_width = true;
                         width = 30;
                       }
                       : text {
                         value = "test test test test test test test test test";
                         fixed_width = true;
                         width = 30;
                       }
                       : text {
                         value = "test test test test test test test test test";
                         fixed_width = true;
                         width = 30;
                       }
                     }
                   }
                 }
               }
               : button {
                 key = "accept";
                 label = "Cancel";
                 is_default = true;
                 fixed_width = true;
                 alignment = centered;
                 is_cancel = true;
                 is_tab_stop = true;
               }
             }

将文本的标签更改为值。

[编程交流] DCL文本和方框宽度

发表回复

精选推荐