乐筑天下

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

[编程交流] 在几个屏幕上重复lisp例程

[复制链接]

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 04:05:02 | 显示全部楼层 |阅读模式
我需要在用户定义的文件夹中包含的几个文件上运行LISP例程。现在,我在打开DXF后运行LISP,然后执行一些基本函数,然后将文件保存为DWG,最后anc关闭文件。以下是程序:
 
 
有什么想法吗?如果可能的话,我宁愿不使用脚本。
 
谢谢
上下快速移动
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 04:11:29 | 显示全部楼层
 
 
除非VBA能帮你摆脱困境,否则我认为脚本可能是你唯一的选择。
 
我认为可以创建一个LISP例程来为您编写脚本,如果您希望这样继续的话。
 
回复

使用道具 举报

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 04:11:45 | 显示全部楼层
那么,是你根本不想使用脚本,还是你不想亲自使用脚本?不管怎样,你为什么不想用一个呢?
回复

使用道具 举报

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 04:15:41 | 显示全部楼层
让我退一步。我不认为一个脚本可以处理多个文件。我尝试了rscript,但无法使其工作。在使用脚本之后,我开始感到沮丧,并想回到lisping(尽管事实上我也不是很擅长)。我试图编写一个程序,在从目录中选择的几个文件上运行相同的例程。如果要编写脚本,那么我想我完全错过了编写脚本的机会。
 
脚本是否需要在AutoCad之外运行?
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 04:18:58 | 显示全部楼层
就LISPing而言,它不能很容易地在图形之外运行,除非您打开所有要更改的文档,并使用Visual LISP循环浏览这些文档,并对每个文档执行操作。但这不允许任何“命令调用”。
 
而使用脚本,可以打开和关闭图形,并依次在每个图形上运行命令。
 
脚本可以在AutoCAD中运行-我相信在工具中的运行脚本下。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 04:22:43 | 显示全部楼层
请参阅此处了解更多信息
 
http://www.cadtutor.net/forum/showthread.php?t=34969
回复

使用道具 举报

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 04:25:41 | 显示全部楼层
很抱歉管理员发布了另一个网站,但这是你的答案
 
http://forums.augi.com/showthread.php?t=77021
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 04:28:25 | 显示全部楼层
写剧本并不难,尤其是为了满足你的需求。
 
只需启动autocad,然后“脚本”并运行保存的脚本
 
剧本应该是这样的
 
打开c:\mydwgs\dwg1(加载“mylisp”)关闭“Y”
打开c:\mydwgs\dwg2(加载“mylisp”)关闭“Y”
打开c:\mydwgs\dwg3(加载“mylisp”)关闭“Y”

 
注意,lisp不需要关闭由脚本完成的文件,也不需要使lisp成为defun。记住保存为的文件。可控硅
 
一旦你完成了脚本,就可以很容易地使用编辑和替换来创建一个新的脚本。
 
一些提示如果你需要很多dwg(我已经做了100多个),你可以手动创建dwg列表,非常简单,转到开始运行命令,更改到你需要的目录,即CD\MyDWG,然后dir*。DWG>MyDWG。txt文件
 
这会将该目录中的所有图形转储到MyDWG中。txt,使用Word,您可以删除图形名称(在窗口中按住Alt键),然后使用replace创建脚本。您可以用新的内容替换^p行的末尾,关闭“Y”^p或将其放置在开始处,用^popenC替换^p:\ mydwgs\一旦您知道如何操作,它会非常快。
 
注^ p是回车,因为我键入了克拉小写p
回复

使用道具 举报

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 04:30:34 | 显示全部楼层
 
我不得不稍微编辑一下你的脚本。。。干杯
 
此外,我建议使用lisp获取该目录中的图形列表。然后您可以使用lisp编写和运行脚本。。。
回复

使用道具 举报

2

主题

60

帖子

65

银币

初来乍到

Rank: 1

铜币
7
发表于 2022-7-6 04:34:57 | 显示全部楼层
你好
 
+
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 18:56 , Processed in 0.961700 second(s), 72 queries .

© 2020-2025 乐筑天下

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