If iCommandId = 1 Then
       Set mxUtility = New MxDrawXLib.MxDrawUtility
       Dim getPt As MxDrawXLib.MxDrawPoint
       Set ent = mxUtility.GetEntity(getPt, Chr(13) + Chr(10) + "选择多行文字:")

       If (ent Is Nothing) Then
            MsgBox "没有选择实体.."
            Exit Sub
       End If


         If TypeOf ent Is MxDrawXLib.MxDrawMText Then
                '当前实体是个文字实体


                   Dim ret As MxDrawResbuf

                Set ret = MxDrawX1.CallLongParam1("Mx_GetMTextContent", ent.ObjectID)

                If ret.AtString(0) = "Ok" Then
                     MsgBox (ret.AtString(1))
                End If

        End If

        else if(iCmd == 8)
        {
            // 得到网页中的控件对象.
            var mxOcx = document.all.item("MxDrawXCtrl");

            // 与用户交互,在图上选择一个实体
            var ent = mxOcx.GetEntity("选择多行文字:");
            if(ent == null)
            {
                // 用户取消了选择.
                return;
            }

            var param = mxOcx.NewResbuf();
            param.AddObjectId(ent.ObjectID);

            var ret = mxOcx.CallEx("Mx_GetMTextContent",param);
            if(ret.AtString(0) == "Ok")
            {
                alert(ret.AtString(1));
            }
        }