乐筑天下

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

[编程交流] 帮助lisp将文本移动到

[复制链接]
poffenberger

2

主题

13

帖子

11

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 16:47:42 | 显示全部楼层
是的，非常耗时
 
Sorta是这种“生产”型绘图的新手。我肯定会开始考虑其他可以简化的任务。
 
如果我正确地理解了你；我只需要从上面的代码中创建一个新的lsp文件？（您最初制作的，但现在已修改）
 
非常感谢，希望有一天我能提前付款。
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-5 16:48:23 | 显示全部楼层
 
我确实为您修改了原始代码。希望你能从评论中学习。
回复

使用道具 举报

poffenberger

2

主题

13

帖子

11

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 16:52:42 | 显示全部楼层
非常感谢，我希望明天能把它转发给你。
回复

使用道具 举报

poffenberger

2

主题

13

帖子

11

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 16:54:29 | 显示全部楼层
朗琼普，
 
您的代码运行良好，非常感谢。在更大的图纸上，一些文字变得混乱，可以说是放错了地方。有没有办法暂停用户输入，让我选择我想要的文本，然后让选择自动移动；然后根据需要重复。也许与下面类似？
 
（getpoint[ptlst][prompt]）等待用户输入点，并将点的坐标作为列表返回。如果提供了可选的点列表参数，则从点参数到十字光标会出现一条拖曳线。当用户选择点时程序暂停时，可选提示必须是字符串，并显示在命令行上。
 
谢谢
保罗
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-5 16:59:40 | 显示全部楼层
可能会在结果不符合要求的地方发布您的绘图。。也许还有其他规则需要寻找。
回复

使用道具 举报

poffenberger

2

主题

13

帖子

11

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 17:02:51 | 显示全部楼层
朗琼普，
 
随附的是（2）个dwg。在foo命令之前命名的dwg中的黄色文本是混淆的文本。执行的名为foo的dwg命令显示黄色文本的结束位置，并将其他红色文本进一步向下推到图形中。
 
谢谢
保罗
在FOO命令之前。图纸
执行了FOO命令。图纸
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-5 17:04:58 | 显示全部楼层
问题：要移动的文本是否总是一致的颜色？您的示例图形将它们全部显示为红色。
 
如果是这样，则将红色部分添加到过滤器（null（setq t2（ssget“_x”'（（0。“text”）（8。“OLI\u ANTEXT”）（62.1 k）а）
回复

使用道具 举报

poffenberger

2

主题

13

帖子

11

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 17:07:18 | 显示全部楼层
在这一点上，答案是否定的（它们都是相同的颜色）。为了清晰起见，我一直在改变颜色。我的第一个想法是把“混乱”的文字换成另一层，这意味着我要手动选择每一个。如果这是最好的解决方案，那就好了。我只是想知道我们是否还能做点别的。我非常感谢你的帮助。
 
再次感谢，
保罗
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-5 17:12:46 | 显示全部楼层
我想我可能有个主意。。稍后将发布内容。
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-5 17:13:45 | 显示全部楼层
试试这个版本。它只抓取指定最大距离（setq maxd（*y 8））内的文本。。根据我的测试，这种方法在您的绘图上效果很好。我还在代码中留下了两个双重检查项，用于圈出未处理的基本文本，并用一行显示文本所在的位置和移动到的位置。试试看！
  1. 2
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-14 21:09 , Processed in 0.605056 second(s), 70 queries .

© 2020-2025 乐筑天下

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