layer change

[HR2323]

hi every one,

 Please help us, I am trying to layer the box and title in several drawing.

Bring the outer of the box into the layer and also want the title of the drawing in another layer as well. Each drawing has a name similar to the title.

[HR2323]

@pbejse,

It does not work on small case or proper case (Toggle Case) of text.

[pbejse]

---

@HR2323 wrote:

@pbejse,

It does not work on small case or proper case (Toggle Case) of text.

---

Dont just say it, show us an example of what you are describing, I dont really like this back and forth @HR2323 , right from the start, i said put the worst kind of example. so that every condition is taken into consideration

[pbejse · Accepted solution]

a quick solution is remove strcase

From

(Setq Dname (strcase (getstring "\nEnter Drawing Number: ")))
.......
(setq Dname (strcase (vl-string-right-trim "0123456789"
		    (getpropertyvalue  s "TextString"))))

To

(Setq Dname (getstring "\nEnter Drawing Number: "))
................
(setq Dname (vl-string-right-trim "0123456789"
		    (getpropertyvalue  s "TextString")))

[HR2323]

@pbejse 

Got a lot better than i expected...
Thanks a lot