乐筑天下

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

[编程交流] 文件另存为Lisp

[复制链接]

48

主题

657

帖子

33

银币

限制会员

铜币
-1
发表于 2022-7-5 14:45:16 | 显示全部楼层 |阅读模式
早上好
我在询问是否有人这样做。
 
我想另存为文件,为文件名添加后缀或前缀
所以画。dwg变为Drawing_Old。例如Dwg
 
然而,图纸很旧。Dwg可能存在,有没有人有一个例程可以将(1)(或下一个最大数字)添加到新文件名中
所以画。dwg可能变为Prefix\u Drawing\u Old(5)。图纸
 
 
 
(我在想一些类似的事情(是的,我知道它需要正确的语法和东西,只是我的快速想法):
 
  1. Setq drawing (findfile Prefix_Drawing_Old.dwg)
  2. If (= nil drawing saveas Prefix_Drawing_Old.dwg)
  3. If (/= nil drawing
  4. Progn
  5. setq x 1
  6. (while (/= drawing nil)
  7. findfile Prefix_Drawing_Old(x).dwg
  8. setq x (+ 1 x)
  9. );end while
  10. saveas Prefix_Drawing_Old(x)
  11. ))f
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 15:07:54 | 显示全部楼层
如果我能记住或找到它,你可能会更好地使用它。你可以得到一个图纸名称列表*。dwg so排序列表并查看最后一个条目,它不是1还是最后一个数字。它可能使用了doslib函数。将尝试查找。也许可以查一下李。通用域名格式。
回复

使用道具 举报

48

主题

657

帖子

33

银币

限制会员

铜币
-1
发表于 2022-7-5 15:17:56 | 显示全部楼层
谢谢,艾尔,我不会想到的,我想那会更整洁
 
 
 
李·麦克。通用域名格式。。男生错误,没有先检查那里,哎呀。猜猜谷歌下一步会带我去哪里?
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 15:30:36 | 显示全部楼层
 
你可以参考我在这里发布的LM:uniquefilename函数。
回复

使用道具 举报

48

主题

657

帖子

33

银币

限制会员

铜币
-1
发表于 2022-7-5 15:44:34 | 显示全部楼层
谢谢李,一如既往的天才,非常受欢迎
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 15:45:36 | 显示全部楼层
不客气!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-14 23:30 , Processed in 1.816327 second(s), 64 queries .

© 2020-2025 乐筑天下

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