BlackBox 发表于 2022-7-6 06:52:12

李,这太疯狂了

Lee Mac 发表于 2022-7-6 06:56:10

 
干杯BB

Luís Augusto 发表于 2022-7-6 06:59:50

 
你会怎么做?
正如我承诺的那样,我在三台机器上测试了这个程序。两个操作系统分别具有32位和64位。
64位操作系统有一个限制。32位操作系统运行良好。我真的很喜欢这样的事实,你可以选择其他领域,并保留旧的临时行。
另一个观察是如何使用缩放和平移命令消除这些临时线,这些线最好保留到按下任何键为止。
你能做出这些改进吗?
 
感谢您与我们分享您的工作。
热烈拥抱。
 
路易斯·奥古斯托。
 
谷歌翻译

Tharwat 发表于 2022-7-6 07:01:33

 
感谢您遵守承诺,请尝试此修改后的代码并告诉我。
 
(定义c:测试(/*错误*ss i sn fd cd l s sad j e p n lst)---===={Tharwat 07.07.2013}===-->;;;;;;用于选择字段的相关文本的函数;;;(defun*error*(x)(redraw)(princ“\n*Cancel*”)(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)“%

Luís Augusto 发表于 2022-7-6 07:05:32

 
 
你好,李
不想看起来被虐待,但我很好奇。
我使用这个例程来检查我在为电鞭添加电缆布局长度时的方式。
我们的同事fixo正在帮助我完成一个例行程序,以便于完成表From/to。程序将在表中生成计算字段。
当访问表中的字段时,从原点开始的线有点奇怪,所以我有以下想法。
 
可以更改程序,使字段的选择、源不是文本而是布局中心名为“NewOrigin”的块?
 
路易斯·奥古斯托。
 
格洛格翻译

Lee Mac 发表于 2022-7-6 07:09:22

 
嗨,路易斯,
 
我没有用位于表单元格中的字段测试该程序,但当我有空闲时间处理该程序时,我会设法解决这个问题。
 

Luís Augusto 发表于 2022-7-6 07:10:57

 
嗨,李,
我想我表达得不好。
我相信在我的例子中,一个块作为源,对于我所做的工作类型来说是一个很好的解决方案。在某些情况下,我的电缆列表可能离电气线束的布局太远。
我计划在电缆总数之后部署您的代码。此时,IDObject必须在程序内存中。因此,现有函数将直线的原点指向块NewOrigin。这样我就可以马上把会议安排好。
对不起,误会了。
 
你好,路易斯·奥古斯托。
 
格洛格翻译

Luís Augusto 发表于 2022-7-6 07:14:13

 
你好,塔尔瓦特。
抱歉耽搁了,我以前没有机会测试。
我在我的机器上安装了VirtualBox。现在我可以测试32位操作系统的代码了。。。。。
就是这样,你的代码运行得很好,然而,在上次审查中,他错过了一个有趣的功能,那就是选择多个objectFIELDS。没问题。
祝贺我的朋友,我希望有一天也能编写自己的代码。
 
祝你好运,路易斯·奥古斯托。

Tharwat 发表于 2022-7-6 07:19:07

 
感谢您的测试和遵守您的承诺,非常感谢。
 
别担心,如果你坚持每天学习和工作编程,你会编写自己的代码,我祝你好运。
 
塔瓦特

pBe 发表于 2022-7-6 07:20:20

 
好主意,李。我很喜欢它。
页: 1 [2]
查看完整版本: 选择关联对象