乐筑天下

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

[编程交流] 使用多个外部数据t

[复制链接]

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 22:12:33 | 显示全部楼层 |阅读模式
首先,我要说我是AutoLISP的完全初学者。我一直在尝试使用AfraLISP上的教程自学这个程序。因此,我成功地使用了Kenny Ramage用作使用DCL对话框和外部数据文件的教程的宽法兰绘图程序,并将其重新编写为绘制150 lb串行ANSI管道法兰平面图的程序。一切都很棒,学到了很多。但我想扩展这个程序来绘制其他类别的法兰——300磅、400磅等等,以及系列B,每个都有自己的数据文件。因此,我尝试添加一行径向按钮,用于使用if语句来选择类别,以使用选定的数据文件,但无法使其工作。不断弹出的错误将DCL文件中的ok\u cancel按钮代码标识为“重新定义对象”。我完全不知所措。由于我是新手,很可能我弄乱了其他一些代码——老实说,我在使用我不完全理解的代码——但我很难得到关于ok\u cancel命令的这个特定错误消息,因为在正在运行的更简单的程序中使用了同一行代码。对于任何有兴趣提供帮助的人,我将随附2个zip文件。lsp。dcl和。dat文件捆绑在运行程序所需的每个文件中。flgface。lsp是工作程序,即FLGFACE测试。lsp扩展版我无法工作。请注意,我在绘图命令行中包括了更改图层命令,以符合我公司的图层约定,因此您可能希望在测试之前删除这些代码行。还要注意,我只为测试程序制作了一个数据文件——A系列150 lb(它与flgface程序是同一个数据文件,只是为了与代码一致而重命名)——只是为了测试程序。
FLG表面测试。拉链
FLG面。拉链
回复

使用道具 举报

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 22:44:52 | 显示全部楼层
 
嗨,唐,
欢迎来到CAD论坛
 
某些dcl支架错位(现已修复)
  1. flgface : dialog {                                //dialog name                       
  2.       label = "Flange Face.";                        //dialog label
  3. :boxed_radio_column {                                //define radio column
  4.       label = "Type of flange" ;                //give it a label
  5.        : radio_button {                        //define radion button
  6.               key = "rb1" ;                                //give it a name
  7.               label = "Series A 150#" ;                //give it a label
  8.               value = "1" ;                                //switch it on
  9.        }                                        //end definition
  10.             : radio_button {                        //define radio button
  11.               key = "rb2" ;                                //give it a name
  12.               label = "Series A 300#" ;                //give it a label
  13.             }                                        //end definition
  14.             : radio_button {                        //define radio button
  15.               key = "rb3" ;                                //give it a name
  16.               label = "Series A 400#" ;                //give it a label
  17.               }                                        //end definition
  18.             : radio_button {                        //define radio button
  19.               key = "rb4" ;                                //give it a name
  20.               label = "Series A 600#" ;                //give it a label
  21.             }                                        //end definition
  22.             : radio_button {                        //define radio button
  23.               key = "rb5" ;                                //give it a name
  24.               label = "Series A 900#" ;                //give it a label
  25.               }                                        //end definition
  26.             : radio_button {                        //define radion button
  27.               key = "rb6" ;                                //give it a name
  28.               label = "Series B 150#" ;                //give it a label
  29.        }                                        //end definition
  30.             : radio_button {                        //define radion button
  31.               key = "rb7" ;                                //give it a name
  32.               label = "Series B 300#" ;                //give it a label
  33.        }                                        //end definition
  34.        }                                        //end radio column
  35.        : boxed_column {                        //define boxed column
  36.        label = "&Size";                        //give it a label
  37.             : popup_list {                                //define popup list
  38.        key = "selections";                        //give it a name
  39.        value = "5" ;                                //initial value
  40.        }                                        //end list
  41.                               }                        //end boxed column
  42.     ok_cancel ;                                //OK and Cancel Buttons
  43.     :text_part {                                //Text Label
  44.      label = "Designed by Kenny Ramage";
  45.      }
  46.     :text_part {                                //Text Label
  47.      label = "created by Don Mitchell";
  48.   }
  49. }

 
1.许多setq不平衡/缺少括号(…)
2.列表是受保护的符号
回复

使用道具 举报

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 23:32:42 | 显示全部楼层
谢谢显然,我将不得不花更多的时间在AutoLISP的基础上,因为我正试图使用我并不真正理解的语法代码。我有一个更简单的版本,只使用一个数据文件。我无法让径向按钮选择的多个数据文件工作,可能是因为我试图使用正确的数据文件选择来修改将加载到弹出框中的大小选择列表。有一次,我认为解决方案是在这一部分中使用一个单独的lisp程序,该程序将使用此选择来启动另一个程序——但却发现无法使用一个lisp程序启动另一个lisp程序。我只是很难掌握AutoLISP语法。我发现网上教程和我买的书在这方面严重缺乏。再次感谢你的帮助。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-11 06:16 , Processed in 0.409166 second(s), 58 queries .

© 2020-2025 乐筑天下

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