调整标注文字的位置

王鹏_pBZlo · 发表于 2019-5-1 20:26:59

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

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

×

本帖最后由王鹏_pBZlo 于 2019-5-1 22:10 编辑

适用水平,垂直,对齐标注
(defun c:tt( / att attpar p10 p11 p14 dxf70 pt dx dy)
(defun cz(p1 p2 p3)(inters p1 p2 p3 (polar p3 (+ (angle p1 p2) (/ pi 2)) 5) nil))
(defun npoint(pbase sx sy)
(setq ex (+ (car pbase) sx))
(setq ey (+ (cadr pbase) sy))
(list ex ey 0))
(setq att (car (entsel "\n选择标注:")))
(setq pt (trans (getpoint "\n新的文字位置:") 1 0))
(setq attpar (entget att))
(setq p10 (cdr (assoc 10 attpar)))
(setq p11 (cdr (assoc 11 attpar)))
(setq p14 (cdr (assoc 14 attpar)))
(setq p14 (polar p10 (+ (angle p10 p14) (/ pi 2)) 5))
(setq dxf70 (cdr (assoc 70 attpar)))
(if (< dxf70 128)
      (progn (entmod (subst (cons 70 (+ dxf70 128)) (assoc 70 attpar) attpar))
(setq attpar (entget att))
(setq pp10 (cdr (assoc 10 attpar)))
(setq pp11 (cdr (assoc 11 attpar)))
(setq dx (- (car p10) (car pp10)) dy (- (cadr p10) (cadr pp10)))
      )
      (setq dx 0 dy 0 pp11 p11)
)
(setq p10 (cz p10 p14 pt) pp10 (cz p10 p14 p11))
(setq dx (+ dx (- (car p10) (car pp10))) dy (+ dy (- (cadr p10) (cadr pp10))))
(entmod (subst (cons 11 (npoint pp11 dx dy)) (assoc 11 attpar) attpar))
)

sdlyjc · 发表于 2019-5-1 21:33:45

这功能好用，谢谢分享！！

zhystar · 发表于 2019-5-2 00:03:27

谢谢楼主分享

Michael527 · 发表于 2019-5-2 05:03:09

autocad 2019 应该也有这种功能

王鹏_pBZlo · 发表于 2019-5-2 05:53:37

Michael527 发表于 2019-5-2 05:03
autocad 2019 应该也有这种功能

我没有用过2019，还在用2008

来自: 微社区

kmliro_2017 · 发表于 2019-5-2 06:35:25

谢谢分享！！！！！！！

asd3350331 · 发表于 2019-5-2 08:28:59

sicky111 · 发表于 2019-5-2 10:34:39

楼主弄个拉线尺寸文字位置调整的。

pxr201419 · 发表于 2019-5-4 08:41:19

学习学习

lxs.cmy · 发表于 2019-5-6 07:02:37

学习学习......

小小的人 · 发表于 2019-5-6 15:02:01

好东西好东西

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

[标注] 调整标注文字的位置

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