还是有点问题，文字移动有bug，不能M移动CO 复制 S操作，否则会还原，点击文字查看文字夹点，发现还在标注中间，以前遇到过entmake复制标注也会出现这样的情况，复制完了，文字不见了，必须co或s才能出来。最后直接vla复制解决，也没深入研究，应该属于同种问题。组码7 . 32=》7 . 160？？
开始一直没看源码，现在在看了下，发现
42行有问题。
(entmod (subst (cons 70 dxf) (assoc 70 data) data))
改为
(entmod (setq data(subst (cons 70 dxf) (assoc 70 data) data)))
或者(setq data(subst (cons 70 dxf) (assoc 70 data) data))
edata 发表于 2015-8-27 12:38 static/image/common/back.gif
开始一直没看源码，现在在看了下，发现
42行有问题。
(entmod (subst (cons 70 dxf) (assoc 70 data) ...
多谢提醒，还真没注意到这个。
spp_wall 发表于 2015-8-27 11:19 static/image/common/back.gif
Error: 没有为参数定义函数: -3.3797e-011
程序只支持一次选择连续标注的尺寸。能把你的图纸上传吗？
waterchen 发表于 2015-8-27 12:56 static/image/common/back.gif
程序只支持一次选择连续标注的尺寸。能把你的图纸上传吗？
看看！！！！有的可以 有的不行！
不破不立，推倒重来。花了点时间换了个算法，每个标注文字与前1位及前2位置比较是否碰撞，再确定文字位置。同时，也更改多2个标注变量：1.尺寸界线间必定画尺寸线；2.取消手动放置文字位置。1楼的程序已更新，请重新下载。
收藏了
楼主再来一个标注的
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=84540&page=1&authorid=358682
来个更狠点，支持一次选择多组连续标注。2个标注是否连续，看是否有1条尺寸界线重叠，用了trans函数，关于这个函数，请详见Highflybird大神的巨作【越飞越高讲堂1】CAD 的坐标系统和trans函数的工作原理http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=667490.此次更新修改了上一版存在的一些小问题，1楼已更新，请重新下载。
不错！！！！！！！！