求助ARX高手们将模块改写成C#或vb.net

quickmap

CASS3D二次开发提示中有以下功能模块，我用的是VB.net进行二次开发，我不懂C++，垦请懂C++和ARX的人将下面的代码改写成C#或VB.net，此模块的功能是给定一个坐标，通过CASS3D查询并返回高程

void Get3DHeightFromPt()
{根据坐标点获取z值
        ads_point pt = { 0 };
        int err = ads_getpoint(NULL, _T("
根据坐标获取高程："), pt);
        if (err != RTNORM)
        {
                return;
        }
        resbuf *list = NULL;
        resbuf *result = NULL;
        list = acutBuildList(RTSTR, _T("cass3D_getHeight"), RTPOINT, pt, RTNONE);

        if (list != NULL)
        {
                err = acedInvoke(list, &result);
                ads_relrb(list);
                if (err != RTNORM)
                {//三维窗口未打开或者获取高程失败
                        return;
                }
        }
        double z = 0.0;//根据xy计算出来的模型上的高程
        if (result != NULL)
        {
                if (RTREAL == result->restype)
                {
                        z = result->resval.rreal;
                }
                ads_relrb(result);
        }
}

请ARX高手们看看能不能改写。

quickmap

已解决，此贴作废