如何使尺寸标注的70组码回复原始值？

天下第三

标注的文字如果移动过组码70的值会在原来的基础上加128，现在不仅要把文字恢复到刚生成时的位置，要求组码70也要变回去（这样文字会随尺寸界线移动），如何不用DIMEDIT命令，只用LISP实现？

ENTMOD测试不可行：
1、绘制线性标注；
2、(setq a(entget(entlast))) --------此时组码70为32
3、手工移动文字；--------此时组码70为160
4、(entmod a)
结果文字回复到原始位置，但组码70依然为160，此时如果拉伸尺寸，文字位置并不会跟着移动，也就是说entmod后看似一样其实不一样...........

用DIMEDIT “h”后组码70可以回复到原始值32，

问不用COMMAND只用LISP如何修改70组码？

天下第三

自己顶！

越来越觉得LISP太有局限性啦！

龙龙仔

;;在R14,R2010,R2008 ok ===>  R2005/R2006NG
(defun C:TT (/ ENT)
  (setq ENT (entget (car (entsel))))
  (entmod (subst (cons 70 32) (assoc 70 ENT) ENT))
  (princ)
)

Z10Rl6 cyeofctzoehe, qqslzeaxewjw, [link=http://uejkuylxtjjj.com/]uejkuylxtjjj[/link], http://qstlkvsmbuji.com/