如何取得标注尺寸线的中点？
如何取得标注
"DIMENSION"尺寸线的中点点位？
(defun c:tt (/ name pt ss t-get-dim-centre)
(defun T-get-dim-centre (name / ang dxf pt1 pt13 pt14 pt2)
(setq dxf (entget name))
(setq pt13 (cdr (assoc 13 dxf)))
(setq pt14 (cdr (assoc 14 dxf)))
(setq ang (angle pt13 pt14));获取弧度
(setq pt1 (polar (cdr (assoc 10 dxf)) ang (/(distance pt13 pt14) 2)))
(setq pt2 (polar (cdr (assoc 10 dxf)) ang (- (/ (distance pt13 pt14) 2))))
(if (<
(+ (distance pt1 pt13) (distance pt1 pt14))
(+ (distance pt2 pt13) (distance pt2 pt14))
)
pt1
pt2
)
)
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn
(while (setq name (ssname ss 0))
(setq pt (T-get-dim-centre name))
(command "CIRCLE" pt 100)
(ssdel name ss)
)
)
)
)
线性标注还要再判断下
对齐标注没问题 x_s_s_1 发表于 2020-3-18 19:12
没那么麻烦
为什么这样不行？{:1_1:}
(defun c:test2 (/ get_dim_mid ss n)
(defun get_dim_mid (en / ent pt10 pt13 pt14 v pt13t)
(setq ent(entget en)
pt10(cdr (assoc 10 ent))
pt13(cdr (assoc 13 ent))
pt14(cdr (assoc 14 ent))
v(mapcar '- pt10 pt14)
pt10v(trans pt10 0 v)
pt13v(trans pt13 0 v)
)
(trans
(mapcar '(lambda (x y) (* 0.5 (+ x y)))
pt10v
(list (car pt13v) (cadr pt13v) (caddr pt10v))
)
v 0
)
)
(setq ss (ssget))
(repeat (setq n (sslength ss))
(entmake
(list (cons 0 "circle")
(cons 10 (get_dim_mid (ssname ss (setq n (1- n)))))
(cons 40 100)
)
)
)
) 获取getboundingbox之后在计算中点能行吗 jun353835273 发表于 2020-3-18 08:02
获取getboundingbox之后在计算中点能行吗
这个方法不行，取不到这个点，这个点很重要，但是，有些插件作的是复合实体，很难有个代码，普遍奏效。
dxf码：13(A)和14(B)记录两标点，10(D)记录标拉伸出来的其中一点。求得中点M,D对AB的垂点N，M向D点方向偏移ND即为所求点。 cghdy 发表于 2020-3-18 09:21
dxf码：13(A)和14(B)记录两标点，10(D)记录标拉伸出来的其中一点。求得中点M,D对AB的垂点N，M向D点方向偏移 ...
我这几个点反复验证，就是求不对怎么？ 尘缘一生 发表于 2020-3-18 09:30
我这几个点反复验证，就是求不对怎么？
能否发码我看看 cghdy 发表于 2020-3-18 10:20
能否发码我看看
我没写成篇，我就验证里面 的 10，11,13,14，两两中间了，搞不清点位，所以没试出来。 尘缘一生 发表于 2020-3-18 10:24
我没写成篇，我就验证里面 的 10，11,13,14，两两中间了，搞不清点位，所以没试出来。
11是文字的位置，不要混淆进来 看看这图你就清楚了
start4444 发表于 2020-3-18 10:41
看看这图你就清楚了
搞出来了，有点位就知道了