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

尘缘一生

如何取得标注
"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)
                        )
                )
        )
)

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

yshf

; ;; 过13点平行于10－14的平行线与过10点垂直于10－14的线交点为10a
; ;; 10与10a的中点即为所求点
(defun c:qzd()
    (setvar "osmode" 0)
    (while (setq ssa (ssget ":S" '((0 . "DIMENSION"))))
        (setq ent (ssname ssa 0))
        (setq dxf (entget ent))
        (setq p10 (cdr (assoc 10 dxf)))
        (setq p13 (cdr (assoc 13 dxf)))
        (setq p14 (cdr (assoc 14 dxf)))
        (setq ang0 (angle p10 p14))
        (setq ang1 (+ ang0 (* 0.5 pi)))
        (setq p10a (inters p13 (polar p13 ang0 1.0)
                           p10 (polar p10 ang1 1.0)
                           nil
                   )
        )
        (setq pmid (mapcar '(lambda(x y)(* 0.5 (+ x y))) p10 p10a))
        (command "_pline"  pmid (polar pmid ang0 2.0) "")
    )
    (princ)
)

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
看看这图你就清楚了

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