提取标注中的直线?

KAIKENZHE

如何提取标注中的直线(不是引脚线,标注文字下的那条)?

alin

If the dimension text is parallel to the dimension line...

(defun C:test (/ bkname blkdef rotMtext rotLine)
  (setq bkname
  (cdr
    (assoc 2 (entget (car (entsel "\nSelect a dimension: "))))
  )
  )
  (setq
    blkdef (vla-item (vla-get-blocks
         (vla-get-activedocument (vlax-get-acad-object))
       )
       bkname
    )
  )
  (vlax-for obj blkdef
    (if (= (vla-get-objectname obj) "AcDbMText")
      (setq rotMtext (vla-get-rotation obj))
    )
  )
  (vlax-for obj blkdef
    (if (= (vla-get-objectname obj) "AcDbLine")
      (progn
 (setq rotLine (vla-get-angle obj))
 (if (equal rotMtext rotLine 0.01) (setq objLine obj))
      ); progn
    )
  )     ; vlax-for
  objLine
)