; 单选词中英文互译[mini_youdao].lsp
(defun c:mini_youdao ( / old_cmd ent oldval newval)
    (mai_start nil)
    (setq ent (mai_entsel T
                          "多样单选翻译，选择文字、块内文字、属性、属性定义、尺寸文字:<退出>"
                          "选择的不是普通文字text."
                          '((0 . "*text,attrib,attdef,*DIMENSION"))
                          nil
            )
    )
    (or ent (exit))
    (and (not (vl-catch-all-error-p (setq ent (vl-catch-all-apply 'vlax-ename->vla-object (list (car ent))))))
         (not (vl-catch-all-error-p (setq oldval (vl-catch-all-apply 'vlax-get (list ent 'textstring)))))
         (setq newval (mai_translate_youdao (mai_Clear_mtformat oldval)))
         (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put (list ent 'textstring newval)))
    )
    (mai_end)
)

