Change text case in a attribute block

[cadd4la]

Looking for a program that will change the text case in a attribute block. I know about TCASE but I need it to just change the text string that I pick on and not all of the text in the attribute.

Thanks,

CADD4LA

[cadhelp Van]

That should do. command TCASEATT

(defun c:TCASEATT( / obj)
(while(setq obj(vlax-eName->vla-object(car(nentsel))))
(vla-put-TextString obj (strcase(vla-get-TextString obj))))
)

[cadd4la]

Sorry, the lisp don't work.

After I select the attribute block and hit enter I get this

; error: bad argument type: lentityp nil

Thanks,

Cadd4la

[cadhelp Van]

Sorry, the lisp don't work.
After I select the attribute block and hit enter I get this
Cadd4la

Select (pick) attribute directly

[cadd4la]

Select (pick) attribute directly

I'm picking on the text that is in the attribute that I want to change the case and still get the same message ; error: bad argument type: lentityp nil

Thanks,

Cadd4la

[Bruno.Valsecchi]

It's the same, but with more control...

(vl-load-com)
(defun c:TCASEATT( / js obj)
	(while
		(not
			(setq js
				(ssget "_+.:E:S:N" 
					(list
						(cons 0 "INSERT")
						(cons 67 (if (eq (getvar "CVPORT") 2) 0 1))
						(cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB")))
					)
				)
			)
		)
	)
	(setq obj (vlax-ename->vla-object (cadar (ssnamex js 0))))
	(cond
		((vlax-property-available-p obj 'TextString)
			(princ (strcat "\n" (vlax-get obj 'TextString) " -> " (strcase (vlax-get obj 'TextString))))
			(vlax-put obj 'TextString (strcase (vlax-get obj 'TextString)))
		)
	)
	(princ "\nType REGEN to update")
	(prin1)
)

[ketxu]

Or sth like this, keep acet ui & functions ^^

(defun c:tcasei (/ js)
(acet-error-init (list '("cmdecho" 0) T))
(while
		(not (setq js (ssget "_+.:E:S:N"  (list (cons 0 "INSERT")(cons 66 1)))))
)
(acet-tcase  (ssadd (cadar (ssnamex js 0))) (car(acet-tcase-ui-dlg)))
(acet-error-restore)
)

[cadhelp Van]

Can you attach a DWG with block with attributes

[cadd4la]

It's the same, but with more control...

(vl-load-com)
(defun c:TCASEATT( / js obj)
	(while
		(not
			(setq js
				(ssget "_+.:E:S:N" 
					(list
						(cons 0 "INSERT")
						(cons 67 (if (eq (getvar "CVPORT") 2) 0 1))
						(cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB")))
					)
				)
			)
		)
	)
	(setq obj (vlax-ename->vla-object (cadar (ssnamex js 0))))
	(cond
		((vlax-property-available-p obj 'TextString)
			(princ (strcat "\n" (vlax-get obj 'TextString) " -> " (strcase (vlax-get obj 'TextString))))
			(vlax-put obj 'TextString (strcase (vlax-get obj 'TextString)))
		)
	)
	(princ "\nType REGEN to update")
	(prin1)
)

Bruno,

I was able to get it to work on text that was lowercase and would change it to uppercase but will not change uppercase to lowercase. Also any change this can do the other options that tcase does?

Thanks,

Cadd4la

[cadd4la]

Or sth like this, keep acet ui & functions ^^

(defun c:tcasei (/ js)
(acet-error-init (list '("cmdecho" 0) T))
(while
		(not (setq js (ssget "_+.:E:S:N"  (list (cons 0 "INSERT")(cons 66 1)))))
)
(acet-tcase  (ssadd (cadar (ssnamex js 0))) (car(acet-tcase-ui-dlg)))
(acet-error-restore)
)

Ketxu,

This is more what I'm looking for, however I have to first use the TCASE command first in the drawing, then it will work in that drawing. Anyway you can write the code so I don't need to do this?

Thanks,

Cadd4la