circle to circle dimension only text and line

[Gaganpatel]

  Dear Sir,

I have circle to circle dimension only text & dimension line,

Please help me.

[oscardosanjos]

Hi,

can you improve your question for a better understanding of what do you really need?

[Gaganpatel]

Dear Sir,

Actually we are making assembly and from that assembly we are making part drawing and that drawing we have to fit in A4 size sheet.

Some times the object length around 10Mtr in that case we have stretch my object to the required length and convert that dimension into exploded text.

[CADaSchtroumpf]

Why you do not use QSELECT with Dimension and Style P.

When select, explode them and apply SCALE with Ref

With this, you don't lost value of the dim text

[DGRL]

@Gaganpatel

Looking at your drawing I just wonder why don't you use Viewports?

[hak_vz]

Best option to your problem is to use viewports and annotative scaling.

If this option is unavailable for you, regarding your current practice, best option would be

to create new  object to fit A4, and not to look reshaped or much elongated, the way you do it now.

Put on "false" dimensions. and override them in one continuous loop.

(defun c:edimtext ( / ent val *error*)
(defun *error* () (setvar cmdecho 1) (princ))
(setvar "cmdecho" 0)
(while
  (setq 
    ent (entget(car (entsel "\nSelect dimension object >")))
    val (getstring "\n Override dimension or text >")
    ent (subst  (cons 1  val)(assoc 1 ent) ent)
    ent(entmod ent)
  )
)
(setvar "cmdecho" 1)
(princ)
)