Leaderboard

Ok, give me some time to get familiar with how to operate and apply, thank you in advance pkenewell

HI pkenewell , it is still in testing, if there is anything to improve or the question will be asked again.

(initcommandversion) (command "_.fillet") ;; Select first object or [Undo/Polyline/Radius/Trim/Multiple]:

You can override a dim value <> is default distance. So if we look at this I typed the text twice to see the change. "\\A1;123.4567 123.45{\\H0.7x;\\S67^;}" so this is mtext you would need to get the dimension value at 4 decimals then build a new string, and put the new string into the dim. (setq ent (entget (entlast))) (entmod (subst (cons 1 "123.45{\\H0.7x;\\S67^;}") (assoc 1 ent) ent)) It is best to post a sample dwg with your dim style to use,. The string will need to be made up of 3 parts 123.45 \\H0.7x;\\S 67. Probably need to use Vla-get-measurement as a entget shows the dim value as ""

This is the add-on, though I'm working on changing the way that the dialog works from a single ALL-IN dialog to one dialog for each item in the left hand 'Selection' column. it can be downloaded from here -> sln piping lsp <- SteveN

(* ConstC0 (sin (* LatRad 4))) (* ConstE0 (sin (* LatRad )) would you tell us what number cames after last LatRad in this expression because it was not writed in you routine, but without it , this program not work well

I'm sure I'm missing something, but would this work? (defun test (/ ss lst) (if (setq ss (ssget "_:L" '((0 . "POINT")))) ((lambda (i / p) (while (setq e (ssname ss (setq i (1+ i)))) (if (vl-position (setq p (cdr (assoc 10 (entget e)))) lst) (entdel e) (setq lst (cons p lst)) ) ) ) -1 ) ) ss ) BTW, read this: Code Posting Etiquette