Leaderboard

A couple of suggestions. ; (prompt “\nSelect the SET TEXT or MTEXT: “) (setq set (car (entsel “\nSelect the SET TEXT or MTEXT: “))) If you want to force a selection of a certain type use SSGET as you have done in your code further down. (setq set (ssname (ssget ‘((0 . “TEXT,MTEXT”))) 0)) Better still have a look at this link. https://www.lee-mac.com/ssget.html Don't use "set", it is a reserved word and is used in lisp to do just that "set a value" rather than setq. Will try to make some time to look at your code.

If you haven't solved it yet, there's another possibility: Replace '(setq en (ssname ss cnt))' with '(setq en (ssname ss cnt)) ex en)' Load the code and run it again. Then, type '(entget ex)' on the command line. If it returns the entity list, see if '(60 . 1)' appears anywhere.

Works in AutoCAD 2026. Try restarting AutoCAD, then a reset to defaults if that doesn't work.

It was working OK for me in your sample drawing - I am using 2022 though but would expect any changes in 2021 to be carried through to that. Looking at the LISP, there is nothing in there to delete any texts, try loading it last in case there is another LISP loaded with the same name as some of the sub routines and try again maybe

@mhy3sx it calculate a2 as a trapezoid , because it is not a rectangle , short side are not parallel to be or no tobe a trapezoid.dwg

Maybe something in my post or the one of Lee Mac's I linked...

Wow - I'm truly flattered by this thread! Many thanks guys, I appreciate your kind compliments & commendations Ha! I'm nowhere near in the league of the late & great John McCarthy! Where programming is concerned, I have approximately 4 years experience in writing AutoLISP & Visual LISP applications (including DCL & ObjectDBX based programs); I also have experience in relatively basic web design (HTML/CSS - I coded my own site from the ground up), and have minimal experience in C/C++/C#/Python - just enough to write console programs! As far as my background, I studied a mathematics degree which forced me to develop a strictly logical mindset and consequently my learning of the various customisation programming languages progressed relatively quickly.