乐筑天下

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

[编程交流] 选择关联对象

[复制链接]

14

主题

76

帖子

63

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 06:20:01 | 显示全部楼层 |阅读模式
大家好,有没有命令可以选择与对象字段相关的对象?
我正在使用李·麦克(LeeMac)表演的一个出色的例程来计算文本的总和。在加法结束时,它生成一个字段。
有时,我需要检查一下我所走过的路。如果我们可以使用字段中包含的对象的ID进行快速选择,那将非常有趣。
我应该指出,我仍然没有使用Lisp语言的经验。
提前感谢。
路易斯·奥古斯托。
 
当前使用autocad 2010
谷歌翻译
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 06:24:30 | 显示全部楼层
您需要首先解析字段代码字符串,然后根据提取的ObjectId迭代相应的块对象。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:27:03 | 显示全部楼层
查看此旧程序:
 
http://www.theswamp.org/index.php?topic=39951
 
[可能需要会员资格]
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 06:31:28 | 显示全部楼层
我的尝试。。。
 
[code](定义c:测试(/ss i sn fd cd l s sad j e p n)--=={Tharwat 07.07.2013}==-->;;;;;;用于选择字段的相关文本的函数;;;(if(progn(princ“\n Select field Text:”)(setq ss(ssget“+:S”((0。“MTEXT”)))(repeat(setq i(sslength ss))(setq sn(ssname ss(setq i(1-i)))))(if(setq fd(vla fieldcode(vlax ename->vla object sn)))(而(setq cd(vl string search”%
回复

使用道具 举报

14

主题

76

帖子

63

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 06:34:17 | 显示全部楼层
 
亲爱的BlackBox,感谢您的回复。不幸的是,我仍然无法创建自己的代码。希望很快得到。
 
 
李,谢谢你再次帮助我。不幸的是,我仍然无法访问www.theswamp。组织。我给马克发了一封电子邮件以获取访问权限。
 
 
Tharwat,谢谢你的回复。
不幸的是,该程序没有在我的机器上工作在这里,也没有返回错误。
我附上设计来进行测试。
我感谢大家的关注。
 
总和。图纸
 
路易斯·奥古斯托。
谷歌翻译
回复

使用道具 举报

14

主题

76

帖子

63

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 06:38:08 | 显示全部楼层
 
李干得漂亮。
祝贺即使在梦中,也无法想象有什么事情能如此完美地适合我的处境。
这个例程太棒了,我运行命令zoom和pan,临时线保持不变。
当然,这个项目将大大改善我的工作。
我可以为其他同样需要查看解决方案的人发布代码?
 
谢谢大家。
 
顺致敬意,
路易斯·奥古斯托。
 
谷歌翻译
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 06:39:37 | 显示全部楼层
 
这很奇怪,我在Cad 2010和2013上试用了该代码,效果很好。
 
该例程要求您选择字段字符串,然后它将绘制一条向量线,指向该字段的相关文本实体。
 
您是单独使用我的代码还是将它们添加到其他代码?
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:44:20 | 显示全部楼层
 
很高兴听到你这么说,谢谢你对吕的赞美!
我很高兴这个项目对你的工作有帮助。
 
 
我现在把这个程序附在这篇帖子上,为那些无法进入沼泽的人提供帮助。
 
FieldObjects。lsp
回复

使用道具 举报

14

主题

76

帖子

63

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-6 06:45:39 | 显示全部楼层
 
塔瓦,我不敢改变密码。我试着理解这么多括号。
明天我将在其他机器上测试你的日常操作,并给你反馈。
我相信这里的论坛用户也可以这样做,因此我们有两种解决方案。
感谢您的处理。
 
祝你好运,路易斯·奥古斯托。
 
谷歌翻译
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 06:49:05 | 显示全部楼层
 
我会等那个测试
 
非常感谢。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

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

© 2020-2025 乐筑天下

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