tamariz 发表于 2022-7-5 18:13:20

谢谢
我有个错误
错误：参数太多：（IF（AND（SETQ SS（SSGET（QUOTE（（0。“LWPOLYLINE”аа））（NOT（INITGET 1“Attribute Text”））（SETQ ANS（GETKWORD“\n输入选项：”））（REPEAT（SETQ I（SSLENGTH SS））（SETQ OBJ（vlax ename->vla object（SSNAME SS（SETQ I（1-I）））STR（RTOS（vla get Length OBJ）2）ST_PT（TRANS（vlax curve getStartPoint OBJ）0 1）EN_PT（TRANS（vlax curve getStartPoint OBJ）getEndPoint对象）0 1））（命令“_.zoom”“\u C”ST\u PT”“）（SETQ SS1（SSGET“\u C”（POLAR ST\u PT（*0.25 PI）0.1）（POLAR ST\u PT（*1.25 PI）0.1）（引号（（0。“INSERT”）（2。“etiquetteVDI”））（66.1））（命令“_.zoom”“\u C”EN\u PT”“）（SETQ SS2（SSGET“\u PT”（POLAR EN\u PT（*0.25 PI）0.1）（POLAR EN\u PT（*1.25 PI）0.1）（引用（（0。“插入”）（2。“etiquetteVDI”））（66.1）））
 
我会试着看看

hmsilva 发表于 2022-7-5 18:16:02

 
对不起，我的错。。。
消息#10中的代码已经过审查。
应在WCS或UCS中工作。
 
亨里克

tamariz 发表于 2022-7-5 18:19:54

干得好！

hmsilva 发表于 2022-7-5 18:22:01

 
很高兴我能帮忙
 
亨里克

tamariz 发表于 2022-7-5 18:25:01

我完成了Lisp程序，但我有一个问题（错误）
我想用此过滤器中先前块选择的实体名称替换块名称（如果我的块名称与“etiquetteVDI”不同）
但这是可能的？
值“dxf\u cod”的定义
此处集成lisp代码已修复
6
会成功的。
 
亨里克

hmsilva 发表于 2022-7-5 18:29:52

 
 
我尝试了这个，但我有一个错误：坏函数：（0。“INSERT”）
我认为代码2代表块名，但是（setq dxf\u cod（entget（ssname js 0）））返回一个实体名？
知道吗？
我的方块不是动态的。
 
祝大家新年快乐，身体健康

tamariz 发表于 2022-7-5 18:31:04

尝试
编辑：ename是唯一的，使用不需要选择的实体名称，只需更改atribute。。。（我不明白你想做什么）
编辑1：使用
8
您将得到一个包含所有实体定义数据的列表，其中包含
9
您将获得实体名称。。。
 
HTH公司
亨里克

hmsilva 发表于 2022-7-5 18:35:08

很好！
 
感谢您提供的信息和耐心
我是初学者，这是我第一次Lisp程序
我在上一篇文章中修复了代码http://www.cadtutor.net/forum/showthread.php?90252-将多段线长度提取到属性-（field）&p=617951&viewfull=1#post617951

tamariz 发表于 2022-7-5 18:36:45

不客气，塔马里兹！
很高兴你找到了解决方案！
我们都必须编写我们的第一个代码。。。
 
亨里克

hmsilva 发表于 2022-7-5 18:41:55

页: 1 [2]
查看完整版本: 将多段线长度提取到