Editing home Addresses

[jpglisson]

I did a search and could not find what I was looking for, so here I am.

I need lisp to edit home addresses. An exapmle would be 2001 N HENRY ST to only show the number 2001.

Addresses can have different lengths of digits.

If this question/need has already been answered, I appologize.

Thank you in advance for tour time

[dlanor]

One swallow does not a Summer make. I can immediately think of a solution for the single example given, but this doesn't mean it would work for any other address.

[jpglisson]

Currently I have to click each one, delete the text. click repeat.....
Any way to make this quicker would be greatly appreciated.
Thanks

[LiDo]

(atoi "2001 N HENRY ST") ;; -> 2001
(itoa (atoi "2001 N HENRY ST")) ;; -> "2001"

[dlanor]

Currently I have to click each one, delete the text. click repeat.....
Any way to make this quicker would be greatly appreciated.
Thanks

I understand that :

Is the number always the first item in the string?

Are there any other numbers in the string eg a numeric zip code?

Are the text strings a "TEXT" entity, a "MTEXT" entity etc.

Are they all on the same unique layer?

[tedg]

Is there a reason you can't / won't use "find and replace"?

Find: "2001 N HENRY ST"

Replace with: "2001"

[jpglisson]

Because I might have close to a hundred different addresses

- - - Updated - - -

The number is always first.

The street name might be a number like 2001 E 5th Drive

Each address is a seperate mtext

All are on the same layer

Thanks

[dlanor]

Because I might have close to a hundred different addresses

- - - Updated - - -

The number is always first.

The street name might be a number like 2001 E 5th Drive

Each address is a seperate mtext

All are on the same layer

Thanks

If the number is always first then this should work. It will loop asking "Select Text to Process : ". When you want to end the loop select a blank area of the screen. This will work for text and mtext.

;;
(defun splitstr ( s d / p ) (if (setq p (vl-string-search d s))(cons (substr s 1 p) (splitstr (substr s (+ p 1 (strlen d))) d)) (list s)))

(vl-load-com)

(defun c:nos ( / sel ent obj str)

  (while (setq sel (entsel "\nSelect Text to Process : "))
    (setq obj (vlax-ename->vla-object (setq ent (car sel))))
          
    (cond ( (or (= "TEXT" (cdr (assoc 0 (entget ent))))
                (= "MTEXT" (cdr (assoc 0 (entget ent))))
            );end_or
            (setq str (car (splitstr (vlax-get-property obj 'textstring) " ")))
            (vlax-put obj 'textstring str)
          )
    )
  )
)
;;

Once loaded type nos to run

[jpglisson]

Thanks dlanor. Sorry I didn't get back sooner, I was put on another job this morning. Just checked it out.

Thanks, works great. This will save me a lot of time. SHHH don't tell my boss.