Move Dimension lines - How to?

I would like to write a program that is able to move dim baseline (line with a length text) of a dimension (aligned or linear). So I would like to leave definition points (points attached to objects) intacked, only move the dim baseline.

Line if you click on one edge of dim baseline and drag it somewhere.

I tried this but it doesn't work:

(setq 
       Ent   (EntGet EName)
       Ent (PutProperty 10 (MovePt (GetProperty 10 Ent) dx dy) Ent))
       (entmod Ent))))

MovePt is my function that moves point for dx, dy. PutProperty and GetProperty are my procedures based on assoc function...

Any idea why it is not working?

The upper code works fine for NON ANNOTATIVE dimensions.

But it dimension is created using annotative style it doesn't work. Should I change something in the dictionary?

I've read that first I have to get current anno scale. I can do this.

Then I have to search (in the dictionary?) for entity that is used for this scale and change it.

Can anyone tell me how to find this entity?

Anyone?

please

Anyone?

 

please

perhaps you can rephrase your question or better yet post an illustration