https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993606#M169688 <P>check the following</P><LI-CODE lang="lisp">(defun c:ext_100 (/ dim_dxf ext_line_angle ext_line_1_end ext_line_2_end dim_dxf) (foreach dim (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "dimension")))))) (setq dim_dxf (entget dim)) (setq ext_line_angle (angle (cdr (assoc 10 dim_dxf)) (cdr (assoc 14 dim_dxf)))) (setq ext_line_1_end (polar (inters (cdr (assoc 10 dim_dxf)) (cdr (assoc 11 dim_dxf)) (cdr (assoc 13 dim_dxf)) (polar (cdr (assoc 13 dim_dxf)) ext_line_angle 1) nil) ext_line_angle 100)) (setq ext_line_2_end (polar (inters (cdr (assoc 10 dim_dxf)) (cdr (assoc 11 dim_dxf)) (cdr (assoc 14 dim_dxf)) (polar (cdr (assoc 14 dim_dxf)) ext_line_angle 1) nil) ext_line_angle 100)) (setq dim_dxf (subst (cons 13 ext_line_1_end) (assoc 13 dim_dxf) dim_dxf)) (setq dim_dxf (subst (cons 14 ext_line_2_end) (assoc 14 dim_dxf) dim_dxf)) (entmod dim_dxf) ) (princ) )</LI-CODE> Wed, 28 Jan 2026 07:22:25 GMT komondormrex 2026-01-28T07:22:25Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993373#M169681 <P>I need a method to align extension line?</P> Wed, 28 Jan 2026 01:18:52 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993373#M169681 raymondcheng0922 2026-01-28T01:18:52Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993440#M169684 <P>More information, please, about the end result you want.&nbsp; The drawing has only four objects that are <EM>not</EM> Dimensions, but it has <STRONG><EM>219</EM></STRONG> Dimensions, most of which therefore do not measure to anything.&nbsp; In what way would you like which extension lines to be aligned?&nbsp; If I'm correct in assuming the drawing is "before," what should "after" look like?&nbsp; Etc.</P> Wed, 28 Jan 2026 02:56:23 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993440#M169684 Kent1Cooper 2026-01-28T02:56:23Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993447#M169687 <P><SPAN>keep all dimensions extension line 100mm. thanks</SPAN></P> Wed, 28 Jan 2026 03:12:37 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993447#M169687 raymondcheng0922 2026-01-28T03:12:37Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993606#M169688 <P>check the following</P><LI-CODE lang="lisp">(defun c:ext_100 (/ dim_dxf ext_line_angle ext_line_1_end ext_line_2_end dim_dxf) (foreach dim (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "dimension")))))) (setq dim_dxf (entget dim)) (setq ext_line_angle (angle (cdr (assoc 10 dim_dxf)) (cdr (assoc 14 dim_dxf)))) (setq ext_line_1_end (polar (inters (cdr (assoc 10 dim_dxf)) (cdr (assoc 11 dim_dxf)) (cdr (assoc 13 dim_dxf)) (polar (cdr (assoc 13 dim_dxf)) ext_line_angle 1) nil) ext_line_angle 100)) (setq ext_line_2_end (polar (inters (cdr (assoc 10 dim_dxf)) (cdr (assoc 11 dim_dxf)) (cdr (assoc 14 dim_dxf)) (polar (cdr (assoc 14 dim_dxf)) ext_line_angle 1) nil) ext_line_angle 100)) (setq dim_dxf (subst (cons 13 ext_line_1_end) (assoc 13 dim_dxf) dim_dxf)) (setq dim_dxf (subst (cons 14 ext_line_2_end) (assoc 14 dim_dxf) dim_dxf)) (entmod dim_dxf) ) (princ) )</LI-CODE> Wed, 28 Jan 2026 07:22:25 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993606#M169688 komondormrex 2026-01-28T07:22:25Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993951#M169691 <P>That's what this is for:</P> <P><span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Kent1Cooper_0-1769603499361.png" style="width: 386px;"><img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1613804i0F7C1A3CA70081C0/image-dimensions/386x325?v=v2" width="386" height="325" role="button" title="Kent1Cooper_0-1769603499361.png" alt="Kent1Cooper_0-1769603499361.png" /></span></P> <P>In your drawing with its DIMSCALE System Variable set to 100, the setting in the Dimension Style definition would be 1.&nbsp; Adjust accordingly for different DIMSCALE settings.</P> <P>Applied in your drawing, the left group becomes:</P> <P><span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Kent1Cooper_1-1769603649670.png" style="width: 244px;"><img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1613805i4471F69B85278E5D/image-dimensions/244x133?v=v2" width="244" height="133" role="button" title="Kent1Cooper_1-1769603649670.png" alt="Kent1Cooper_1-1769603649670.png" /></span></P> <P>&nbsp;</P> Wed, 28 Jan 2026 12:34:53 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-a-method-to-align-extension-line/m-p/13993951#M169691 Kent1Cooper 2026-01-28T12:34:53Z