Jump to content

Numeric Text Editing

Artek

By Artek
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

Artek Enthusiast

Artek

Posted
Posted

I found this excellent lisp program by Lee Mac and just wondering if there's anyone out there who can help modify the program to increment only the numbers in a certain range instead of all the numbers in a selected text or mtext.  It's like adding a prompt for starting and ending numbers and increment only those within the given range.  Any help would be highly appreciated.

 

https://www.cadtutor.net/forum/topic/19075-numeric-text-editing-add-or-subtracting/ 

;; Text Increment  -  Lee Mac
;; Increments numerical data found in a selection of Text or MText
;; objects by a value specified by the user.

(defun c:txtinc ( / e i l s x )
   (if (null *inc*)
       (setq *inc* 1.0)
   )
   (if (setq i (getreal (strcat "\nSpecify Increment <" (rtos *inc* 2) ">: ")))
       (setq *inc* i)
   )
   (if (equal 0.0 (rem *inc* 1) 1e-8)
       (setq *inc* (fix *inc*))
   )
   (if (setq s (ssget "_:L" '((0 . "TEXT,MTEXT") (1 . "*#*"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 x (assoc 1 e)
           )
           (entmod
               (subst
                   (cons 1
                       (apply 'strcat
                           (mapcar
                               (function
                                   (lambda ( x )
                                       (if (and (= 'int (type x)) (= 'int (type *inc*)))
                                           (itoa (+ x *inc*))
                                           (if (member (type x) '(int real))
                                               (rtos (+ x *inc*) 2)
                                               x
                                           )
                                       )
                                   )
                               )
                               (LM:splitstring (cdr x))
                           )
                       )
                   )
                   x e
               )
           )
       )
   )
   (princ)
)            

;; Split String  -  Lee Mac
;; Splits a string into a list of text and numbers

(defun LM:splitstring ( s )
   (
       (lambda ( l )
           (read
               (strcat "("
                   (vl-list->string
                       (apply 'append
                           (mapcar
                               (function
                                   (lambda ( a b c )
                                       (cond
                                           (   (= 92 b)
                                               (list 32 34 92 b 34 32)
                                           )
                                           (   (or (< 47 b 58)
                                                   (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                                                   (and (= 46 b) (< 47 a 58) (< 47 c 58))
                                               )
                                               (list b)
                                           )
                                           (   (list 32 34 b 34 32))
                                       )
                                   )
                               )
                               (cons nil l) l (append (cdr l) (list nil))
                           )
                       )
                   )
                   ")"
               )
           )
       )
       (vl-string->list s)
   )
)

(princ)

 

BIGAL Grand Master

BIGAL

Posted
Posted

I seem to remember if *text is numbers only you can use ssget with filters checking a range of values. < X > Y. Pbe comes to mind may have been forums/Autodesk.

Artek Enthusiast

Artek

Posted
  • Author
Posted
4 minutes ago, BIGAL said:

I seem to remember if *text is numbers only you can use ssget with filters checking a range of values. < X > Y. Pbe comes to mind may have been forums/Autodesk.

 

Many thanks Bigal.  I need it to work exactly as written on a numerical data found in a selection of text or mtext  but only increment the numbers in a range specified by the user. 

BIGAL Grand Master

BIGAL

Posted
Posted (edited)

Try this for me input as per image. But left out for moment.

  

;; Text Increment  - original by  Lee Mac
;; Increments numerical data found in a selection of Text or MText
;; objects by a value specified by the user.
;; Modified by AlanH Sep 2020
;;https://www.cadtutor.net/forum/topic/71199-numeric-text-editing/

(defun c:txtinc ( / e i l s x minval maxval txt )
   (if (null *inc*)
       (setq *inc* 1.0)
   )
   (if (setq i (getreal (strcat "\nSpecify Increment <" (rtos *inc* 2) ">: ")))
       (setq *inc* i)
   )
   (if (equal 0.0 (rem *inc* 1) 1e-8)
       (setq *inc* (fix *inc*))
   )
   (setq minval (getreal "\nEnter minimum value")
         maxval (getreal "\nEnter maximum value")
   )
   (if (setq s (ssget "_:L" '((0 . "TEXT,MTEXT") (1 . "*#*"))))
   (progn
	(repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
             x (assoc 1 e)
	 strlst (reverse (LM:splitstring (cdr x)))
	txtstr "")
		   (repeat(setq k (length strlst))
				(setq txt (nth (setq k (1- k)) strlst))
				(if (or (= (type txt) 'INT)(= (type txt) 'REAL))
					(if (and (> txt minval)(< txt maxval))
					(setq txt (rtos (+ txt *inc*) 2 0) )
					(setq txt (rtos txt  2 0) )
					)
				)
				(setq txtstr (strcat txtstr  txt))
		)
		(entmod (subst (cons 1 txtstr) (assoc 1 e) e))
		)
	)
	)
   (princ)
)

;; Split String  -  Lee Mac
;; Splits a string into a list of text and numbers

(defun LM:splitstring ( s )
   (
       (lambda ( l )
           (read
               (strcat "("
                   (vl-list->string
                       (apply 'append
                           (mapcar
                               (function
                                   (lambda ( a b c )
                                       (cond
                                           (   (= 92 b)
                                               (list 32 34 92 b 34 32)
                                           )
                                           (   (or (< 47 b 58)
                                                   (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                                                   (and (= 46 b) (< 47 a 58) (< 47 c 58))
                                               )
                                               (list b)
                                           )
                                           (   (list 32 34 b 34 32))
                                       )
                                   )
                               )
                               (cons nil l) l (append (cdr l) (list nil))
                           )
                       )
                   )
                   ")"
               )
           )
       )
       (vl-string->list s)
   )
)

image.png.a04e71774ca51be24f2d522b8c254445.png

 

Edited by BIGAL
  • Like 1
Artek Enthusiast

Artek

Posted
  • Author
Posted
1 hour ago, BIGAL said:

Try this for me input as per image. But left out for moment.

  


;; Text Increment  - original by  Lee Mac
;; Increments numerical data found in a selection of Text or MText
;; objects by a value specified by the user.
;; Modified by AlanH Sep 2020

(defun c:txtinc ( / e i l s x minval maxval)


(defun c:txtinc ( )
   (if (null *inc*)
       (setq *inc* 1.0)
   )
   (if (setq i (getreal (strcat "\nSpecify Increment <" (rtos *inc* 2) ">: ")))
       (setq *inc* i)
   )
   (if (equal 0.0 (rem *inc* 1) 1e-8)
       (setq *inc* (fix *inc*))
   )
   (setq minval (getreal "\nEnter minimum value")
         maxval (getreal "\nEnter maximum value")
   )
   (if (setq s (ssget "_:L" '((0 . "TEXT,MTEXT") (1 . "*#*"))))
   (progn
	(repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 x (assoc 1 e)
				 strlst (reverse (LM:splitstring (cdr x)))
				 txtstr "")
		   (repeat(setq k (length strlst))
				(setq txt (nth (setq k (1- k)) strlst))
				(if (or (= (type txt) 'INT)(= (type txt) 'REAL))
					(if (and (> txt minval)(< txt maxval))
					(setq txt (rtos (+ txt *inc*) 2))
					)
				)
				(setq txtstr (strcat txtstr txt))
		   )
		(entmod (subst (cons 1 txtstr) (assoc 1 e) e))
	)
	)
	)
   (princ)
)

;; Split String  -  Lee Mac
;; Splits a string into a list of text and numbers

(defun LM:splitstring ( s )
   (
       (lambda ( l )
           (read
               (strcat "("
                   (vl-list->string
                       (apply 'append
                           (mapcar
                               (function
                                   (lambda ( a b c )
                                       (cond
                                           (   (= 92 b)
                                               (list 32 34 92 b 34 32)
                                           )
                                           (   (or (< 47 b 58)
                                                   (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                                                   (and (= 46 b) (< 47 a 58) (< 47 c 58))
                                               )
                                               (list b)
                                           )
                                           (   (list 32 34 b 34 32))
                                       )
                                   )
                               )
                               (cons nil l) l (append (cdr l) (list nil))
                           )
                       )
                   )
                   ")"
               )
           )
       )
       (vl-string->list s)
   )
)

image.png.a04e71774ca51be24f2d522b8c254445.png

 

 

 

Many thanks, Bigal.  That's exactly how I wanted it.  At the moment I'm getting a bad argument type: stringp error.  The code is just too complicated for me to understand to be honest.

Artek Enthusiast

Artek

Posted
  • Author
Posted
11 hours ago, BIGAL said:

Try this for me input as per image. But left out for moment.

 

 

 

Is there any chance you can have a look at the error please?

Artek Enthusiast

Artek

Posted
  • Author
Posted (edited)

I tested the routine some more and found out that it works if the numbers in the text are all within the min and max range.  But if one or more numbers in the text/mtext are outside of the range then I'm getting the bad argument type: stringp error.   It would be great if it can keep the numbers outside of the range as they were originally and just increment the numbers that are within the range like the example below.

 

Selected Text/Mtext:     1 2 3 10 11  (A text/mtext may contain a mix of numbers, letters and symbols)

Specify Increment: 1

Enter Minimum Value: 1

Enter Maximum Value: 3

Result:                               2 3 4 10 11

 

At the moment, the routine didn't work on the given example and resulted in bad argument type: stringp error.  If I will change the Min Value to 2 and Max Value to 11 then it's ok.

 

  

Edited by Artek
BIGAL Grand Master

BIGAL

Posted
Posted

You were right I just checked on a range that worked rather than less than max code above is updated please try.

Artek Enthusiast

Artek

Posted
  • Author
Posted
On 9/17/2020 at 12:40 AM, BIGAL said:

You were right I just checked on a range that worked rather than less than max code above is updated please try.

 

Any luck on the update?

BIGAL Grand Master

BIGAL

Posted
Posted

Sorry about that had to do some real work code updated now note if lowest is 1 use 0 as min. 

Artek Enthusiast

Artek

Posted
  • Author
Posted (edited)
On 9/19/2020 at 12:03 AM, BIGAL said:

Sorry about that had to do some real work code updated now note if lowest is 1 use 0 as min. 

 

Thank you so much, Bigal.  That's awesome! :celebrate:

Thanks again to the original author, Lee Mac.

Great job, guys! 

Edited by Artek

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...