Offset Dimension (VBA)

I'm looking for a way to offset dimensions quick and easy.

How would I accomplish this task?

Have VBA read active scale 

Multiply active scale by .375 (set distance)

Pick point

Select Dimension

Move selected dimension (set distance) from picked point

Activate command again

Any help would be greatly appreciated.

Thanks,

Jonathan

Parents Reply Children