［caoyin版主自己解决了]能得到标注的两个尺寸界线与尺寸线的交点坐标吗

caoyin

;; ▓ (lt:dim-definingPoint edata)
;; [功能] 获取标注的定义点
;; [参数] edata---标注对象的 DXF 定义数据
;; [返回] 包含两个点的表，依次为 (第一个尺寸线定义点 第二个尺寸线定义点)
(defun lt:dim-definingPoint (edata / dxf typ p10 p13 p14 ang)
  (setq dxf (lambda (x) (cdr (assoc x edata)))
        typ (- (dxf 70) 32)
        p10 (dxf 10)
        p13 (dxf 13)
  )
  (list (cond
          ((zerop typ)
           (setq ang (dxf 50) p13 (list (car p13) (cadr p13) (last p10)))
           (inters p10 (polar p10 ang 1) p13 (polar p13 (+ ang (/ pi 2)) 1) nil)
          )
          ((= typ 1)
           (setq p14 (dxf 14) ang (if (equal p14 p13 1e-7) 0 (angle p14 p13)))
           (if (equal p10 p14 1e-7)
             p13
             (polar p10 ang (dxf 42))
           )
          )
        )
        p10
  )
)

caoyin

还有更好方法：

就是获取箭头块(或SOLID)的坐标

caoyin

这是早期版本产生的，改为

(defun lt:dim-definingPoint (edata / dxf typ p10 p13 p14 ang)
  (setq dxf (lambda (x) (cdr (assoc x edata)))
        typ (dxf 70)
        p10 (dxf 10)
        p13 (dxf 13)
  )
  (if (> typ 1) (setq typ (- typ 32)))

caoyin

(setq edata (entget (car (entsel))'("ACAD")))

->

........

("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 40) (1040 . 1.5) (1070 . 79)
(1070 . 0) (1070 . 144) (1040 . 0.133333) (1070 . 179) (1070 . 0) (1002 .
"}"))))

将红色部分是当前标注对象的测量比例因子，将(dxf 42)替换成 (dxf 42) 除以该值，自己改改看

得到实际的测量距离