Baseline arc dimensions untidy

[TonyWood]

Hi,

I do a lot of baseline dimensions around cylinders for markups.

Autocad gives baseline extension lines that are square to the cylinder above 90° which is neat and tidy especially when you have several points to dimension that are close together to mark up. Below that 90 degrees the format changes to an oblique extension line that is very untidy and makes it impossible to dimension items close together.

Attached an image below.

Is there a way to get dimensions below 90 degrees to display like above 90 degrees?

 

[ВeekeeCZ]

It should be possible to fix programmatically.

Post a dwg. States before and after with the desired outcome - explode dims if necessary.

[TonyWood]

dwg file attached, shows how messy it is in the first 90 degrees of the baseline arc length dimension.

[ВeekeeCZ]

Set the Arc len symbol to None and use this as Text override or set it for Dim prefix.

{\Fgdt|c238;\H0.75x;k}<>

Or use it for 

https://www.cadforum.cz/en/text-formatting-codes-in-mtext-objects-tip8640

[TonyWood]

Thanks for coming up with the suggested solution BeekeeCZ. 

Unfortunately it does not address the problem.

The issue I have is with the angled extension lines for any dimension under 90°.

Have a look at how untidy the dimensions are up to the 135 dimension and how angled the extension lines are up to the 812 dimension.

I would like all dimensions to display square to the circle as they are from 948 to 3115.

It is a serious oversight by AutoCAD with whom I have raised this issue with screen shots for the past 10 years at least.

It becomes even more apparent when 2 dimensions are close together above 75°.

[ВeekeeCZ]

Right. So you don't like the same thing as me which made me use dimangular instead and rewrite the text.

Probably not fixable.

You can try this routine... though not sure whether it fits your workflow.

[TonyWood]

I find dimangular is clunky as having to get the arc length and editing the angular text.

AutoDesk has paid no attention to this in a decade of me making them aware. Surely it could be made a variable in the options.

[TonyWood]

Where would I look for that specific coding for baseline arc dimensions I wonder?

[ВeekeeCZ · Accepted solution]

There is not. I don't use it that way. Frankly, I had no idea that there was this option.

Anyway, if you use DimAngular to draw it, then you can use this simple routine to override it with length. The result is attached.

(vl-load-com)

(defun c:DimOverAngLen (/ s i e d a r)
  
  (princ "\nSelect angular dimensions, ")
  (if (setq s (ssget '((0 . "DIMENSION"))))
    (repeat (setq i (sslength s))
      (and (setq e (ssname s (setq i (1- i))))
	   (setq d (entget e))
	   (not (vl-catch-all-error-p (setq a (vl-catch-all-apply 'getpropertyvalue (list e "AngularMeasurement")))))
	   (setq r (distance (cdr (assoc 14 d)) (cdr (assoc 15 d))))
	   (setpropertyvalue e "DimensionText" (strcat "{\\Fgdt|c238;\\H0.75x;k}" (rtos (* a r) 2 0))))))
  (princ)
  )