Dcl布局帮助乐筑天下 - Powered by Discuz! Archiver

russell84 发表于 2022-7-6 10:52:43

Dcl布局帮助

我已经断断续续地尝试了几天，以获得我想要的dcl布局-不幸的是，我对dcl一无所知，我要退出autodesk帮助指南。

我附上了一张我想要的布局草图，不知道是否有人能帮我

谢谢你堆

你将不得不原谅快速手绘

TimSpangler 发表于 2022-7-6 10:57:39

按钮是复选框还是单选按钮？

TimSpangler 发表于 2022-7-6 11:03:27

这是怎么回事？？

//
// TXTO.DCL Version 1.0
//
// Copyright© 2007
//
// Permission to use, copy, modify, and distribute this software
// for any purpose and without fee is hereby granted, provided
// that the above copyright notice appears in all copies and
// that both that copyright notice and the limited warranty and
// restricted rights notice below appear in all supporting
// documentation.
//
// TIMOTHY SPANGLER PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
// TIMOTHY SPANGLER SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
// MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.DESIGN SOLUTIONS
// DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
// UNINTERRUPTED OR ERROR FREE.
//
// Use, duplication, or disclosure by the U.S. Government is subject to
// restrictions set forth in FAR 52.227-19 (Commercial Computer
// Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
// (Rights in Technical Data and Computer Software), as applicable.
//
dcl_settings : default_dcl_settings { audit_level = 0; }
txto : dialog {
label = "TXTO v1.0";
:column {
:row {
:text {
key = "selected";
width = 30;
label = "No text selected";
}
:column{
:button{
label = "Select All";
key = "selall";
}
:button{
label = "Select None";
key = "selnone";
}
}
}
spacer_0;
:boxed_row{
label = "Select text buttons";
:column{
:toggle{
key = "txt1";
label = "TXT1";
}
:toggle{
key = "txt2";
label = "TXT2";
}
:toggle{
key = "txt3";
label = "TXT3";
}
:toggle{
key = "txt4";
label = "TXT4";
}
:toggle{
key = "txt5";
label = "TXT5";
}
}
:column{
:toggle{
key = "txt6";
label = "TXT6";
}
:toggle{
key = "txt7";
label = "TXT7";
}
:toggle{
key = "txt8";
label = "TXT8";
}
:toggle{
key = "txt9";
label = "TXT9";
}
:toggle{
key = "txt10";
label = "TXT10";
}
}
:column{
:toggle{
key = "txt11";
label = "TXT11";
}
:toggle{
key = "txt12";
label = "TXT12";
}
:toggle{
key = "txt13";
label = "TXT13";
}
:toggle{
key = "txt14";
label = "TXT14";
}
:toggle{
key = "txt15";
label = "TXT15";
}
}
}
spacer_1;
:toggle{
key = "save";
label = "SAVE SETTINGS";
}
spacer_1;
:image{
key = "sep1";
color = dialog_background;
width = 25;
height = 1;
}
spacer_0;
ok_cancel;
spacer_1;
:column{
:paragraph{
:text{
key = "copyright";
label = "--- Copyright© 2008 ---";
alignment = centered;
}
}
}
spacer_0;
}
}

russell84 发表于 2022-7-6 11:04:11

蒂姆：谢谢你，伙计，我不指望有人会诚实地回答这个问题，更不用说一下子就找到了

无论如何，谢谢你，伙计，我会把lisp和最终Dcl发给你，这样你就有了一份副本

我会再添加几个切换框

基本上，它所要做的就是通过插入包含符号和文本的块来创建一个图例，并根据选择的块对页面进行排序。

干杯，伙计

russell84 发表于 2022-7-6 11:08:41

还有一个问题，如何在对话框中插入图像？？

TimSpangler 发表于 2022-7-6 11:14:41

“图像”必须是在AutoCAD中创建的幻灯片或由代码创建的矢量图形。

我在上面的对话框中使用了矢量图像来创建分隔线。如果你刚刚进入dcl，我建议你看看OpenDCL而不是plan dcl

http://opendcl.com/wordpress/

它还有很多可以提供的。

russell84 发表于 2022-7-6 11:17:20

我现在还在编辑，但你会明白要点的

你能指导我在DCL中插入幻灯片吗？
我必须在lisp中定义图像，不是吗？你用什么代码在Dcl中定义图像块？

我还没有真正开始在lisp中定义函数，但基本上我想做的是让每个切换框插入一个块，该块由一个简单的符号和图例中的描述组成。（这些块明显位于acad搜索路径内）
因此，一旦选择了所需的切换，并且用户选择ok，则用户选择一个初始插入点，lisp将创建一个所选切换列表，并在列表中运行，并在插入点插入第一个块，然后在列表中循环，并在先前插入的块下方插入每个块（-2.5（Y））单位，直到列表完成，从而创建图例。

蒂姆，也许你也可以在列表过程中帮助我？？
希望我没有把你搞糊涂。

干杯

russell84 发表于 2022-7-6 11:21:49

//
// TXTO.DCL    Version 1.0
//
// Copyright© 2007
//
// Permission to use, copy, modify, and distribute this software
// for any purpose and without fee is hereby granted, provided
// that the above copyright notice appears in all copies and
// that both that copyright notice and the limited warranty and
// restricted rights notice below appear in all supporting
// documentation.
//
// TIMOTHY SPANGLER PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
// TIMOTHY SPANGLER SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
// MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.DESIGN SOLUTIONS
// DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
// UNINTERRUPTED OR ERROR FREE.
//
// Use, duplication, or disclosure by the U.S. Government is subject to
// restrictions set forth in FAR 52.227-19 (Commercial Computer
// Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
// (Rights in Technical Data and Computer Software), as applicable.
//
dcl_settings : default_dcl_settings { audit_level = 0; }
LEGEND : dialog {
label = "LEGEND v1.0";
:column {
:row {
:text {
key = "selected";
width = 40;
label = "Make a selection";
}
:row{
:button{
label = "Select All";
key = "selall";
fixed_width = false;
}
:button{
label = "Deselect All";
key = "selnone";
fixed_width = false;
}
}
}
spacer_0;
:boxed_row{
label = " Sedimentation ";
:column{
:toggle{
key = "tog1";
label = "CatchDrain";
}
:toggle{
key = "tog2";
label = "Low Flow Bank ";
}
:toggle{
key = "tog3";
label = "Sediment Fence";
}
:toggle{
key = "tog4";
label = "OverFlow Path";
}
:toggle{
key = "tog5";
label = "Traffic Manoeuvring";
}
}
:column{
:toggle{
key = "tog6";
label = "Vehicle Shaker Grid";
}
:toggle{
key = "tog7";
label = "Stabilised Site Access";
}
:toggle{
key = "tog8";
label = "Stockpile Location";
}
:toggle{
key = "tog9";
label = "Straw Bale Filter";
}
:toggle{
key = "tog10";
label = "Geotextile Inlet Filter ";
}
}
:column{
:toggle{
key = "tog11";
label = "Mesh && Gravel Inlet Filter          ";
}
:toggle{
key = "tog12";
label = "Temp Rock Headwall";
}
:toggle{
key = "tog13";
label = "";
}
:toggle{
key = "tog14";
label = "";
}
:toggle{
key = "tog15";
label = "";
}
}

:column{
:button{
label = "ON ";
key = "selall1";
fixed_width = true;
alignment = centered;
}
:button{
label = "OFF";
key = "selnone1";
fixed_width = true;
alignment = centered;
}
}
}
:boxed_row{
label = " Roads && Drainage ";
:column{
:toggle{
key = "tog31";
label = "Limit of Work       ";
}
:toggle{
key = "tog32";
label = "Bdy Existing";
}
:toggle{
key = "tog33";
label = "Bdy Proposed";
}
:toggle{
key = "tog34";
label = "Ridge Line";
}
:toggle{
key = "tog35";
label = "Valley Line";
}
}
:column{
:toggle{
key = "tog36";
label = "Surface Inlet Pits       ";
}
:toggle{
key = "tog37";
label = "Lintel Pits";
}
:toggle{
key = "tog38";
label = "Junction Pits";
}
:toggle{
key = "tog39";
label = "Grateddrain";
}
:toggle{
key = "tog40";
label = "Pit Tag";
}
}
:column{
:toggle{
key = "tog41";
label = "SW Existing       ";
}
:toggle{
key = "tog42";
label = "SW Proposed";
}
:toggle{
key = "tog43";
label = "Batter Proposed";
}
:toggle{
key = "tog44";
label = "Batter Existing";
}
:toggle{
key = "tog45";
label = "Spot Level";
}
}
:column{
:toggle{
key = "tog46";
label = "Contour Proposed";
}
:toggle{
key = "tog47";
label = "Contour Existing";
}
:toggle{
key = "tog48";
label = "Kerb - K&&G";
}
:toggle{
key = "tog49";
label = "Kerb - KO";
}
:toggle{
key = "tog50";
label = "";
}
}
:column{
fixed_width = true;
:button{
label = "ON ";
key = "selall2";
fixed_width = true;
alignment = centered;
}
:button{
label = "OFF";
key = "selnone2";
fixed_width = true;
alignment = centered;
}
}
}
:boxed_row{
label = " Services ";
:column{
:toggle{
key = "tog71";
label = "Prop Electrical SRV";
}
:toggle{
key = "tog72";
label = "Prop Gas SRV";
}
:toggle{
key = "tog73";
label = "Prop Sewer SRV";
}
:toggle{
key = "tog74";
label = "Prop Telstra SRV";
}
:toggle{
key = "tog75";
label = "Prop Water SRV";
}
}
:column{
:toggle{
key = "tog76";
label = "Prop Rising Main ";
}
:toggle{
key = "tog77";
label = "";
}
:toggle{
key = "tog78";
label = "";
}
:toggle{
key = "tog79";
label = "";
}
:toggle{
key = "tog80";
label = "";
}
}
:column{
:toggle{
key = "tog81";
label = "Exist Elect";
}
:toggle{
key = "tog82";
label = "Exist Gas";
}
:toggle{
key = "tog83";
label = "Exist Sewer";
}
:toggle{
key = "tog84";
label = "Exist Telstra";
}
:toggle{
key = "tog85";
label = "Exist Water";
}
}
:column{
:toggle{
key = "tog86";
label = "Exist Rising Main ";
}
:toggle{
key = "tog87";
label = "";
}
:toggle{
key = "tog88";
label = "";
}
:toggle{
key = "tog89";
label = "";
}
:toggle{
key = "tog90";
label = "";
}
}
:column{
fixed_width = true;
:button{
label = "ON";
key = "selall3";
fixed_width = true;
alignment = centered;
}
:button{
label = "OFF";
key = "selnone3";
fixed_width = true;
alignment = centered;
}
}
}
:row{
:boxed_row{
label = " Jointing ";
:column{
:toggle{
key = "tog121";
label = "Joint - CJ";
}
:toggle{
key = "tog122";
label = "Joint - EJ";
}
:toggle{
key = "tog123";
label = "Joint - DJ";
}
:toggle{
key = "tog124";
label = "Joint - DCJ";
}
:toggle{
key = "tog125";
label = "Joint - DEJ";
}
}
:column{
:toggle{
key = "tog126";
label = "Joint - IJ";
}
:toggle{
key = "tog127";
label = "Joint - SC";
}
:toggle{
key = "tog128";
label = "";
}
:toggle{
key = "tog129";
label = "";
}
:toggle{
key = "tog130";
label = "";
}
}
:column{
fixed_width = true;
:button{
label = "ON ";
key = "selall4";
fixed_width = true;
alignment = centered;
}
:button{
label = "OFF";
key = "selnone4";
fixed_width = true;
alignment = centered;
}
}
}
:boxed_row{
label = " General ";
:column{
:toggle{
key = "tog131";
label = "Sheet Join Line";
}
:toggle{
key = "tog132";
label = "";
}
:toggle{
key = "tog133";
label = "";
}
:toggle{
key = "tog134";
label = "";
}
:toggle{
key = "tog135";
label = "";
}
}
:column{
:toggle{
key = "tog136";
label = "";
}
:toggle{
key = "tog137";
label = "";
}
:toggle{
key = "tog138";
label = "";
}
:toggle{
key = "tog139";
label = "";
}
:toggle{
key = "tog140";
label = "";
}
}
:column{
fixed_width = true;
:button{
label = "ON ";
key = "selall5";
fixed_width = true;
alignment = centered;
}
:button{
label = "OFF";
key = "selnone5";
fixed_width = true;
alignment = centered;
}
}
}
}
spacer_1;
:toggle{
key = "save";
label = "Save Settings";
}
spacer_1;
:image{
key = "sep1";
color = dialog_background;
width = 25;
height = 0;
}

ok_cancel_help_info;

:column{
:paragraph{
:text{
key = "copyright";
label = "--- Copyright© 2008 ---";
alignment = centered;
}
}
}
spacer_0;
}
}

russell84 发表于 2022-7-6 11:25:13

对不起，图片尺寸太大了-我必须裁剪到小于600 X 600才能插入

干杯

Strix 发表于 2022-7-6 11:30:08

这看起来是一件非常方便的事情——现在，当我正在做一项需要它的工作时，我该怎么再次找到它呢？

dcl代表什么？

页: [1] 2

乐筑天下's Archiver

Dcl布局帮助