但正如我之前所说，我正在插入一个while循环。该程序旨在插入识别标签，并每次逐个递增。因此，每次插入时，while循环都会导致此重新生成。 好的，明白了-大卫
这就是为什么我提到，当我稍后在另一个线程上发布完整代码时，它会更加明显。我正在做最后的清理，并在这个时候添加了一个帮助对话框。在我完成任何事情之前，我很快就会把它贴出来征求意见和建议。
一如既往，谢谢 嗨，秃鹰，
我尽量不做太多的更改，只是为了传达一个总体想法，但这可能是如何在不迭代两次集的情况下执行这两个更改。
；//////////////////////////////////////////////////////////////////////////////////////////////////////////////////；；F06-编辑属性值。（defun CIT_EAV（/ss ent elst）（setq ATAG$（cond（=CIT:IDFS“0”）（strcat FLRN$“-”BTAG$“-”SEQN$）（（=CIT:IDFS“1”）（strcat FLRN$IDFR$“-”BTAG$“-”SEQN$）（if（setq ss（ssget“_L”（list（cons 0“INSERT”）（cons 66 1））））（progn（setq ent（ssname ss 0））（而不是（eq“SEQEND”（cdr（assoc））。0（setq elst（entget）（setq ent（entnext ent））)))))))（if（eq“ID-TAG”（cdr（assoc 2 elst）））（entupd（cdr（assoc-1（entmod（subst（cons 1 ATAG$））（assoc 1 elst）（if（and（>DEG#90.0）（ 好的，李，
在获取选择集时，我在开始时看到if，此外，还将not添加到SEQEND。
谢谢，我会试试的。这比两次通过选择集要好得多，我说这似乎有些过头了。 李，
我将代码添加到测试中，没有出现任何错误，但属性也没有改变。我认为在这一点上，最好在我进行任何更改之前发布完整的代码，这样每个人都可以看到应该发生什么。我有点明白你传达给我的是什么，我知道需要额外的调整，但我现在正试图完成这一点，所以我可以张贴它。即使它对您的编程方法不那么简洁，但如果它处于工作状态，也会更加清晰。在这一点上，我们都可以从那里，看看它应该如何得到修复。
谢谢 别担心
李，
我已经完成了代码的编辑，然后又回去看一下你的函数。我现在工作得很好。关于局部变量应该在哪里本地化，我有一些怪癖。另外，我呼吁增加属性值的地方是另一个问题。最后，我使用了一个名为INDX的变量来表示索引号，它将1添加到值中，但在代码中没有使用，所以我硬编码了1，将其添加到序列号中，现在一切都好了。这是一个小得多的函数，只调用一次选择集，这是我心中的目标，我对此非常满意。我将很快在另一个线程上发布整个代码，并计划将此线程引用到它。
谢谢你和所有在这里提供帮助的人。
秃鹰 很高兴我能提供一些帮助Buzzard
页:
1
[2]