乐筑天下

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

[编程交流] Dcl布局帮助

[复制链接]

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 10:52:43 | 显示全部楼层 |阅读模式
我已经断断续续地尝试了几天,以获得我想要的dcl布局-不幸的是,我对dcl一无所知,我要退出autodesk帮助指南。
 
我附上了一张我想要的布局草图,不知道是否有人能帮我
 
谢谢你堆
 
你将不得不原谅快速手绘
115246s0piucc7facpggi2.jpg
回复

使用道具 举报

15

主题

209

帖子

121

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 10:57:39 | 显示全部楼层
按钮是复选框还是单选按钮?
回复

使用道具 举报

15

主题

209

帖子

121

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 11:03:27 | 显示全部楼层
这是怎么回事??
  1. //
  2. //     TXTO.DCL      Version 1.0
  3. //
  4. //     Copyright© 2007
  5. //
  6. //     Permission to use, copy, modify, and distribute this software
  7. //     for any purpose and without fee is hereby granted, provided
  8. //     that the above copyright notice appears in all copies and
  9. //     that both that copyright notice and the limited warranty and
  10. //     restricted rights notice below appear in all supporting
  11. //     documentation.
  12. //
  13. //     TIMOTHY SPANGLER PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
  14. //     TIMOTHY SPANGLER SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
  15. //     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  DESIGN SOLUTIONS
  16. //     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
  17. //     UNINTERRUPTED OR ERROR FREE.
  18. //
  19. //     Use, duplication, or disclosure by the U.S. Government is subject to
  20. //     restrictions set forth in FAR 52.227-19 (Commercial Computer
  21. //     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
  22. //     (Rights in Technical Data and Computer Software), as applicable.
  23. //
  24. dcl_settings : default_dcl_settings { audit_level = 0; }
  25. txto : dialog {
  26. label = "TXTO v1.0";
  27. :column {
  28.   :row {
  29.    :text {
  30.     key = "selected";
  31.     width = 30;
  32.     label = "No text selected";
  33.    }
  34.    :column{
  35.     :button{
  36.      label = "Select All";
  37.      key = "selall";
  38.     }
  39.     :button{
  40.      label = "Select None";
  41.      key = "selnone";
  42.     }
  43.    }
  44.   }
  45.   spacer_0;
  46.   :boxed_row{
  47.    label = "Select text buttons";
  48.    :column{
  49.     :toggle{
  50.      key = "txt1";
  51.      label = "TXT1";
  52.     }
  53.     :toggle{
  54.      key = "txt2";
  55.      label = "TXT2";
  56.     }
  57.     :toggle{
  58.      key = "txt3";
  59.      label = "TXT3";
  60.     }
  61.     :toggle{
  62.      key = "txt4";
  63.      label = "TXT4";
  64.     }
  65.     :toggle{
  66.      key = "txt5";
  67.      label = "TXT5";
  68.     }
  69.    }
  70.    :column{
  71.     :toggle{
  72.      key = "txt6";
  73.      label = "TXT6";
  74.     }
  75.     :toggle{
  76.      key = "txt7";
  77.      label = "TXT7";
  78.     }
  79.     :toggle{
  80.      key = "txt8";
  81.      label = "TXT8";
  82.     }
  83.     :toggle{
  84.      key = "txt9";
  85.      label = "TXT9";
  86.     }
  87.     :toggle{
  88.      key = "txt10";
  89.      label = "TXT10";
  90.     }
  91.    }
  92.    :column{
  93.     :toggle{
  94.      key = "txt11";
  95.      label = "TXT11";
  96.     }
  97.     :toggle{
  98.      key = "txt12";
  99.      label = "TXT12";
  100.     }
  101.     :toggle{
  102.      key = "txt13";
  103.      label = "TXT13";
  104.     }
  105.     :toggle{
  106.      key = "txt14";
  107.      label = "TXT14";
  108.     }
  109.     :toggle{
  110.      key = "txt15";
  111.      label = "TXT15";
  112.     }
  113.    }
  114.   }
  115.   spacer_1;
  116.   :toggle{
  117.    key = "save";
  118.    label = "SAVE SETTINGS";
  119.   }
  120.   spacer_1;
  121.   :image{
  122.    key = "sep1";
  123.    color = dialog_background;
  124.    width = 25;
  125.    height = 1;
  126.   }
  127.   spacer_0;
  128.   ok_cancel;
  129.   spacer_1;
  130.   :column{
  131.    :paragraph{
  132.     :text{
  133.      key = "copyright";
  134.      label = "--- Copyright© 2008 ---";
  135.      alignment = centered;
  136.     }
  137.    }
  138.   }
  139.   spacer_0;
  140. }
  141. }

115248j33ysboyo2g4ozo9.png
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 11:04:11 | 显示全部楼层
蒂姆:谢谢你,伙计,我不指望有人会诚实地回答这个问题,更不用说一下子就找到了
 
无论如何,谢谢你,伙计,我会把lisp和最终Dcl发给你,这样你就有了一份副本
 
我会再添加几个切换框
 
基本上,它所要做的就是通过插入包含符号和文本的块来创建一个图例,并根据选择的块对页面进行排序。
 
干杯,伙计
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 11:08:41 | 显示全部楼层
还有一个问题,如何在对话框中插入图像??
回复

使用道具 举报

15

主题

209

帖子

121

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 11:14:41 | 显示全部楼层
“图像”必须是在AutoCAD中创建的幻灯片或由代码创建的矢量图形。
 
我在上面的对话框中使用了矢量图像来创建分隔线。如果你刚刚进入dcl,我建议你看看OpenDCL而不是plan dcl
 
http://opendcl.com/wordpress/
 
它还有很多可以提供的。
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 11:17:20 | 显示全部楼层
我现在还在编辑,但你会明白要点的
 
你能指导我在DCL中插入幻灯片吗?
我必须在lisp中定义图像,不是吗?你用什么代码在Dcl中定义图像块?
 
我还没有真正开始在lisp中定义函数,但基本上我想做的是让每个切换框插入一个块,该块由一个简单的符号和图例中的描述组成。(这些块明显位于acad搜索路径内)
因此,一旦选择了所需的切换,并且用户选择ok,则用户选择一个初始插入点,lisp将创建一个所选切换列表,并在列表中运行,并在插入点插入第一个块,然后在列表中循环,并在先前插入的块下方插入每个块(-2.5(Y))单位,直到列表完成,从而创建图例。
 
蒂姆,也许你也可以在列表过程中帮助我??
希望我没有把你搞糊涂。
 
干杯
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 11:21:49 | 显示全部楼层
  1. //
  2. //     TXTO.DCL      Version 1.0
  3. //
  4. //     Copyright© 2007
  5. //
  6. //     Permission to use, copy, modify, and distribute this software
  7. //     for any purpose and without fee is hereby granted, provided
  8. //     that the above copyright notice appears in all copies and
  9. //     that both that copyright notice and the limited warranty and
  10. //     restricted rights notice below appear in all supporting
  11. //     documentation.
  12. //
  13. //     TIMOTHY SPANGLER PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
  14. //     TIMOTHY SPANGLER SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
  15. //     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  DESIGN SOLUTIONS
  16. //     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
  17. //     UNINTERRUPTED OR ERROR FREE.
  18. //
  19. //     Use, duplication, or disclosure by the U.S. Government is subject to
  20. //     restrictions set forth in FAR 52.227-19 (Commercial Computer
  21. //     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
  22. //     (Rights in Technical Data and Computer Software), as applicable.
  23. //
  24. dcl_settings : default_dcl_settings { audit_level = 0; }
  25. LEGEND : dialog {
  26. label = "LEGEND v1.0";
  27. :column {
  28.   :row {
  29.    :text {
  30.     key = "selected";
  31.     width = 40;
  32.     label = "Make a selection";
  33.    }
  34.    :row{
  35.     :button{
  36.      label = "Select All";
  37.      key = "selall";
  38.      fixed_width = false;
  39.     }
  40.     :button{
  41.      label = "Deselect All";
  42.      key = "selnone";
  43.      fixed_width = false;
  44.     }
  45.    }
  46.   }
  47.   spacer_0;
  48.   :boxed_row{
  49.    label = " Sedimentation ";
  50.    :column{
  51.     :toggle{
  52.      key = "tog1";
  53.      label = "CatchDrain";
  54.     }
  55.     :toggle{
  56.      key = "tog2";
  57.      label = "Low Flow Bank ";
  58.     }
  59.     :toggle{
  60.      key = "tog3";
  61.      label = "Sediment Fence";
  62.     }
  63.     :toggle{
  64.      key = "tog4";
  65.      label = "OverFlow Path";
  66.     }
  67.     :toggle{
  68.      key = "tog5";
  69.      label = "Traffic Manoeuvring";
  70.     }
  71.    }
  72.    :column{
  73. :toggle{
  74.      key = "tog6";
  75.      label = "Vehicle Shaker Grid";
  76.     }
  77.     :toggle{
  78.      key = "tog7";
  79.      label = "Stabilised Site Access";
  80.     }
  81.     :toggle{
  82.      key = "tog8";
  83.      label = "Stockpile Location";
  84.     }
  85.     :toggle{
  86.      key = "tog9";
  87.      label = "Straw Bale Filter";
  88.     }
  89.     :toggle{
  90.      key = "tog10";
  91.      label = "Geotextile Inlet Filter ";
  92. }
  93.    }
  94.    :column{
  95.     :toggle{
  96.      key = "tog11";
  97.      label = "Mesh && Gravel Inlet Filter              ";
  98.     }
  99.     :toggle{
  100.      key = "tog12";
  101.      label = "Temp Rock Headwall";
  102.     }
  103.     :toggle{
  104.      key = "tog13";
  105.      label = "";
  106.     }
  107.     :toggle{
  108.      key = "tog14";
  109.      label = "";
  110.     }
  111.     :toggle{
  112.      key = "tog15";
  113.      label = "";
  114.     }
  115.    }
  116.    
  117.     :column{
  118.     :button{
  119.      label = "ON ";
  120.      key = "selall1";
  121.      fixed_width = true;
  122.      alignment = centered;
  123.     }
  124.     :button{
  125.      label = "OFF";
  126.      key = "selnone1";
  127.      fixed_width = true;
  128.      alignment = centered;
  129.     }
  130.    }
  131.   }
  132.   :boxed_row{
  133.    label = " Roads && Drainage ";
  134.    :column{
  135.     :toggle{
  136.      key = "tog31";
  137.      label = "Limit of Work           ";
  138.     }
  139.     :toggle{
  140.      key = "tog32";
  141.      label = "Bdy Existing";
  142.     }
  143.     :toggle{
  144.      key = "tog33";
  145.      label = "Bdy Proposed";
  146.     }
  147.     :toggle{
  148.      key = "tog34";
  149.      label = "Ridge Line";
  150.     }
  151.     :toggle{
  152.      key = "tog35";
  153.      label = "Valley Line";
  154.     }
  155.    }
  156.    :column{
  157. :toggle{
  158.      key = "tog36";
  159.      label = "Surface Inlet Pits         ";
  160.     }
  161.     :toggle{
  162.      key = "tog37";
  163.      label = "Lintel Pits";
  164.     }
  165.     :toggle{
  166.      key = "tog38";
  167.      label = "Junction Pits";
  168.     }
  169.     :toggle{
  170.      key = "tog39";
  171.      label = "Grateddrain";
  172.     }
  173.     :toggle{
  174.      key = "tog40";
  175.      label = "Pit Tag";
  176. }
  177.    }
  178.    :column{
  179.     :toggle{
  180.      key = "tog41";
  181.      label = "SW Existing          ";
  182.     }
  183.     :toggle{
  184.      key = "tog42";
  185.      label = "SW Proposed";
  186.     }
  187.     :toggle{
  188.      key = "tog43";
  189.      label = "Batter Proposed";
  190.     }
  191.     :toggle{
  192.      key = "tog44";
  193.      label = "Batter Existing";
  194.     }
  195.     :toggle{
  196.      key = "tog45";
  197.      label = "Spot Level";
  198.     }
  199.    }
  200.    :column{
  201. :toggle{
  202.      key = "tog46";
  203.      label = "Contour Proposed";
  204.     }
  205.     :toggle{
  206.      key = "tog47";
  207.      label = "Contour Existing";
  208.     }
  209.     :toggle{
  210.      key = "tog48";
  211.      label = "Kerb - K&&G";
  212.     }
  213.     :toggle{
  214.      key = "tog49";
  215.      label = "Kerb - KO";
  216.     }
  217.     :toggle{
  218.      key = "tog50";
  219.      label = "";
  220.     }
  221.    }
  222. :column{
  223.      fixed_width = true;
  224.     :button{
  225.      label = "ON ";
  226.      key = "selall2";
  227.      fixed_width = true;
  228.      alignment = centered;
  229.     }
  230.     :button{
  231.      label = "OFF";
  232.      key = "selnone2";
  233.      fixed_width = true;
  234.      alignment = centered;
  235.     }
  236.    }
  237.   }
  238.   :boxed_row{
  239.    label = " Services ";
  240.    :column{
  241.     :toggle{
  242.      key = "tog71";
  243.      label = "Prop Electrical SRV";
  244.     }
  245.     :toggle{
  246.      key = "tog72";
  247.      label = "Prop Gas SRV";
  248.     }
  249.     :toggle{
  250.      key = "tog73";
  251.      label = "Prop Sewer SRV";
  252.     }
  253.     :toggle{
  254.      key = "tog74";
  255.      label = "Prop Telstra SRV";
  256.     }
  257.     :toggle{
  258.      key = "tog75";
  259.      label = "Prop Water SRV";
  260.     }
  261.    }
  262.    :column{
  263. :toggle{
  264.      key = "tog76";
  265.      label = "Prop Rising Main   ";
  266.     }
  267.     :toggle{
  268.      key = "tog77";
  269.      label = "";
  270.     }
  271.     :toggle{
  272.      key = "tog78";
  273.      label = "";
  274.     }
  275.     :toggle{
  276.      key = "tog79";
  277.      label = "";
  278.     }
  279.     :toggle{
  280.      key = "tog80";
  281.      label = "";
  282. }
  283.    }
  284.    :column{
  285.     :toggle{
  286.      key = "tog81";
  287.      label = "Exist Elect";
  288.     }
  289.     :toggle{
  290.      key = "tog82";
  291.      label = "Exist Gas";
  292.     }
  293.     :toggle{
  294.      key = "tog83";
  295.      label = "Exist Sewer";
  296.     }
  297.     :toggle{
  298.      key = "tog84";
  299.      label = "Exist Telstra";
  300.     }
  301.     :toggle{
  302.      key = "tog85";
  303.      label = "Exist Water";
  304.     }
  305.    }
  306.    :column{
  307. :toggle{
  308.      key = "tog86";
  309.      label = "Exist Rising Main     ";
  310.     }
  311.     :toggle{
  312.      key = "tog87";
  313.      label = "";
  314.     }
  315.     :toggle{
  316.      key = "tog88";
  317.      label = "";
  318.     }
  319.     :toggle{
  320.      key = "tog89";
  321.      label = "";
  322.     }
  323.     :toggle{
  324.      key = "tog90";
  325.      label = "";
  326.     }
  327.    }
  328. :column{
  329.     fixed_width = true;
  330.     :button{
  331.      label = "ON";
  332.      key = "selall3";
  333.      fixed_width = true;
  334.      alignment = centered;
  335.     }
  336.     :button{
  337.      label = "OFF";
  338.      key = "selnone3";
  339.      fixed_width = true;
  340.      alignment = centered;
  341.     }
  342.    }
  343.   }
  344.   :row{
  345.   :boxed_row{
  346.    label = " Jointing ";
  347.    :column{
  348.     :toggle{
  349.      key = "tog121";
  350.      label = "Joint - CJ";
  351.     }
  352.     :toggle{
  353.      key = "tog122";
  354.      label = "Joint - EJ";
  355.     }
  356.     :toggle{
  357.      key = "tog123";
  358.      label = "Joint - DJ";
  359.     }
  360.     :toggle{
  361.      key = "tog124";
  362.      label = "Joint - DCJ";
  363.     }
  364.     :toggle{
  365.      key = "tog125";
  366.      label = "Joint - DEJ";
  367.     }
  368.    }
  369.    :column{
  370. :toggle{
  371.      key = "tog126";
  372.      label = "Joint - IJ";
  373.     }
  374.     :toggle{
  375.      key = "tog127";
  376.      label = "Joint - SC";
  377.     }
  378.     :toggle{
  379.      key = "tog128";
  380.      label = "";
  381.     }
  382.     :toggle{
  383.      key = "tog129";
  384.      label = "";
  385.     }
  386.     :toggle{
  387.      key = "tog130";
  388.      label = "";
  389. }
  390.    }
  391. :column{
  392.     fixed_width = true;
  393.     :button{
  394.      label = "ON ";
  395.      key = "selall4";
  396.      fixed_width = true;
  397.      alignment = centered;
  398.     }
  399.     :button{
  400.      label = "OFF";
  401.      key = "selnone4";
  402.      fixed_width = true;
  403.      alignment = centered;
  404.     }
  405.    }
  406. }
  407.    :boxed_row{
  408.     label = " General ";
  409.    :column{
  410.     :toggle{
  411.      key = "tog131";
  412.      label = "Sheet Join Line";
  413.     }
  414.     :toggle{
  415.      key = "tog132";
  416.      label = "";
  417.     }
  418.     :toggle{
  419.      key = "tog133";
  420.      label = "";
  421.     }
  422.     :toggle{
  423.      key = "tog134";
  424.      label = "";
  425.     }
  426.     :toggle{
  427.      key = "tog135";
  428.      label = "";
  429.     }
  430.    }
  431.    :column{
  432. :toggle{
  433.      key = "tog136";
  434.      label = "";
  435.     }
  436.     :toggle{
  437.      key = "tog137";
  438.      label = "";
  439.     }
  440.     :toggle{
  441.      key = "tog138";
  442.      label = "";
  443.     }
  444.     :toggle{
  445.      key = "tog139";
  446.      label = "";
  447.     }
  448.     :toggle{
  449.      key = "tog140";
  450.      label = "";
  451.     }
  452.    }
  453. :column{
  454.     fixed_width = true;
  455.     :button{
  456.      label = "ON ";
  457.      key = "selall5";
  458.      fixed_width = true;
  459.      alignment = centered;
  460.     }
  461.     :button{
  462.      label = "OFF";
  463.      key = "selnone5";
  464.      fixed_width = true;
  465.      alignment = centered;
  466.     }
  467.    }
  468. }
  469.   }
  470.   spacer_1;
  471.   :toggle{
  472.    key = "save";
  473.    label = "Save Settings";
  474.   }
  475. spacer_1;
  476.   :image{
  477.    key = "sep1";
  478.    color = dialog_background;
  479.    width = 25;
  480.    height = 0;
  481.   }
  482.   
  483.   ok_cancel_help_info;
  484.   
  485.   :column{
  486.    :paragraph{
  487.     :text{
  488.      key = "copyright";
  489.      label = "--- Copyright© 2008 ---";
  490.      alignment = centered;
  491.     }
  492.    }
  493.   }
  494.   spacer_0;
  495. }
  496. }
回复

使用道具 举报

28

主题

130

帖子

126

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-6 11:25:13 | 显示全部楼层
对不起,图片尺寸太大了-我必须裁剪到小于600 X 600才能插入
 
干杯
115249ozdd7h7hnhduddsn.jpg
回复

使用道具 举报

1

主题

133

帖子

145

银币

初来乍到

Rank: 1

铜币
4
发表于 2022-7-6 11:30:08 | 显示全部楼层
这看起来是一件非常方便的事情——现在,当我正在做一项需要它的工作时,我该怎么再次找到它呢?
 
dcl代表什么?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-1 10:57 , Processed in 0.588413 second(s), 76 queries .

© 2020-2025 乐筑天下

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