框选图块，并标注尺寸

xforme

找到一个标注图块间距的程序，但是只能一个一个点选才能标注，请大佬帮忙改一下，改成框选模式

(defun c:CCB (/ I E p1 p2 p3 x1 x2 x3 y1 y2 y3 xx yy l)

  (setq I 0)

  (while (setq E (entsel))

    (setq p1 p2)

    (setq E (cdr (assoc 10 (entget (car E))))

          I (1+ I)

    )

    (setq p2 E)

    (if (> I 1)

       (command "dimaligned" p1 p2 p2)

     )

  )

  (command "")

  (princ I)

  (princ)

)

xcsdert

:L:$:loveliness: