Leaderboard

I think that is letting you know about selection cycling. Turn it off with (setvar 'SELECTIONCYCLING 0)

Its just a formula converted to a lisp calc. Two common functions are RTD and DTR ;The dtr function converts degrees to radians ;The rtd function converts radians to degrees (defun dtr (a) (* pi (/ a 180.0)) ) ; (defun rtd (a) (/ (* a 180.0) pi) ) These are always handy to have and most experienced coders will have these in an autoload lisp. So your request becomes (setq def (rtd (atan (/ (abs (- in out)) 100.)))) So input, in and out and get a result. Or (setq def (rtd (atan (/ (abs (- (getreal "\nEnter in value ")(getreal "\nEnter out value " ))) 100.))))

Hello @Lee Mac I just found your LISP for floor heating and it is wonderful, thank you for it! I was wondering if is there a way to make it work with other rectangular-like shapes (like attacheted ones). Cheers!

Hi, Something along these codes? (defun c:Test ( / ss in en st) (if (setq ss (ssget "_:L" '((0 . "MTEXT")))) (repeat (setq in (sslength ss)) (setq en (entget (ssname ss (setq in (1- in)))) st (assoc 1 en)) (entmod (subst (cons 1 (strcat (cdr st) "p")) st en)) ) ) (princ) )