Request to Modify the lisp (Delete Overwrite Dimension & (X and Y) Dimension Text Are Above

[Gaganpatel]

Dear Sir,

Request to modify the lisp delete overwrite dimension and (X & Y ) dimension text are above.

Please see the Example Drawing & lisp programming.

[Sea-Haven]

You can move the dimension text after you make it. A lot of code to wade through as need 4 directions. 

(setq obj (vlax-ename->vla-object (entlast)))
(setq tpos (mapcar '+ (vlax-get obj 'TextPosition) (list 125.0 (- 120.0) 0.0)))
(vlax-put obj 'TextPosition tpos)

 Hopefully this example shows how to move the dim text. The (entlast) is your dim.

[Gaganpatel]

Dear Sir,

 I don't auto lisp programming please help complete the programming.

[Kent1Cooper]

You can get the text above the lines by simply defining the Dimension Style for that:

And given a Dimension Style defined that way, the QDIM command with the Ordinate option does pretty well at this without a routine, and without duplicating Dimensions [here used twice, once for each direction]:

[Gaganpatel]

Dear Sir,

Thanks for reply.

Please help complete the programming.

[Sea-Haven]

Please look at Kent1Cooper solution the best answer.

[Gaganpatel]

Dear Sir,

Yes this programming is best.

Can you please modify my post programming. 

Please help me Sir.

[Gaganpatel]

Dear Sir,

Please help me any body.

[Kent1Cooper]

If the suggestion in Message 4 does not do what you want, describe in detail how you want it to be different.

[Gaganpatel]

Dear Sir,

Thanks for replay .

I want to attached lisp programming modify please.

1) All dimension text are above required.

2) Delete Overwrite dimension .

Please see the attached example file

[Kent1Cooper]

You haven't really answered my request, but I find it may not matter anyway.  Unfortunately, QDIM doesn't dimension to Block insertion points.  In my earlier image, I had drawn Circles, and it will work with those.  If I Explode your Blocks and use the Circles, and define a Dimension Style appropriately, I get this with no custom routine and just four QDIM commands [including use of the datumPoint and Ordinate options]:

except that the non-right-angle corners were Dimensioned in the results from the opposite sides, so I Erased two of the resulting Dimensions.

But I assume you're not going to want to Explode Blocks to do this....

[Gaganpatel]

Dear Sir,

QDIM , ordinate dimension is best way.

Can you modify my post lisp programming as per requirement.