Dimension to line

[marmo]

Hi,

i would know if there is a code that allow to draw automatically a line between two points of each selected dimensions (aligned and rotated).

Like in this picture.

Thanks for the help.

[Tharwat]

Try this simple one .

 

(defun c:Test (/ ss )
 (if (setq ss (ssget '((0 . "DIMENSION"))))
   ((lambda (i / sn e)
      (while (setq sn (ssname ss (setq i (1+ i))))
        (entmakex (list '(0 . "LINE") '(62 . 2) (cons 10 (cdr (assoc 13 (setq e (entget sn)))))
                        (cons 11 (cdr (assoc 14 e)))))
        )
      ) -1)
   )
 (princ))

[marmo]

Perfect!

It works very well.

Thanks very much Tharwat!

[Tharwat]

Perfect!

It works very well.

Thanks very much Tharwat!

 

You're welcome .