I don't know of any LISP routines that do this.
Do you know how to write your own linetypes? You could also try using the MEASURE/DIVIDE commands. Just some thoughts to get you started while researching the LISP stuff.
or another way , you can make a dimstyle and suppress all extension lines, dimension lines and arrows, and use DIMALIGN command.
Access a broad range of knowledge to help get the most out of your products and services.