Coding Help - Adding numbers t

Piper · 发表于 2022-7-5 15:50:50

Works great. Could you show me how to make it work with all the text in the drawing and not just a selection set? Thanks.

Lee Mac · 发表于 2022-7-5 15:52:48

Change "_:L" to "_X"

Nice one Alan

alanjt · 发表于 2022-7-5 15:56:28

There you go. Know that if you change to all, locked layers will NOT be filtered out and it will error if it tries to edit text on a locked layer.

Thanks Lee.

stevesfr · 发表于 2022-7-5 16:00:40

Perfect, thx, S

alanjt · 发表于 2022-7-5 16:02:38

Perfect that I realize and admit to being a retard?

You're welcome.

SteveBubendorf · 发表于 2022-7-5 16:05:58

Alan,
I have been trying to modify this code to add a user input elevation to the selected elevation, but I haven't been able to make it work. If it isn't too time-consuming, could you look at the code below (modified from your code), and suggest corrections as required? My elevations will be in the form of "El. xxx'-xx" ", without the outer quotation marks. The number of digits in the feet and in the inches may change.
Thank you.

copy

(defun c:AddElevations (/ ss ent s num addelev);addelev added by SLB(and   (setq AddElev (getdist "\n Enter Elevation to Add: "));;setq addelev added by SLB   (setq ss (ssget "_:L" '((0 . "TEXT") (1 . "EL.*"))))   ((lambda (i)      (while (setq e (ssname ss (setq i (1+ i))))        (setq ent (entget e)s   (cdr (assoc 1 ent))num (substr s (+ 3 (vl-string-search "." s)) (+ (vl-string-search "'" s) 3));substring parameters and search string changed by SLB)        (entmod (subst (cons 1 (vl-string-subst (rtos (+ AddElev (atof num))) num s));AddElev variable substituted for fixed number by SLB(assoc 1 ent)ent))      ))     -1   )) (princ))

alanjt · 发表于 2022-7-5 16:10:14

That's a long time to have been a member and only posted for the first time today.

SteveBubendorf · 发表于 2022-7-5 16:12:18

I think I had some trouble logging into the forum for a while. (Misplaced my password or something after an OS reinstall.) I refer to AutoDesk's Discussion Groups for a lot of my Lisp referencing needs, and have posted there quite a bit requesting and sometimes even providing some help. I've been referencing this forum for the last couple of months quite heavily. I sure appreciate your posts and LeeMac's, in particular, although there a lot of other great contributors here, as well. I've been "dabbling" in Lisp for a number of years now, but I haven't grasped the "weightier" concepts. I barely manage to eek out some short "macros" more than fully developed programs. I love to see (and use, when possible) the great stuff on this and other forums that I tend to watch as much as possible.

Was my request something "do-able", or was the program which I was trying to adapt not the best way to solve the problem? I think I may have a Lisp program that does something similar to what I requested, but I liked the Visual Lisp. Unfortunately, I'm really poor with the Visual Lisp.

Thanks, Alan !!

alanjt · 发表于 2022-7-5 16:14:46

Ehh, WTH...

copy

(defun c:Add (/ toNum toStr ss add) ;; Alan J. Thompson, 11.04.10 (defun toNum (str)   (+ (atof (substr str 4)) (/ (atof (substr str (+ 2 (vl-string-search "-" str)))) 12.)) ) (defun toStr (num)   (strcat "EL." (rtos num 2 0) "'-" (rtos (* 12. (rem num (fix num))) 2 0) """) ) (if (and (setq ss (ssget "_:L" '((0 . "TEXT") (1 . "EL.*'-*""))))          (setq add (getdist "\nSpecify number to add: "))     )   ((lambda (i / e d)      (while (setq e (ssname ss (setq i (1+ i))))        (entmod (subst (cons 1 (toStr (+ add (toNum (cdr (assoc 1 (setq d (entget e))))))))                       (assoc 1 d)                       d                )        )      )    )     -1   ) ) (princ))

SteveBubendorf · 发表于 2022-7-5 16:17:28

Thank you, Alan !! That was unbelievably quick ! "Forum Deity", you are !

I didn't get the results that I expected with the elevations that I tested on, but I will continue to look at your post and see if I can understand it enough to make changes. It may be units settings or something that may be giving us different results, perhaps? Anyway, this wasn't a program that I needed at this time, but rather, an example that I hoped to learn from. I'll do some more study and see what I can come up with.

Thanks, again !!

[编程交流] Coding Help - Adding numbers t

发表回复

精选推荐