高效ENTMOD的方法(不需要SUBST但对某些图元无效)

lionguns

这其实就是entmake,然后生成的图元名与原来的一样，个人理解。( ω )羞羞哒

edata

我觉得是个兼容性问题，比如我们常用颜色62组码，在颜色by layer的情况下是没有62组码的，有颜色，则有62组码，cad系统设计的时候用entmod更新图源数据，不可能要求所有的组码都写入组码表中，那么必须要那几个组码存在才能实现，起码73兄给了我们一个答案，-1组码不可缺，也就是说这个组码是图元的身份证，不然CAD怎么知道更改的是哪个图元，因为组码少了，所以CAD在检查entmod的时候会出现漏项，那么就会出现一些问题，有的图元可能能够更新成功，73兄已经论证了，如果我们根据这一情况做另外一个测试呢，
以下测试可能会造成CAD崩溃，如有想测试的注意保存图纸，最好再另外开一个CAD中测试，有时候我用CAD2011工作，再开个编写，调试lisp，有的时候难免会出现错误或者不可预料的错误导致CAD崩溃。

如果我们用73兄的方式，更换图元的关键组码，会出现什么样的情况呢个。
例如，转角标注和对齐标注，70的组码分别是32和33，如果我将转角的32换成33会成功吗？

经过测试，发现能更改转角标注为对齐标注，也就是说可以实现，但是也会出现访问冲突，CAD系统检测到该图元异常数据，这个图元从此不正常了，无法删除，而且弄不好CAD直接崩溃。
我的测试，挂掉N次CAD，得到一个结论，entmod不完整数据，可能引起CAD检查失控，能更新图元，但是不够安全，如果我再刚才的entmod数据中，添加(100 . "AcDbAlignDimension")那么entmod直接nil返回，失败了。因此只用-1组码的时候，没什么问题，CAD无法检查，当出现比较关键的数据的时候，那么就可以执行检查了，这时候，如果发现是异常组码数据，则无法entmod。在不必要的情况下，还是不建议这种方式entmod数据，否则可能会造成系统崩溃，访问冲突等一系列问题。
对于entmod，xyp有个函数很好用，就是可以批量更新组码表，改造一下即可实现73兄的测试数据方式。
(myentmod ent lst)
这样不是一样很简洁了。。。

llsheng_73

edata 发表于 2015-9-3 22:04
我觉得是个兼容性问题，比如我们常用颜色62组码，在颜色by layer的情况下是没有62组码的，有颜色，则有62组 ...

感谢E大的提醒，我极少情况下真是这么干的，今后坚决不干了！！！
xyp那个函数经常看到，总觉得把组码和对应的值分成两个表，使用起来不是特别方便，万一不小心顺序对不上很恼火

1. (defun myentmod(en dxf)
   
2.   (entmod(append(vl-remove-if'(lambda(x)(assoc(car x)dxf))(entget en))dxf)))

(defun myentmod(en dxf)<br />   (entmod(append(vl-remove-if'(lambda(x)(assoc(car x)dxf))(entget en))dxf)))

(myentmod(car(entsel)) '((62 . 5)(8 . "0")))
(myentmod(car(entsel)) '((62 . 256)(8 . "0")))
虽然我一直在用这个，但由于平时涉及到的图元类型较少，不知道会不会因为一些图元对组码顺序有要求而失败

edata

llsheng_73 发表于 2015-9-3 22:30
(myentmod(car(entsel)) '((62 . 5)(8 . "0")))
虽然一直在用，但由于平时涉及到的图元类型较少，不知 ...

常用组码应该没什么问题。基本上都是更改常用组码，特殊的也肯定不能这样整。

edata

llsheng_73 发表于 2015-9-3 22:30
感谢E大的提醒，我极少情况下真是这么干的，今后坚决不干了！！！
xyp那个函数经常看到，总觉得把组码 ...

我也觉得两个表不是很好，一个表比较好一点，直接是一个表一目了然，
比如我们更新lwpl线，那么直接用这个函数加入10组码表，直接可以更新了。几乎等于vla-put-Coordinates
函数,其实我们还可以添加凸度值，宽度值，一步到位。。这样不用vla构建什么安全数组，后面才能赋予凸度等等操作，方便多了。

magicheno

感谢各位大佬分享~