Topic: Macro Replace Text with Field

[MSTG007]

Has anyone seen a way to select an MTEXT and then click a button or command that will insert the SheetSet Title to replace the Mtext value?
Thanks

[ronjonp]

I believe all you have to do is replace your text with: %<\AcSm Sheet.Title>% 
All of the Field Expressions are readily available at the bottom of the Field dialog box.

[ChrisCarlson]

I don't think macro's can change the value of a mtext entity.

Code: [Select]

(defun c:TextChange (/ a b)
  (vl-load-com)
  (while T
      (setq a
(car
             (nentsel "\nSelect text or mtext entity to change")))
(if (or a
(setq b(entget a))
(= (cdr (assoc 0 b)) "TEXT")
(= (cdr (assoc 2 b)) "MTEXT")
) ; end check
        (vla-put-TextString(vlax-ename->vla-object a) "%<\AcSm Sheet.Title>% ")
        (princ "\n Invalid Selection")
        ); end if
) ; end while
   (princ)
 ); end
 
Quick and dirty.

[mjfarrell]

alternately replace that text with an attribute in the title block, block....then let that attribute be a field....
attsync...and save/resave all sheets should accomplish the desired result

[MSTG007]

I don't think macro's can change the value of a mtext entity.

Code: [Select]

(defun c:TextChange (/ a b)
  (vl-load-com)
  (while T
      (setq a
(car
             (nentsel "\nSelect text or mtext entity to change")))
(if (or a
(setq b(entget a))
(= (cdr (assoc 0 b)) "TEXT")
(= (cdr (assoc 2 b)) "MTEXT")
) ; end check
        (vla-put-TextString(vlax-ename->vla-object a) "%<\AcSm Sheet.Title>% ")
        (princ "\n Invalid Selection")
        ); end if
) ; end while
   (princ)
 ); end
 
Quick and dirty.

Well I did try the above and I get the famous (####). When I double click on the field it shows as (UNKNOWN) at the top left of the dialogue box Field Category. Other than that, its great.

[mjfarrell]

is this sheet part of a set?

if not then one should expect ####

[MSTG007]

It is part of a sheet set. I just tried the command, saved the file, closed it and then thru the sheetset manager I re-opened the sheet. There still is the famous (####). Version of CAD shouldn't matter right?

[ronjonp]

Just a quick look but the entity check will never be evaluated in the code above using OR:

Code - Auto/Visual Lisp: [Select]

1. (or a (setq b (entget a)) (= (cdr (assoc 0 b)) "TEXT") (= (cdr (assoc 2 b)) "MTEXT")) ; end check

Instead I'd use:

Code - Auto/Visual Lisp: [Select]

1. (wcmatch (cdr (assoc 0 (entget a))) "*TEXT")

[MSTG007]

Thanks for checking that out. I think I found the issue. In the lisp above it calls for the full "%<\AcSm Sheet.Title>%". But when I go to edit the field it shows the field expression as "%<AcSm Sheet.Title>%" without the (\) in it.

[ronjonp]

Use: "%<\\AcSm Sheet.Title>%"

[MSTG007]

Guess what. Solved! works awesome.

[ChrisCarlson]

Derp, was too early in the morning 

[MSTG007]

lol. Thanks though