Change text style in blocks.

[BillZ]

R14 Autolisp:

I have many blocks in a drawing that have a visible attribute that has a text style of "style1" that is roamans, I want to change it to romand text type.
Any ideas?

Bill

 

[Mike Weaver]

The battman command will allow you to change the style for an attribute and then syncronize this change across all insertions of the same block.

 

HTH,

Mike Weaver

 

"BillZ" <> wrote:

R14 Autolisp:

I have many blocks in a drawing that have a visible attribute that has a text style of "style1" that is roamans, I want to change it to romand text type.
Any ideas?

Bill

 

[BillZ]

Where do I find this battman for r14?

 

[Jason Piercey]

I know this could be refined, and made more flexible but real quick....

; Jason Piercey . June 2nd, 2003
; [ename] - entity name - block, insert or polyline
; [filter] - string, re: wcmatch
; return: list of enames or nil
(defun nEnts (ename filter / data ent rtn)
(setq filter (strcase filter))
(while (and ename (setq ename (entnext ename)))
(setq data (entget ename))
(setq ent (cdr (assoc 0 data)))
(if (wcmatch ent filter)
(setq rtn (cons ename rtn)) )
(if (= "SEQEND" ent) (setq ename nil))
)
(reverse rtn)
)

; [blockName] - string, attributed block name
; [oldStyle] - string, textstyle to seach for
; [newStyle] - stirng, textstyle for replacement
(defun updateAttStyle (blockname oldStyle newStyle / data pair ename ss i) (setq oldStyle (strcase oldStyle) newStyle (strcase newStyle) ) (foreach x (nEnts (tblobjname "block" blockname) "ATTDEF") (setq data (entget x) pair (assoc 7 data) ) (if (= oldStyle (strcase (cdr pair))) (entmod (subst (cons 7 newStyle) pair data)) )
)

(if
(setq
ss
(ssget
"x"
(list
'(0 . "INSERT")
(cons 2 blockName)
'(66 . 1)
(cons 410 (getvar "ctab"))
)
)
)
(progn
(setq i -1)
(repeat (sslength ss)
(setq ename (ssname ss (setq i (1+ i))))
(foreach x (nEnts ename "ATTRIB")
(setq data (entget x)
pair (assoc 7 data) )

(if (= oldStyle (strcase (cdr pair)))
(entmod (subst (cons 7 newStyle) pair data))
)
)
)
)
)
)

R14 Autolisp:
I have many blocks in a drawing that have a visible attribute that has a text style of

"style1" that is roamans, I want to change it to romand text type.

 

[BillZ]

Great!
Thanks

Bill

 

[Mike Weaver]

Upgrade.  Sorry.

"BillZ" <> wrote:

Where do I find this battman for r14?

 

[OLD-CADaver]

Is there something wrong with changing the font of style 1 to romand?