[求助]：尺寸文字回复原始位置

LADESIGNER · 发表于 2009-10-23 23:51:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

假设一尺寸标注的文字移动过，现在要把文字恢复到刚生成时的位置，要求组码70也要变回去，这样如果拉伸尺寸界线，文字的位置会随之移动。如何不用DIMEDIT命令，只用LISP实现？

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

tianquan3 · 发表于 2009-12-18 09:54:47

没看明白

qiaqiadeng · 发表于 2010-1-11 13:54:25

是的，我也碰到这个问题，只要修改11属性，在拉拽标注点，文字不跟着动，请高手支招

carrot1983 · 发表于 2010-1-14 15:53:17

为何不用 DIMEDIT 命令
多么好用的命令~~~

xyp1964 · 发表于 2010-1-14 21:27:20

dim1 → hom

XIAOYINGZI_CHEN · 发表于 2010-1-31 16:23:46

;; 定义标注文字移动dimtedit

(defun c:dm ()
(setvar "cmdecho" 0)(gc)
(command "dim1" "tedit")
(gc)(setvar "cmdecho" 1)
(princ)
)

;;; 定义标注文字归位dimhome

(defun c:dh ()
(setvar "cmdecho" 0)(gc)
(command "dim1" "home")
(gc)(setvar "cmdecho" 1)
(princ)
)

;;; 定义标注样式更新dimupdate

(defun c:du ()
(setvar "cmdecho" 0)(gc)
(command "dim1" "update")
(gc)(setvar "cmdecho" 1)
(princ)
)

LADESIGNER · 发表于 2010-2-10 18:46:51

最初由 carrot1983 发布
[B]为何不用 DIMEDIT 命令
多么好用的命令~~~ [/B]

用COMMAND都会存在效率问题。所以不用DIMEDIT,用DIM1->HOME还不如直接用DIMEDIT呢。

huangyong306 · 发表于 2010-3-11 20:01:34

转卡赚钱转其去哪啊胡青牛Ian

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：尺寸文字回复原始位置

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子