Lisp Question regarding obtaining parts of a String

Sure. Please do that.

Regards,

BruceF

 

Hmmm, now you guys got me puzzled. I remember renaming many many
xrefed, bound and exploded lsayers back in the day when we were limited
to (I think 32) characters in a layer name... what was that, R13 and
R14...
Don't recall having trouble with dollar signs.
If I can sneak some time over next few days I'll have a look at it...
Can't promise I'll have time to get to the bottom of it.

 

I tried it just now... not an issue. My test strings were like:
AAA$aaa
AAA$bbb
AAA$ccc

And I got rid of the AAA$ part no problemo...

This has happened to me. All you can do when you get a duplicate layer name
is to manually change them if you can't find a string to replace.

If you have a lot of drawings to do, the easiest thing I could think of is to
have a Lisp routine to rename the layers for you .

(Defun C: ChgLyr ( )

(if (TblSearch "Layer" "CurrName")
(command "-Rename" Layer" "CurrName" "NewName")
) ; if

(princ)
) ; defun


You have the above table search for Each Layer you want to change. CurrName
is your Existing Layer name. NewName is your New Layer name.

Then just run this for each of your drawings and voila'... It is a basic IF
THEN kind of statement.

If the Layer does not exist, nothing happens.

This is a bit harder. But if you have a lot of drawings, I think your up
front work will help out if they all have similar layers (and especially if
you know you'll get more drawings from where those ones you have came from).

Regards,

BruceF

 

I think it is a duplicate layer issue. I don't have any problems with $
symbols.

Regards,

BruceF

 

Yea, I'm inclined to think in that direction too...

 

Okay, I found the lisp... I still use it
But for the life of me, I don't remember what was what in it... well,
in 5 minutes or less. I used to do a lot more lisping few years back,
i'm starting to forget things
Mind you, this is not for layers, but to search and replace regular
acad text.

;search and replace text - written circa 1998 by CB
(defun C:EDT (/ adj p l n e os as ns st s nsl osl sl si chf chm)
(setq p (ssget)) ;Select objects
(if p (progn ;If any objects selected...
(setq osl (strlen (setq os (getstring "\nOld string: " t))))
(setq nsl (strlen (setq ns (getstring "\nNew string: " t))))
(setq l 0 chm 0 n (sslength p))
(setq adj
(cond ((/= osl nsl) (- nsl osl))
(T nsl)
)
)
(while (< l n)
(if (= "TEXT"
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os) (progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t)
(setq si (+ si adj))
))
(setq si (1+ si))
)
(if chf (progn
(setq e (subst (cons 1 s) as e))
(entmod e)
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
(princ "Changed ")
(princ chm)
(princ " text lines.")
(terpri)
)

 

This is how I do it....

http://www.flitschi.de/gallery/albums/fun/get_string_from_object.sized.jpg


Dr Fleau