如何取得标注尺寸线的中点？

尘缘一生

如何取得标注
"DIMENSION"尺寸线的中点点位？

taoyi0727

(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)
                        )
                )
        )
)

线性标注还要再判断下
对齐标注没问题

wide

x_s_s_1 发表于 2020-3-18 19:12
没那么麻烦

为什么这样不行？
(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)
      )
    )
  )
)

jun353835273

获取getboundingbox之后在计算中点能行吗

尘缘一生

jun353835273 发表于 2020-3-18 08:02
获取getboundingbox之后在计算中点能行吗

这个方法不行，取不到这个点，这个点很重要，但是，有些插件作的是复合实体，很难有个代码，普遍奏效。

cghdy

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点方向偏移 ...

我这几个点反复验证，就是求不对怎么？

cghdy

尘缘一生 发表于 2020-3-18 09:30
我这几个点反复验证，就是求不对怎么？

能否发码我看看

尘缘一生

cghdy 发表于 2020-3-18 10:20
能否发码我看看

我没写成篇，我就验证里面 的 10，11,13,14，两两中间了，搞不清点位，所以没试出来。

cghdy

尘缘一生 发表于 2020-3-18 10:24
我没写成篇，我就验证里面 的 10，11,13,14，两两中间了，搞不清点位，所以没试出来。

11是文字的位置，不要混淆进来

start4444

看看这图你就清楚了

尘缘一生

start4444 发表于 2020-3-18 10:41
看看这图你就清楚了

搞出来了，有点位就知道了