I need a method to align extension line?

[raymondcheng0922]

I need a method to align extension line?

[Kent1Cooper · Accepted solution]

More information, please, about the end result you want.  The drawing has only four objects that are not Dimensions, but it has 219 Dimensions, most of which therefore do not measure to anything.  In what way would you like which extension lines to be aligned?  If I'm correct in assuming the drawing is "before," what should "after" look like?  Etc.

[raymondcheng0922]

keep all dimensions extension line 100mm. thanks

[komondormrex · Accepted solution]

check the following

(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)
)

[Kent1Cooper · Accepted solution]

That's what this is for:

In your drawing with its DIMSCALE System Variable set to 100, the setting in the Dimension Style definition would be 1.  Adjust accordingly for different DIMSCALE settings.

Applied in your drawing, the left group becomes: