Edit Mtext via LISP

[jmerch]

I've searched high and low for a LISP to edit Mtext via LISP and have only found one (thanks Mike Weaver) that is almost what I want. It is posted below but I want it to autoselect a piece of MTEXT that I designate (via ssget). I have modified this code but don't understand Visual LISP enough to know why it's erroring...any help?

Original:

(defun c:mtval( / ent objmtext stroldval 
strnewval)
  (setq
 ent (car (entsel))
 objMText 
(vlax-ename->vla-object ent)
 strOldval (vlax-get-property objMText 
"TEXTSTRING")
 strnewval (getstring T (strcat "\nNew text value<" 
stroldval ">: "))
 )
  (if 
strnewval
 (vlax-put-property objmtext "TEXTSTRING" 
strnewval)
 )
  (vlax-release-object objmtext)
  
)

My modified code:

(defun c:mtval( / getmtext objMText strnewval)
  (setq getmtext (ssget "_X" '((0 . "MTEXT")(1 . "TEST")))
        objMText (vlax-ename->vla-object (entlast))
        strnewval (getstring T "Enter New Text: ")
  )
  (if strnewval (vlax-put-property objmtext "TEXTSTRING" strnewval)
)
  (vlax-release-object objmtext)
 
)

[Tharwat]

Be careful that the text string is case sensitive .

So here it goes buddy.

(defun c:test (/ new ss)
  ; Tharwat 24.02. 2010
  (if (and (setq new (getstring T "Enter New Text: "))
           (setq ss (ssget "_X" '((0 . "MTEXT") (1 . "test"))))
      )
    ((lambda (i / ss1 e)
       (while
         (setq ss1 (ssname ss (setq i (1+ i))))
          (entupd
            (cdr
              (assoc
                -1
                (entmod
                  (subst (cons 1 new) (assoc 1 (setq e (entget ss1))) e)
                )
              )
            )
          )
       )
     )
      -1
    )
    (Alert
      "\n Your replaced text is not found in the drawing....."
    )
  )
  (princ)
)

Tharwat

[jmerch]

that doesn't work... it asks me to select an object then just isolates it....

[alanjt]

  (setq getmtext (ssget "_X" '((0 . "MTEXT")(1 . "TEST"))) <-Select all MText with "TEST" value
        objMText (vlax-ename->vla-object (entlast)) <- converts the last created object to a vla-object (not what you want to do here)

[jmerch]

  (setq getmtext (ssget "_X" '((0 . "MTEXT")(1 . "TEST"))) <-Select all MText with "TEST" value
        objMText (vlax-ename->vla-object (entlast)) <- converts the last created object to a vla-object (not what you want to do here)

I know I'm selecting all Mtext with "Test" value, I understand the ssget function. But on the entlast, i thought that just grabbed the entity data from the last object, I didn't realize it converts the last created object.

In order to edit the Mtext, from what I can tell it has to be a vla-object which is why it's getting converted, right?

[alanjt]

I know I'm selecting all Mtext with "Test" value, I understand the ssget function. But on the entlast, i thought that just grabbed the entity data from the last object, I didn't realize it converts the last created object.

In order to edit the Mtext, from what I can tell it has to be a vla-object which is why it's getting converted, right?

Your selection with ssget has no bearing on (entlast). You need to step through the selectionset with repeat/while or vla-get-activeselectinset.

[Tharwat]

Check this out in VL .

(defun c:test (/ new ss)(vl-load-com)
  ; Tharwat 24.02. 2010
  (if (and (setq new (getstring T "Enter New Text: "))
           (setq ss (ssget "_X" '((0 . "MTEXT") (1 . "test"))))
      )
    ((lambda (i / ss1)
       (while
         (setq ss1 (ssname ss (setq i (1+ i))))
          (vla-put-textstring (vlax-ename->vla-object ss1) new)
       )
     )
      -1
    )
    (Alert
      "\n Your replaced text is not found in the drawing....."
    )
  )
  (princ)
)

Tharwat

[jmerch]

@alan: Maybe I'm not understanding you. I was doing the ssget to "grab" the mtext on my drawing, and thought I needed to convert this to vla-obect. What contains the properties (text string) of mtext? vla-get-activeselectionset isn't a function.

@Tharwat: Same result, it asks 'Select Objects in Current Drawing or Xref'...then isolates it. Why is it doing that? it's not asking me to enter any text or anything...

I appreciate the help from both of you.

[Tharwat]

The two routines that I already posted for you are working normally in Arch. Autocad , but I do not have MEP cad to check these codes for it .

Anyway , can you please copy your command line after fails of the routine with your version ?

Tharwat

[jmerch]

it's not really "failing", just not doing what I want...I wonder what in your code has dependency on the ACAD version...

Command: test
Select Objects in Current Drawing or Xref:
Select Objects in Current Drawing or Xref:
Regenerating model.