乐筑天下

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

[编程交流] 像香草逗号一样重复Lisp

[复制链接]

5

主题

16

帖子

11

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 13:18:20 | 显示全部楼层 |阅读模式
嗨,神奇的Lisp程序的人
 
我有一个(可能是非常基本的)Lisp程序的问题。 
我正在生成一个基本命令来扩充现有的AutoCAD命令。我希望这个命令像普通命令一样,即在或上重复。
这可行吗?如果答案是“否”或“否”,我很好,但您可以使用“while”循环或“repeat”命令。 
 
F、 Y.I-这是我谦逊的Lisp程序:
 
(定义c:ROT1()
(setq selection1(ssget))
(命令“rotate”selection1“pause”r“@”pause pause)
)
 
回复

使用道具 举报

0

主题

946

帖子

978

银币

限制会员

铜币
-3
发表于 2022-7-5 13:22:48 | 显示全部楼层
要运行此命令,您必须在命令行中键入“ROT1”。如果在命令完成后立即按enter键或空格键,它将重复执行。您可以通过按向上箭头访问命令历史记录,该箭头将按相反顺序逐步浏览命令历史记录,或者只需再次键入“ROT1”
回复

使用道具 举报

5

主题

16

帖子

11

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 13:26:46 | 显示全部楼层
嗨,德拉诺
 
如果能这么简单就好了。我编写了这个命令,可以很好地运行。 
我的问题更具体一点。如果按enter键,则不会重复该命令。它运行select命令-这必须是隐藏在默认旋转命令的“魔法”中的最后一个命令?(如果它确实在您的机器上再次运行,是否可能有不同的系统变量设置,使效果不同?)
回复

使用道具 举报

24

主题

1265

帖子

1028

银币

后起之秀

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

铜币
362
发表于 2022-7-5 13:28:51 | 显示全部楼层
我刚刚加载了ROT1 lisp函数,在AutoCAD和BricsCAD中使用空格键可以很好地重复。
回复

使用道具 举报

0

主题

946

帖子

978

银币

限制会员

铜币
-3
发表于 2022-7-5 13:32:22 | 显示全部楼层
 
在系统上运行该命令,然后按向上箭头在命令列表中向后循环。“ROT1”在那里吗?
回复

使用道具 举报

5

主题

16

帖子

11

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 13:37:11 | 显示全部楼层
是的,“ROT1”在前面的命令列表中。 
 
这个命令有效,但我无法用“space”或“enter”重复。
 
也许这是一个系统变量?你们俩都没问题。 
 
这是我的屏幕截图,显示了命令行,直到命令再次尝试运行失败。
 
这有什么启示吗?  
141824pdbzx6dq5xj50s05.jpg
回复

使用道具 举报

20

主题

81

帖子

61

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
100
发表于 2022-7-5 13:37:34 | 显示全部楼层
它在这里工作得很好。
回复

使用道具 举报

0

主题

946

帖子

978

银币

限制会员

铜币
-3
发表于 2022-7-5 13:40:59 | 显示全部楼层
系统变量“INPUTHISTORYMODE”、“DYNMODE”和“DYNPROMPT”给了你什么?
回复

使用道具 举报

5

主题

16

帖子

11

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 13:44:46 | 显示全部楼层
输入历史模式:
动态模式:
动态比较:
?
回复

使用道具 举报

0

主题

946

帖子

978

银币

限制会员

铜币
-3
发表于 2022-7-5 13:47:26 | 显示全部楼层
 
对不起,我错过了这一点。如果要求您再次选择,则Lisp程序重复。或者,您的意思是要自动再次选择最后一个对象?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 00:52 , Processed in 2.989656 second(s), 74 queries .

© 2020-2025 乐筑天下

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