MASK TXT or MTXT lsp=>VB ??? SETDATA/GETDATA/SELECTIONSET/MTXT

BONJOUR

Je cherche à transformer le Lisp en VB et j'ai du mal avec GetData SetData et DXF Code 0 "TEXTMULT" .... par la selectionset.

Peut être avec un exemple, mais je ne trouve pas

Code LISP en VB:

HELLO

I'm looking to transform the lisp in VB and I have trouble with GetData and SetData DXF code 0 "MTEXT" .... through the selectionset.

Can be with an example but I do not find

LISP code into VB:

(defun c:MASKTXT (/ ss n txt)
 (vl-load-com)
 (if (setq ss (ssget '((0 . "MTEXT"))))
   (progn
     (vla-StartundoMark
   (vla-get-Activedocument (vlax-get-acad-object))
     )
     (repeat (setq n (sslength ss))
   (if (= 1 (length lst))
     (progn
       (setq
         txt (vlax-ename->vla-object (ssname ss (setq n (1- n))))
       )
       (vla-put-BackgroundFill txt :vlax-false)
     )
   )
;;(441 . 14529772)  (421 . 16777215) (441 . 0)
   (progn
     (setq txt (entget (ssname ss (setq n (1- n)))))
     (entmod (append
           (vl-remove-if
             '(lambda (x)
            (or (member (car x) '(90 63 421 45 ))
                (<= 420 (car x) 429)
            )
              )
             txt
           )
           '((90 . 1) (63 . 255) (421 . 16777215) (45 . 1.3))
         )
     )
   )
     )
     (vla-EndundoMark
   (vla-get-Activedocument (vlax-get-acad-object))
     )
   )
 )
 (princ)
) 

Merci pour votre aide

Thank you for your help