乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
楼主: russell84

[编程交流] 图例复选框

[复制链接]

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-5 18:44:05 | 显示全部楼层
嘿,这个Lisp程序是我的第一个Lisp程序-它有点凌乱,但如果你在其中发现任何有用的东西,就去做吧。
 
我需要正确地写它,现在我知道了一点关于lisp和vba等,但那将是当我有输入法-它现在的工作。
 
这是dcl,我接下来发布lisp
 
  1. dcl_settings : default_dcl_settings { audit_level = 0; }
  2. LEGEND : dialog {
  3. label = "LEGEND CREATOR v1.0";
  4. :column {
  5.   :row {
  6.    :text {
  7.     key = "text1";
  8.     width = 30;
  9.     label = "Make a selection";
  10.    }
  11.    :row{
  12.     :button{
  13.      label = "Select All";
  14.      key = "selall";
  15.      fixed_width = false;
  16.     }
  17.     :button{
  18.      label = "Deselect All";
  19.      key = "selnone";
  20.      fixed_width = false;
  21.     }
  22.    }
  23.   }
  24.   spacer_0;
  25.   :boxed_row{
  26.    label = " Sedimentation ";
  27.    :column{
  28.     :toggle{
  29.      key = "t1";
  30.      label = "CatchDrain                       ";
  31.     }
  32.     :toggle{
  33.      key = "t2";
  34.      label = "Low Flow Bank ";
  35.     }
  36.     :toggle{
  37.      key = "t3";
  38.      label = "Traffic Manoeuvring";
  39.     }
  40. }
  41.    :column{
  42.     :toggle{
  43.      key = "t4";
  44.      label = "OverFlow Path              ";
  45.     }
  46.     :toggle{
  47.      key = "t5";
  48.      label = "Sediment Fence";
  49.     }
  50.    
  51. :toggle{
  52.      key = "t6";
  53.      label = "Vehicle Shaker Grid";
  54.     }
  55. }
  56. :column{
  57.     :toggle{
  58.      key = "t7";
  59.      label = "Stabilised Site Access       ";
  60.     }
  61.     :toggle{
  62.      key = "t8";
  63.      label = "Stockpile Location";
  64.     }
  65.     :toggle{
  66.      key = "t9";
  67.      label = "Straw Bale Filter";
  68.     }
  69. }
  70. :column{
  71.     :toggle{
  72.      key = "t10";
  73.      label = "Geotextile Inlet Filter ";
  74. }
  75.    
  76.     :toggle{
  77.      key = "t11";
  78.      label = "Mesh && Gravel Inlet Filter";
  79.     }
  80. //    :toggle{
  81. //      key = "t12";
  82. //     label = "Temp Rock Headwall";
  83. //     }
  84. //     :toggle{
  85. //      key = "t13";
  86. //      label = "Proposed Rip Rap";
  87. //     }
  88. spacer_1;
  89.    }
  90.    
  91.     :column{
  92.      fixed_height = true;
  93.     :button{
  94.      label = "ON ";
  95.      key = "selall1";
  96.      fixed_width = true;
  97.      alignment = centered;
  98.     }
  99.     :button{
  100.      label = "OFF";
  101.      key = "selnone1";
  102.      fixed_width = true;
  103.      alignment = centered;
  104.     }
  105.    }
  106.   }
  107.   :boxed_row{
  108.    label = " Roads && Drainage ";
  109.    :column{
  110.     :toggle{
  111.      key = "t14";
  112.      label = "Limit of Work           ";
  113.     }
  114.     :toggle{
  115.      key = "t15";
  116.      label = "Bdy Existing";
  117.     }
  118.     :toggle{
  119.      key = "t16";
  120.      label = "Bdy Proposed";
  121.     }
  122.     :toggle{
  123.      key = "t17";
  124.      label = "Ridge Line";
  125.     }
  126.     :toggle{
  127.      key = "t18";
  128.      label = "Valley Line";
  129.     }
  130.     :toggle{
  131.      key = "t19";
  132.      label = "Subsoil Proposed";
  133.     }
  134.     :toggle{
  135.      key = "t20";
  136.      label = "Table Drain";
  137.     }
  138. :toggle{
  139.      key = "t21";
  140.      label = "Pits - Junction";
  141.     }
  142. }
  143. :column{
  144.     :toggle{
  145.      key = "t22";
  146.      label = "Pits - Surface inlet";
  147.     }
  148.     :toggle{
  149.      key = "t23";
  150.      label = "Pits - Lintels";
  151.     }
  152.     :toggle{
  153.      key = "t24";
  154.      label = "Pit Tag";
  155.     }
  156. //new toggles
  157.     :toggle{
  158.      key = "t100";
  159.      label = "SW Pit Info";
  160.     }
  161.     :toggle{
  162.      key = "t101";
  163.      label = "SEW Pit Info";
  164.     }
  165. //
  166.     :toggle{
  167.      key = "t25";
  168.      label = "Grateddrain";
  169. }
  170.     :toggle{
  171.      key = "t26";
  172.      label = "SW Existing";
  173.     }
  174.     :toggle{
  175.      key = "t27";
  176.      label = "SW Proposed";
  177. }
  178.    }
  179.    :column{
  180.     :toggle{
  181.      key = "t28";
  182.      label = "Batter Existing";
  183.     }
  184.     :toggle{
  185.      key = "t29";
  186.      label = "Batter Proposed";
  187.     }
  188.     :toggle{
  189.      key = "t30";
  190.      label = "Contour Existing";
  191.     }
  192.     :toggle{
  193.      key = "t31";
  194.      label = "Contour Proposed";
  195.     }
  196.     :toggle{
  197.      key = "t32";
  198.      label = "Contour BE";
  199. }
  200.     :toggle{
  201.      key = "t33";
  202.      label = "Spot Level Proposed";
  203.     }
  204.     :toggle{
  205.      key = "t34";
  206.      label = "Spot Level BE";
  207. }
  208.    }
  209.    :column{
  210. :toggle{
  211.      key = "t35";
  212.      label = "Kerb - K&&G";
  213.     }
  214.     :toggle{
  215.      key = "t36";
  216.      label = "Kerb - KO";
  217.     }
  218.     :toggle{
  219.      key = "t37";
  220.      label = "Kerb - IK";
  221.     }
  222.     :toggle{
  223.      key = "t38";
  224.      label = "Kerb - BK";
  225.     }
  226.     :toggle{
  227.      key = "t39";
  228.      label = "Kerb - RK";
  229.     }
  230.     :toggle{
  231.      key = "t40";
  232.      label = "Dish Gutter - DG";
  233.     }
  234. spacer_1;
  235.    }
  236. :column{
  237.       fixed_height = true;
  238.      fixed_width = true;
  239.     :button{
  240.      label = "ON ";
  241.      key = "selall2";
  242.      fixed_width = true;
  243.      alignment = centered;
  244.     }
  245.     :button{
  246.      label = "OFF";
  247.      key = "selnone2";
  248.      fixed_width = true;
  249.      alignment = centered;
  250.     }
  251.    }
  252.   }
  253.   :boxed_row{
  254.    label = "Existing Services                                                                        Proposed Services";
  255.    :column{         
  256.     :toggle{
  257.      key = "t41";
  258.      label = "EXSRV Electrical           ";
  259.     }
  260.     :toggle{
  261.      key = "t42";
  262.      label = "EXSRV Gas";
  263.     }
  264.     :toggle{
  265.      key = "t43";
  266.      label = "EXSRV Sewer";
  267.     }
  268.     :toggle{
  269.      key = "t44";
  270.      label = "EXSRV Telstra";
  271.     }
  272.     :toggle{
  273.      key = "t45";
  274.      label = "EXSRV Water";
  275.     }
  276.    }
  277.    :column{
  278. :toggle{
  279.      key = "t46";
  280.      label = "EXSRV Rising Main    ";
  281.     }
  282.     :toggle{
  283.      key = "t47";
  284.      label = "EXSRV Opt-Fibre";
  285.     }
  286.     :toggle{
  287.      key = "t48";
  288.      label = "EXSRV Optus";
  289.     }
  290.     :toggle{
  291.      key = "t49";
  292.      label = "EXSRV ERM";
  293.     }
  294.     :toggle{
  295.      key = "t50";
  296.      label = "EXSRV IRM";
  297. }
  298.    }
  299.    :column{
  300.     :toggle{
  301.      key = "t51";
  302.      label = "SRV Electrical                 ";
  303.     }
  304.     :toggle{
  305.      key = "t52";
  306.      label = "SRV Gas";
  307.     }
  308.     :toggle{
  309.      key = "t53";
  310.      label = "SRV Sewer";
  311.     }
  312.     :toggle{
  313.      key = "t54";
  314.      label = "SRV Telstra";
  315.     }
  316.     :toggle{
  317.      key = "t55";
  318.      label = "SRV Water";
  319.     }
  320.    }
  321.    :column{
  322. :toggle{
  323.      key = "t56";
  324.      label = "SRV Rising Main     ";
  325.     }
  326.     :toggle{
  327.      key = "t57";
  328.      label = "SRV Opt-Fibre";
  329.     }
  330.     :toggle{
  331.      key = "t58";
  332.      label = "SRV Optus";
  333.     }
  334.     :toggle{
  335.      key = "t59";
  336.      label = "SRV ERM";
  337.     }
  338.     :toggle{
  339.      key = "t60";
  340.      label = "SRV IRM";
  341.     }
  342.    }
  343. :column{
  344.      fixed_height = true;
  345.     fixed_width = true;
  346.     :button{
  347.      label = "ON";
  348.      key = "selall3";
  349.      fixed_width = true;
  350.      alignment = centered;
  351.     }
  352.     :button{
  353.      label = "OFF";
  354.      key = "selnone3";
  355.      fixed_width = true;
  356.      alignment = centered;
  357.     }
  358.    }
  359.   }
  360.   :row{
  361.   :boxed_row{
  362.    fixed_width = false;
  363.    label = " Jointing ";
  364.    :column{
  365.     :toggle{
  366.      key = "t61";
  367.      label = "Joint - CJ";
  368.     }
  369.     :toggle{
  370.      key = "t62";
  371.      label = "Joint - DCJ";
  372.     }
  373.     :toggle{
  374.      key = "t63";
  375.      label = "Joint - DEJ";
  376.     }
  377.     :toggle{
  378.      key = "t64";
  379.      label = "Joint - DJ";
  380.     }
  381. spacer_1;
  382. spacer_1;
  383.    }
  384.    :column{
  385.     fixed_width = true;
  386.      :toggle{
  387.      key = "t65";
  388.      label = "Joint - EJ      ";
  389.     }
  390. :toggle{
  391.      key = "t66";
  392.      label = "Joint - IJ";
  393.     }
  394.     :toggle{
  395.      key = "t67";
  396.      label = "Joint - SC";
  397.     }
  398.     :toggle{
  399.      key = "t68";
  400.      label = "Joint - TEJ";
  401.     }
  402. spacer_1;
  403. spacer_1;
  404.    }
  405. :column{
  406.      fixed_height = true;
  407.     fixed_width = true;
  408.     :button{
  409.      label = "ON";
  410.      key = "selall4";
  411.      fixed_width = true;
  412.      alignment = centered;
  413.     }
  414.     :button{
  415.      label = "OFF";
  416.      key = "selnone4";
  417.      fixed_width = true;
  418.      alignment = centered;
  419.     }
  420.    }
  421. }
  422.    :boxed_row{
  423.     label = " General ";
  424.    :column{
  425.     :toggle{
  426.      key = "t69";
  427.      label = "Sheet Join Line";
  428.     }
  429.     :toggle{
  430.      key = "t70";
  431.      label = "";
  432.     }
  433.     :toggle{
  434.      key = "t71";
  435.      label = "";
  436.     }
  437.     :toggle{
  438.      key = "t72";
  439.      label = "";
  440.     }
  441.     :toggle{
  442.      key = "t73";
  443.      label = "";
  444.     }
  445.    }
  446.    :column{
  447.    }
  448. :column{
  449.    }
  450. }
  451.   }
  452.   spacer_1;
  453.   :toggle{
  454.    key = "save";
  455.    label = "Save Settings";
  456.   }
  457. spacer_1;
  458.   :image{
  459.    key = "";
  460.    width = 0;
  461.    aspect_ratio = 1;
  462.    COLOR = 7;
  463.   }
  464.   
  465.   ok_cancel_help;
  466.   
  467.   :column{
  468.    :paragraph{
  469.     :text{
  470.      key = "copyright";
  471.      label = "";
  472.      alignment = centered;
  473.     }
  474.    }
  475.   }
  476.   spacer_0;
  477. }
  478. }
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-5 18:45:09 | 显示全部楼层
你只需要自己做这些积木。
 
我还必须说,当我写这篇文章的时候,我从这个论坛的人那里得到了一些帮助。
 
但是如果你需要任何帮助,请告诉我-我应该能够帮助你。
 
干杯伙计们
 
另外,lisp文件太大了,所以我把它分为两个文件-只需粘贴LEGEND2的内容。lsp进入LEGEND1。lsp
图例。LSP
LEGEND2.LSP
回复

使用道具 举报

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-5 18:50:54 | 显示全部楼层
如何创建dcl文件?
我将代码粘贴在txt中,然后重命名为legend。dcl和但lisp(收集了2部分后)放了一条错误消息,即图例。无法加载DCL文件。
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-5 18:53:52 | 显示全部楼层
到目前为止,这是正确的-但你需要有传奇。dcl文件位于您的acad搜索路径之一内-然后它就会工作。
 
干杯-让我知道你进展如何
回复

使用道具 举报

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-5 18:54:29 | 显示全部楼层
我添加了一个新的搜索路径,效果很好
 
塔克斯·拉塞尔
回复

使用道具 举报

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 18:58:55 | 显示全部楼层
Legend的推出路线是什么。数字视频广播
回复

使用道具 举报

0

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 19:01:06 | 显示全部楼层
嗨,罗素,你还可以回答关于创建图例的lisp例程的问题吗?
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:03:57 | 显示全部楼层
这会有帮助吗?
 
http://lee-mac.com/blockcounter.html
回复

使用道具 举报

0

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 19:07:02 | 显示全部楼层
嗨,李,这似乎是我要找的。这里面也有dcl的代码吗?
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:11:16 | 显示全部楼层
 
是的,您只需要下载LISP文件。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 20:34 , Processed in 0.510705 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表