乐筑天下

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

[编程交流] 使用lisp r的bhatch对话框

[复制链接]

13

主题

54

帖子

63

银币

初来乍到

Rank: 1

铜币
44
发表于 2022-7-6 11:54:41 | 显示全部楼层 |阅读模式
你好
我正在编写一个lisp例程,需要调用bhatch命令。实际上,该例程确实执行bhatch,但只能通过命令行执行,就像用户输入了-bhatch一样。
我不明白为什么我没有得到这个对话框。
 
同样,当我的lisp例程调用多行文字时,不会显示编辑框。在这里,一切似乎都是在命令行中完成的。
 
如有任何意见,我将不胜感激。我可能会在代码中留下一些非常基本的内容。虽然我用许多语言编程,从20世纪60年代的FORTRAN到基于对象的VBA,但这是我第一次在AutoLisp上全力以赴。
 
当做
杰瑞
回复

使用道具 举报

0

主题

269

帖子

279

银币

限制会员

铜币
-4
发表于 2022-7-6 12:11:28 | 显示全部楼层
通常在lisps中,希望没有对话框,以便例程可以继续并向命令提供信息。默认情况下,从lisp运行的某些命令不会弹出对话框。
你提到“bhatch”;连字符确保不会有DB。试试“bhatch”或“hatch”。
要启动DB,如果处于“命令行”模式,则使用颚化符,如中所示:
(命令“hatch”“`”)
回复

使用道具 举报

13

主题

54

帖子

63

银币

初来乍到

Rank: 1

铜币
44
发表于 2022-7-6 12:12:33 | 显示全部楼层
卡尔布,
我的例程接受AutoCAD命令,设置特定图层(一个用于标注,一个用于文本等),然后执行该命令。这一切之所以发生,是因为在我们的工程办公室,工程师有LT,设计师/起草人有完整的AutoCAD。在他们的设置中,有一个VBA“BeginCommand”可以很好地处理这一切。由于LT设置无法使用VBA,因此在执行命令之前切换了层。但是,当命令完成运行后,您将留在切换层上,也就是说,您不再位于原始层上。这听起来微不足道,但却是一件令人头痛的事。我的程序可以运行,但对于多行文字,我无法获得编辑框,对于bhatch,我无法获得对话框。
 
作为dimlinear的示例,工具栏按钮将具有^C^C(if(null C:LT\u开关)(加载“LT\u开关”);(c:LT_开关“dimlinear”);。这会将命令传递给我的LT\U开关例程。
 
如果你或其他人感兴趣的话,我已经附上了例行程序。
 
谢谢
杰瑞
回复

使用道具 举报

13

主题

54

帖子

63

银币

初来乍到

Rank: 1

铜币
44
发表于 2022-7-6 12:26:45 | 显示全部楼层
这是附件
LT\U开关。lsp
回复

使用道具 举报

0

主题

269

帖子

279

银币

限制会员

铜币
-4
发表于 2022-7-6 12:31:23 | 显示全部楼层
我认为您需要测试一些不发出对话框的命令名,并发送一个“波浪号”。例如:
 
我不确定是否需要第一个“while”,但显然你已经让它工作了。。。。
祝你好运
回复

使用道具 举报

1

主题

316

帖子

311

银币

初来乍到

Rank: 1

铜币
29
发表于 2022-7-6 12:43:44 | 显示全部楼层
也可以使用initdia打开对话框:
 
例如:
(初始直径)
(命令“_plot”)
 

使用vla sendcommand强制db
回复

使用道具 举报

13

主题

54

帖子

63

银币

初来乍到

Rank: 1

铜币
44
发表于 2022-7-6 12:49:52 | 显示全部楼层
谢谢你们,卡尔和威兹曼,我感谢你们的帮助。我只是在学习lisp,我正在经历一个陡峭的学习曲线,这可能解释了为什么我有一个不必要的嵌套“while”。我会清理代码,给你的两种方法一个机会。
 
当做
杰瑞
回复

使用道具 举报

1

主题

316

帖子

311

银币

初来乍到

Rank: 1

铜币
29
发表于 2022-7-6 12:57:25 | 显示全部楼层
 
干杯,杰瑞,享受Lisp程序的感觉吧…-)
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 10:12 , Processed in 0.913924 second(s), 68 queries .

© 2020-2025 乐筑天下

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