图例复选框乐筑天下 - Powered by Discuz! Archiver

russell84 发表于 2022-7-5 18:44:05

嘿，这个Lisp程序是我的第一个Lisp程序-它有点凌乱，但如果你在其中发现任何有用的东西，就去做吧。

我需要正确地写它，现在我知道了一点关于lisp和vba等，但那将是当我有输入法-它现在的工作。

这是dcl，我接下来发布lisp

dcl_settings : default_dcl_settings { audit_level = 0; }
LEGEND : dialog {
label = "LEGEND CREATOR v1.0";
:column {
:row {
:text {
key = "text1";
width = 30;
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 = "t1";
label = "CatchDrain                   ";
}
:toggle{
key = "t2";
label = "Low Flow Bank ";
}
:toggle{
key = "t3";
label = "Traffic Manoeuvring";
}
}
:column{
:toggle{
key = "t4";
label = "OverFlow Path          ";
}
:toggle{
key = "t5";
label = "Sediment Fence";
}

:toggle{
key = "t6";
label = "Vehicle Shaker Grid";
}
}
:column{
:toggle{
key = "t7";
label = "Stabilised Site Access    ";
}
:toggle{
key = "t8";
label = "Stockpile Location";
}
:toggle{
key = "t9";
label = "Straw Bale Filter";
}
}
:column{
:toggle{
key = "t10";
label = "Geotextile Inlet Filter ";
}

:toggle{
key = "t11";
label = "Mesh && Gravel Inlet Filter";
}
// :toggle{
//    key = "t12";
// label = "Temp Rock Headwall";
// }
// :toggle{
//    key = "t13";
//    label = "Proposed Rip Rap";
// }
spacer_1;
}

:column{
fixed_height = true;
: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 = "t14";
label = "Limit of Work       ";
}
:toggle{
key = "t15";
label = "Bdy Existing";
}
:toggle{
key = "t16";
label = "Bdy Proposed";
}
:toggle{
key = "t17";
label = "Ridge Line";
}
:toggle{
key = "t18";
label = "Valley Line";
}
:toggle{
key = "t19";
label = "Subsoil Proposed";
}
:toggle{
key = "t20";
label = "Table Drain";
}
:toggle{
key = "t21";
label = "Pits - Junction";
}
}

:column{
:toggle{
key = "t22";
label = "Pits - Surface inlet";
}
:toggle{
key = "t23";
label = "Pits - Lintels";
}
:toggle{
key = "t24";
label = "Pit Tag";
}
//new toggles
:toggle{
key = "t100";
label = "SW Pit Info";
}
:toggle{
key = "t101";
label = "SEW Pit Info";
}
//
:toggle{
key = "t25";
label = "Grateddrain";
}
:toggle{
key = "t26";
label = "SW Existing";
}
:toggle{
key = "t27";
label = "SW Proposed";
}
}
:column{
:toggle{
key = "t28";
label = "Batter Existing";
}
:toggle{
key = "t29";
label = "Batter Proposed";
}
:toggle{
key = "t30";
label = "Contour Existing";
}
:toggle{
key = "t31";
label = "Contour Proposed";
}
:toggle{
key = "t32";
label = "Contour BE";
}
:toggle{
key = "t33";
label = "Spot Level Proposed";
}
:toggle{
key = "t34";
label = "Spot Level BE";
}
}
:column{
:toggle{
key = "t35";
label = "Kerb - K&&G";
}
:toggle{
key = "t36";
label = "Kerb - KO";
}
:toggle{
key = "t37";
label = "Kerb - IK";
}
:toggle{
key = "t38";
label = "Kerb - BK";
}
:toggle{
key = "t39";
label = "Kerb - RK";
}
:toggle{
key = "t40";
label = "Dish Gutter - DG";
}
spacer_1;
}
:column{
   fixed_height = true;
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 = "Existing Services                                                                      Proposed Services";
:column{
:toggle{
key = "t41";
label = "EXSRV Electrical       ";
}
:toggle{
key = "t42";
label = "EXSRV Gas";
}
:toggle{
key = "t43";
label = "EXSRV Sewer";
}
:toggle{
key = "t44";
label = "EXSRV Telstra";
}
:toggle{
key = "t45";
label = "EXSRV Water";
}
}
:column{
:toggle{
key = "t46";
label = "EXSRV Rising Main ";
}
:toggle{
key = "t47";
label = "EXSRV Opt-Fibre";
}
:toggle{
key = "t48";
label = "EXSRV Optus";
}
:toggle{
key = "t49";
label = "EXSRV ERM";
}
:toggle{
key = "t50";
label = "EXSRV IRM";
}
}
:column{
:toggle{
key = "t51";
label = "SRV Electrical             ";
}
:toggle{
key = "t52";
label = "SRV Gas";
}
:toggle{
key = "t53";
label = "SRV Sewer";
}
:toggle{
key = "t54";
label = "SRV Telstra";
}
:toggle{
key = "t55";
label = "SRV Water";
}
}
:column{
:toggle{
key = "t56";
label = "SRV Rising Main ";
}
:toggle{
key = "t57";
label = "SRV Opt-Fibre";
}
:toggle{
key = "t58";
label = "SRV Optus";
}
:toggle{
key = "t59";
label = "SRV ERM";
}
:toggle{
key = "t60";
label = "SRV IRM";
}
}
:column{
fixed_height = true;
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{
fixed_width = false;
label = " Jointing ";
:column{
:toggle{
key = "t61";
label = "Joint - CJ";
}
:toggle{
key = "t62";
label = "Joint - DCJ";
}
:toggle{
key = "t63";
label = "Joint - DEJ";
}
:toggle{
key = "t64";
label = "Joint - DJ";
}
spacer_1;
spacer_1;
}
:column{
fixed_width = true;
:toggle{
key = "t65";
label = "Joint - EJ    ";
}
:toggle{
key = "t66";
label = "Joint - IJ";
}
:toggle{
key = "t67";
label = "Joint - SC";
}
:toggle{
key = "t68";
label = "Joint - TEJ";
}
spacer_1;
spacer_1;
}
:column{
fixed_height = true;
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 = "t69";
label = "Sheet Join Line";
}
:toggle{
key = "t70";
label = "";
}
:toggle{
key = "t71";
label = "";
}
:toggle{
key = "t72";
label = "";
}
:toggle{
key = "t73";
label = "";
}
}
:column{
}
:column{
}
}
}
spacer_1;
:toggle{
key = "save";
label = "Save Settings";
}
spacer_1;
:image{
key = "";
width = 0;
aspect_ratio = 1;
COLOR = 7;
}

ok_cancel_help;

:column{
:paragraph{
:text{
key = "copyright";
label = "";
alignment = centered;
}
}
}
spacer_0;
}
}

russell84 发表于 2022-7-5 18:45:09

你只需要自己做这些积木。

我还必须说，当我写这篇文章的时候，我从这个论坛的人那里得到了一些帮助。

但是如果你需要任何帮助，请告诉我-我应该能够帮助你。

干杯伙计们

另外，lisp文件太大了，所以我把它分为两个文件-只需粘贴LEGEND2的内容。lsp进入LEGEND1。lsp
图例。LSP
LEGEND2.LSP

asos2000 发表于 2022-7-5 18:50:54

如何创建dcl文件？
我将代码粘贴在txt中，然后重命名为legend。dcl和但lisp（收集了2部分后）放了一条错误消息，即图例。无法加载DCL文件。

russell84 发表于 2022-7-5 18:53:52

到目前为止，这是正确的-但你需要有传奇。dcl文件位于您的acad搜索路径之一内-然后它就会工作。

干杯-让我知道你进展如何

asos2000 发表于 2022-7-5 18:54:29

我添加了一个新的搜索路径，效果很好

塔克斯·拉塞尔

segorfree 发表于 2022-7-5 18:58:55

Legend的推出路线是什么。数字视频广播

mauserp08 发表于 2022-7-5 19:01:06

嗨，罗素，你还可以回答关于创建图例的lisp例程的问题吗？

Lee Mac 发表于 2022-7-5 19:03:57

这会有帮助吗？

http://lee-mac.com/blockcounter.html

mauserp08 发表于 2022-7-5 19:07:02

嗨，李，这似乎是我要找的。这里面也有dcl的代码吗？

Lee Mac 发表于 2022-7-5 19:11:16

是的，您只需要下载LISP文件。

页: 1 [2]

乐筑天下's Archiver