纳税服务系统【条件查询数据回显、分页】

前言

前面我们已经完成了条件查询的功能,可以根据用户给出的条件进行查询数据。但是呢,还是有一些小毛病的。我们来看看:

这里写图片描述

当我们查询数据时候,对查询出来的数据进行操作。操作完毕后,它回到的不是我们查询后的数据,而是我们的初始化数据。这明显是不合适的,当用户操作完后,我们应该返回的还是条件查询出来的数据

还有一点的就是:我们的分页还没写……因此,本文主要解决这两个问题。

数据回显

首先,我们来分析一下为什么我们操作完毕后,得到的是初始化的数据。我们按照用户的操作来看看到底哪里出了问题。

  1. 用户按条件查询数据,显示查询后的数据
  2. 用户点击编辑/删除对查询后的数据操作,交给Action处理
  3. Action返回给显示页面jsp
  4. JSP页面提交请求到Action中,Action进行处理
  5. 最后Action重定向到listUI

那么在这个过程,我们遇到什么问题呢???

这里写图片描述


处理1.0

在Action中使用一个变量封装着查询条件

    /************获取查询条件的值*************************/
    private String selectCondition;
    public String getSelectCondition() {
        return selectCondition;
    }
    public void setSelectCondition(String selectCondition) {
        this.selectCondition = selectCondition;
    }

当请求到Action时,我们将查询条件的值取出来,发给对应的JSP页面

    public String editUI() {

        //得到所有的信息类型
        ActionContext.getContext().getContextMap().put("infoTypeMap", Info.INFO_TYPE_MAP);
        //外边已经传了id过来了,我们要找到id对应的Info
        if (info != null && info.getInfoId() != null) {

            //把查询条件发给JSP页面
            ActionContext.getContext().getContextMap().put("selectCondition", info.getTitle());

            //直接获取出来,后面JSP会根据Info有getter就能读取对应的信息!
            info = infoServiceImpl.findObjectById(info.getInfoId());

        }
        return "editUI";
    }

JSP页面把发送过来的值存储好,通过隐藏域发送给Action



    <%--把查询条件带过去给Action--%>
    <s:hidden name="selectCondition"/>

重新抵达到Action的时候,由于Struts2有自动封装的功能,所以可以把查询条件封装到selectCondition变量中。最后操作完重定向到listUI界面

由于是重定向,所以我们需要在struts配置文件中把我们的查询条件带过去:


    <result name="list" type="redirectAction">
        <param name="actionName">info_listUI</param>

        <!--重定向回去的时候,把查询条件带上-->
        <param name="info.title">${selectCondition}</param>
    </result>

当然啦,在删除的时候,把查询条件记录下来就行了。


    //删除
    public String delete() {
        selectCondition = info.getTitle();
        String id = info.getInfoId();
        infoServiceImpl.delete(id);
        return "list";
    }
  • 效果:

这里写图片描述

处理2.0

上面我们的确解决了查询后数据回显的情况,但是如果我们的查询条件是中文的话,会怎么样??

这里写图片描述

变成了乱码了…..在解决它之前,我们又来分析一下为什么出现乱码了….

  • 我们知道Struts2使用post提交表单的数据,内部会自动帮我们转化编码的。也就是说,我们的乱码肯定不是在表单传输的过程中搞乱的。
  • 那就是在重定向的时候,中文参数的数据搞乱了。

  • 我们在配置文件上,要传递参数的时候,设置编码:


        <!--传输数据的时候需要编码-->
        <param name="encode">true</param>
  • 在Action中读取这个数据的时候,我们解码就行了.

    if (info != null) {
        if (StringUtils.isNotBlank(info.getTitle())) {
            selectCondition =  URLDecoder.decode(info.getTitle(),"UTF-8");
            info.setTitle(selectCondition);

            queryHelper.addCondition(" i.title like ? ", "%" + info.getTitle() + "%");
        }
    }

分页

分页对我们来说也不是陌生的事情了,我曾经在写JDBC博文的时候就讲解过分页了:http://blog.csdn.net/hon_3y/article/details/53790092

分页的复用代码http://blog.csdn.net/hon_3y/article/details/70051541

我们这一次还是使用回我们的分页复用代码,具体不同的需求,在上面修改即可了。

在dao和daoImpl中添加方法

  • dao方法
    /**
     *
     * @param queryHelper 查询助手,条件查询都交给查询助手来干
     * @param currentPage 当前页数
     * @return
     */
    PageResult getPageResult(QueryHelper queryHelper, int currentPage);
  • 在查询助手queryHelper中添加一个查询总记录数的sql语句

    /**
     *
     * @return 返回查询总记录数的sql语句
     */
    public String getTotalRecordSql() {
        return "SELECT COUNT(*) " + fromClause + whereClause;
    }
  • daoImpl实现:

  • 先查询总记录数

  • 初始化Page对象
  • 查询分页数据,将分页数据设置到Page对象中
  • 返回Page对象

    public PageResult getPageResult(QueryHelper queryHelper, int currentPage) {

        //查询总记录数
        Query queryCount = getSession().createQuery(queryHelper.getTotalRecordSql());
        if (queryHelper.getObjectList() != null) {
            int i =0;
            for (Object o : queryHelper.getObjectList()) {
                queryCount.setParameter(i, o);
                i++;
            }
        }
        Long totalRecord = (Long) queryCount.uniqueResult();

        //初始化PageResult对象
        PageResult pageResult = new PageResult(currentPage, totalRecord);

        //查询具体模块的数据【有查询条件的也可以处理】
        Query query = getSession().createQuery(queryHelper.returnHQL());
        if (queryHelper.getObjectList() != null) {
            int i =0;
            for (Object o : queryHelper.getObjectList()) {
                query.setParameter(i, o);
                i++;
            }
        }


        //设置分页开始和末尾
        query.setFirstResult(pageResult.getStartIndex());
        query.setMaxResults(pageResult.getLineSize());
        List dataList = query.list();

        //将条件查询出来的数据设置到Page对象中
        pageResult.setList(dataList);
        return pageResult;
    }

在service和serviceImpl中添加方法

  • baseService

    PageResult getPageResult(QueryHelper queryHelper, int currentPage);
  • baseServiceImpl

    public PageResult getPageResult(QueryHelper queryHelper, int currentPage) {
        return baseDao.getPageResult(queryHelper, currentPage);
    }

在Action中调用service的方法

设置我们需要用到的分页属性。


    private int currentPageCount;
    private PageResult pageResult;
    public int getCurrentPageCount() {
        return currentPageCount;
    }
    public void setCurrentPageCount(int currentPageCount) {
        this.currentPageCount = currentPageCount;
    }
    public PageResult getPageResult() {
        return pageResult;
    }
    public void setPageResult(PageResult pageResult) {
        this.pageResult = pageResult;
    }

判断我们的当前页是否为0【如果为0,就代表着刚初始化值,我们设置为1】,调用service的方法得到分页对象


    //当前页数没有值,那么赋值为1
    if (currentPageCount == 0) {
        currentPageCount = 1;
    }
    pageResult = infoServiceImpl.getPageResult(queryHelper,currentPageCount);

在JSP页面中,我们遍历分页对象的集合就可以获取分页的数据了。


   <s:iterator value="pageResult.list" status="st">

效果:

这里写图片描述


抽取属性

我们的分页属性和查询条件数据不单单只有Info模块用的,于是我们将分页数据抽取到BaseAction中


    /************分页属性*************************/
    protected int currentPageCount;
    protected PageResult pageResult;
    public int getCurrentPageCount() {
        return currentPageCount;
    }
    public void setCurrentPageCount(int currentPageCount) {
        this.currentPageCount = currentPageCount;
    }
    public PageResult getPageResult() {
        return pageResult;
    }
    public void setPageResult(PageResult pageResult) {
        this.pageResult = pageResult;
    }

    /************获取查询条件的值*************************/
    protected String selectCondition;
    public String getSelectCondition() {
        return selectCondition;
    }
    public void setSelectCondition(String selectCondition) {
        this.selectCondition = selectCondition;
    }

修改其他的模块,也能够拥有条件查询和分页查询这两个功能:以用户模块为例。

  • 将查询的对象设置为User,根据用户名的名字来进行条件查询。

    //抛出Action异常
    public String listUI() throws ServiceException, UnsupportedEncodingException {
        QueryHelper queryHelper = new QueryHelper(User.class, "u");
        //根据info是否为null来判断是否是条件查询。如果info为空,那么是查询所有。
        if (user != null) {
            if (org.apache.commons.lang.StringUtils.isNotBlank(user.getName())) {
                selectCondition =  URLDecoder.decode(user.getName(),"UTF-8");
                user.setName(selectCondition);
                queryHelper.addCondition(" u.name like ? ", "%" + user.getName() + "%");
            }
        }
        //当前页数没有值,那么赋值为1
        if (currentPageCount == 0) {
            currentPageCount = 1;
        }
        pageResult = userServiceImpl.getPageResult(queryHelper,currentPageCount);
        return "listUI";
    }
  • 在JSP页面遍历的是分页对象,导入我们的分页下标下表JSP
        <s:iterator value="pageResult.list">
        <jsp:include page="/common/pageNavigator.jsp"/>

处理查询后数据回显的问题:

  • 在跳转到编辑页面之前,把查询条件记录下来。不然就会被覆盖掉了。

    public String editUI() {

        //把所有的角色查询出来,带过去给JSP页面显示
        ActionContext.getContext().getContextMap().put("roleList", roleServiceImpl.findObjects());

        //外边已经传了id过来了,我们要找到id对应的User
        if (user != null &&user.getId() != null  ) {

            //得到查询条件
            selectCondition = user.getName();

            //直接获取出来,后面JSP会根据User有getter就能读取对应的信息!
            user = userServiceImpl.findObjectById(user.getId());

            //通过用户的id得到所拥有UserRole
            List<UserRole> roles = userServiceImpl.findRoleById(user.getId());
            //把用户拥有角色的id填充到数组中,数组最后回显到JSP页面
            int i=0;
            userRoleIds =  new String[roles.size()];
            for (UserRole role : roles) {
                userRoleIds[i++] = role.getUserRoleId().getRole().getRoleId();
            }

        }
        return "editUI";
    }
  • 在显示编辑页面的JSP上,把查询条件带过去给Action

    <%--把查询条件通过隐藏域带过去给Action--%>
    <s:hidden name="selectCondition"></s:hidden>
  • 最后,当编辑完,重定向的时候,也要将查询条件带过去。预防着中文的问题,我们对其进行编码

        <action name="user_*" class="zhongfucheng.user.action.UserAction" method="{1}">
            <result name="{1}" >/WEB-INF/jsp/user/{1}.jsp</result>

            <!--返回列表展示页面,重定向到列表展示-->
            <result name="list" type="redirectAction">
                <param name="actionName">user_listUI</param>
                <param name="user.name">${selectCondition}</param>
                <param name="encode">true</param>
            </result>
        </action>
  • 在删除的时候,也要把查询条件记录下来。

    //删除
    public String delete() {
        if (user != null && user.getId() != null) {

            //记载着查询条件
            selectCondition = user.getName();

            userServiceImpl.delete(user.getId());
        }
        return "list";
    }
'统计字符串中是否有文字,是否全是数字 Function hasnoChinese(str) bl = True For i = 1 to Len(str) - 0 'ss=CStr(Asc(Mid(str,i,1))) 'msgbox ss If Asc(Mid(str,i,1)) < 0 Then bl = False End If Next hasnoChinese = bl End Function Function UnAdjustNote(FontClass,dx,dy,widscale,heightscale,nochinese) SSProcess.ClearSelection SSProcess.ClearSelectCondition SSProcess.SetSelectCondition "SSObj_Type", "=", "NOTE" SSProcess.SetSelectCondition "SSObj_FontClass", "=", FontClass SSProcess.SetSelectCondition "[DGNAttr_FontID]", "<>", "188" SSProcess.SelectFilter SSProcess.PushUndoMark notecount = SSProcess.GetSelNoteCount 'msgbox notecount For i=0 To notecount-1 txtx=SSProcess.GetSelNoteValue( i, "SSObj_FontString") If hasnoChinese(txtx) = nochinese Then pointcount = SSProcess.GetSelNotePointCount(i) For j=0 To pointcount-1 Dim x, y, z, pointtype, name SSProcess.GetSelNotePoint i, j, x, y, z, pointtype, name x = x - dx y = y - dy SSProcess.SetSelNotePoint i, j, x, y, z, pointtype, name Next wid=SSProcess.GetSelNoteValue( i, "SSObj_FontWidth") hit=SSProcess.GetSelNoteValue( i, "SSObj_FontHeight") wid1=CStr(CDbl(wid) / widscale) hit1=CStr(CDbl(hit) / heightscale) SSProcess.SetSelNoteValue i, "SSObj_FontWidth", wid1 SSProcess.SetSelNoteValue i, "SSObj_FontHeight", hit1 SSProcess.AddSelNoteToSaveNoteList i End If Next End Function Function changeNoteDw() UnAdjustNote "#",0,0,1.16,1,True UnAdjustNote "#",0,0,1.16,1,False UnAdjustNote "FZ",0,0,1.25,1,True UnAdjustNote "FZ",0,0,1.25,1,False UnAdjustNote "@",0,0,1.275,1,True UnAdjustNote "@",0,0,1.275,1,False UnAdjustNote "899000",0,0,1.27,1,True UnAdjustNote "899000",0,0,1.27,1,False UnAdjustNote "DXLC",0,0,1.333,1,True UnAdjustNote "DXLC",0,0,1.333,1,False UnAdjustNote "499000",-0.117,0,1,1.3,True UnAdjustNote "499000",-0.117,0,1,1.3,False End Function Function UnAdjustNote1(EpsFontClass,dx,dy,widscale,heightscale,nochinese) SSProcess.ClearSelection SSProcess.ClearSelectCondition SSProcess.SetSelectCondition "SSObj_Type", "=", "NOTE" SSProcess.SetSelectCondition "SSObj_FontClass", "=", EpsFontClass SSProcess.SelectFilter SSProcess.PushUndoMark notecount = SSProcess.GetSelNoteCount 'msgbox notecount For i=0 To notecount-1 txtx=SSProcess.GetSelNoteValue( i, "SSObj_FontString") If hasnoChinese(txtx) = nochinese Then pointcount = SSProcess.GetSelNotePointCount(i) For j=0 To pointcount-1 Dim x, y, z, pointtype, name SSProcess.GetSelNotePoint i, j, x, y, z, pointtype, name x = x - dx y = y - dy SSProcess.SetSelNotePoint i, j, x, y, z, pointtype, name Next wid=SSProcess.GetSelNoteValue( i, "SSObj_FontWidth") hit=SSProcess.GetSelNoteValue( i, "SSObj_FontHeight") wid1=CStr(CDbl(wid) / widscale) hit1=CStr(CDbl(hit) / heightscale) SSProcess.SetSelNoteValue i, "SSObj_FontWidth", wid1 SSProcess.SetSelNoteValue i, "SSObj_FontHeight", hit1 SSProcess.AddSelNoteToSaveNoteList i End If Next End Function Function changeNoteDw1() '属于86号字体(居民地注记) UnAdjustNote1 "297000",2.5,0,1.33,1.25,True UnAdjustNote1 "297000",2.5,0,1.33,1.25,False UnAdjustNote1 "297100",1.25,-0.3,1.33,1.25,True UnAdjustNote1 "297100",1.25,-0.3,1.33,1.25,False UnAdjustNote1 "297200",2.25,-0.3,1.33,1.25,True UnAdjustNote1 "297200",2.25,-0.3,1.33,1.25,False UnAdjustNote1 "297500",1.8,0,1.33,1.33,True UnAdjustNote1 "297500",1.8,0,1.33,1.33,False '属于86号字体(地貌注记) UnAdjustNote1 "881000",0.7,-0.15,1.3,1.25,True UnAdjustNote1 "881000",0.7,-0.15,1.3,1.25,False UnAdjustNote1 "882000",0.7,-0.15,1.3,1.33,True UnAdjustNote1 "882000",0.7,-0.15,1.3,1.33,False '属于242号字体(居民地注记) UnAdjustNote1 "297300",1.6,0,1.3,1.3,True UnAdjustNote1 "297300",1.6,0,1.3,1.3,False UnAdjustNote1 "297400",2,0,1.3,1.3,True UnAdjustNote1 "297400",2,0,1.3,1.3,False '属于86号字体(水系注记) 'UnAdjustNote "698100",0.3,0.25,1.25,1.4,True 'UnAdjustNote "698100",0.3,0.25,1.25,1.4,False UnAdjustNote1 "698100",-0.2,0,1.27,1.25,True UnAdjustNote1 "698100",-0.2,0,1.27,1.25,False UnAdjustNote1 "698200",-0.1,0.1,1.27,1.26,True UnAdjustNote1 "698200",-0.1,0.1,1.27,1.26,False UnAdjustNote1 "698300",-0.1,0.1,1.27,1.26,True UnAdjustNote "698300",-0.1,0.1,1.27,1.26,False '属于43号字体(居民地注记) UnAdjustNote1 "298000",0,-0.1,1.2,1.3,True UnAdjustNote1 "298000",0,-0.1,1.2,1.3,False UnAdjustNote1 "298200",0,-0.1,1.23,1.3,True UnAdjustNote1 "298200",0,-0.1,1.23,1.3,False '属于43号字体(交通注记注记) UnAdjustNote1 "498000",0.3,0,1.35,1.5,True UnAdjustNote1 "498000",0.3,0,1.35,1.5,False UnAdjustNote1 "498100",0.5,0,1.35,1.5,True UnAdjustNote1 "498100",0.5,0,1.35,1.5,False '属于88号字体(交通注记) UnAdjustNote1 "498200",1.3,-0.15,1.33,1.35,True UnAdjustNote1 "498200",1.3,-0.15,1.33,1.35,False UnAdjustNote1 "498300",1.3,-0.15,1.33,1.35,True UnAdjustNote1 "498300",1.3,-0.15,1.33,1.35,False UnAdjustNote1 "498400",1,-0.15,1.33,1.35,True UnAdjustNote1 "498400",1,-0.15,1.33,1.35,False End Function Function AddNewPointFormLine(Code,NewCode,distx,disty) SSProcess.ClearSelection SSProcess.ClearSelectCondition SSProcess.SetSelectCondition "SSObj_Type", "=", "LINE" SSProcess.SetSelectCondition "SSObj_Code", "=", Code SSProcess.SelectFilter geocount = SSProcess.GetSelGeoCount For i = 0 To geocount - 1 sso= SSProcess.GetSelGeoPointCount(i) If sso = 5 or sso = 4 Then '取出处理对象 ppid = SSProcess.GetSelGeoValue( i, "SSObj_ID") ppcode = SSProcess.GetSelGeoValue( i, "SSObj_Code") '取出对象点坐标 x0 = CDbl(SSProcess.GetObjectAttr( ppid, "SSObj_X(0)")) y0 = CDbl(SSProcess.GetObjectAttr( ppid, "SSObj_Y(0)")) x1 = CDbl(SSProcess.GetObjectAttr( ppid, "SSObj_X(1)")) Y1 = CDbl(SSProcess.GetObjectAttr( ppid, "SSObj_Y(1)")) x3 = CDbl(SSProcess.GetObjectAttr( ppid, "SSObj_X(3)")) y3 = CDbl(SSProcess.GetObjectAttr( ppid, "SSObj_Y(3)")) '算出准备插入点符号的位置x,y If ppcode <> 515100 Then x = (x0 + x3)/2 y = (y0 + y3)/2 '距离 dist1 = sqr((x0-x3)*(x0-x3)+(y0-y3)*(y0-y3)) dist2 = sqr((x0-x1)*(x0-x1)+(y0-y1)*(y0-y1)) scalex = dist1/distx scaley = dist2/disty '角度 Dx = x1-x0 Dy = y1-y0 If Dx = 0 and Dy > 0 Then arc = 0 ElseIf Dx = 0 and Dy < 0 Then arc = 3.1415926 ElseIf Dx < 0 and Dy < 0 Then arc = 3.1415926-atn(Dx/Dy) ElseIf Dx < 0 and Dy = 0 Then arc = 3.1415926/2 ElseIf Dx > 0 and Dy = 0 Then arc = -3.1415926/2 ElseIf Dx > 0 and Dy < 0 Then arc = 3*3.1415926-atn(Dx/Dy) Else arc = 2*3.1415926-atn(Dx/Dy) End If Else x = (x1 + x3)/2 y = (y1 + y3)/2 '距离 dist1 = sqr((x0-x3)*(x0-x3)+(y0-y3)*(y0-y3)) dist2 = sqr((x0-x1)*(x0-x1)+(y0-y1)*(y0-y1)) scalex = dist1/distx scaley = dist2/disty '角度 Dx = x1-x0 Dy = y1-y0 If Dx = 0 and Dy > 0 Then arc = 0 ElseIf Dx = 0 and Dy < 0 Then arc = 3.1415926 ElseIf Dx < 0 and Dy < 0 Then arc = 3.1415926-atn(Dx/Dy) ElseIf Dx < 0 and Dy = 0 Then arc = 3.1415926/2 ElseIf Dx > 0 and Dy = 0 Then arc = -3.1415926/2 ElseIf Dx > 0 and Dy < 0 Then arc = 3*3.1415926-atn(Dx/Dy) Else arc = 2*3.1415926-atn(Dx/Dy) End If End If '按照x,y,scale插入点符号 SSProcess.CreateNewObj 0 SSProcess.SetNewObjValue "SSObj_Code", NewCode SSProcess.SetNewObjValue "SSObj_LineType", "0" SSProcess.SetNewObjValue "SSObj_LayerName", "DEFAULT" SSProcess.SetNewObjValue "SSObj_Color", "RGB(255,255,0)" SSProcess.SetNewObjValue "SSObj_Angle", arc SSProcess.SetNewObjValue "SSObj_ScaleX", scalex SSProcess.SetNewObjValue "SSObj_ScaleY", scaley SSProcess.AddNewObjPoint x, y, 0, 0, "" SSProcess.AddNewObjToSaveObjList End If Next End Function Function lineTopoint() AddNewPointFormLine "221100","2211001","1","0.75" AddNewPointFormLine "861100","8611001","1","0.5" AddNewPointFormLine "515100","5151001","0.5","0.5" End Function Function arcTodgn() SSProcess.ClearSelection SSProcess.ClearSelectCondition SSProcess.SetSelectCondition "SSObj_Type", "==", "LINE" SSProcess.SetSelectCondition "SSObj_LineType", "==", "4" SSProcess.SetSelectCondition "<Clockwise>", "==", "1" SSProcess.SelectFilter geoCount = SSProcess.GetSelGeoCount For i=0 To geoCount-1 geoID = CLng(SSProcess.GetSelGeoValue (i, "SSObj_ID")) SSProcess.ObjectDeal geoID, "GotoPoints", "", result Next End Function Function ExportDgn( fileName ) SSProcess.SetMapStatus 1,2 '输出DGN前的锁库处理 changeNoteDw changeNoteDw1 lineTopoint arcTodgn '工作台面目录下的DGN种子文件 dgnSeedFile = SSProcess.GetSysPathName (8) & "seed5h.dgn" '工作台面目录下的线型对照文件 dgnlinestylefile = SSProcess.GetSysPathName (8) & "dgnlinestyle.lin" '清空转换参数 SSProcess.ClearDataXParameter '设置输出文件格式为DGN SSProcess.SetDataXParameter "DataType", "9" 'DGN种子文件 SSProcess.SetDataXParameter "EXCHANGE_DGN_SeedFile", dgnSeedFile 'DGN线型对照文件 SSProcess.SetDataXParameter "EXCHANGE_DGN_LineStyleFile", dgnlinestylefile '设置输出文件名 SSProcess.SetDataXParameter "ExportPathName", fileName '设置使用编码表 SSProcess.SetDataXParameter "FeatureCodeTBName", "FeatureCodeTB_OutDgn" SSProcess.SetDataXParameter "SymbolScriptTBName", "SymbolScriptTB_OutDgn" SSProcess.SetDataXParameter "NoteTemplateTBName", "NoteTemplateTB_OutDgn" SSProcess.SetDataXParameter "ExplodeObjLayerStatus","0" SSProcess.SetDataXParameter "DataBoundMode", "2" SSProcess.SetDataXParameter "LayerRelationCount", "1" SSProcess.SetDataXParameter "LayerRelation1", "图廓层:60:60:60:60:60" '打散对象编组输出 SSProcess.SetDataXParameter "ExplodeObjMakeGroup", "1" '颜色使用编码表指定 SSProcess.SetDataXParameter "ColorUseStatus", "0" '图层使用编码表指定 SSProcess.SetDataXParameter "LayerUseStatus", "0" '面地物输出方式 0 Shape 1 LineString SSProcess.SetDataXParameter "EXCHANGE_DGN_ExportAreaMode", "1" '线串最多点数 SSProcess.SetDataXParameter "EXCHANGE_DGN_MaxLineStringPointCount", "101" '开始输出数据 SSProcess.ExportData SSProcess.SetMapStatus 0,2 SSProcess.MapMethod "Unloaddata","" SSProcess.MapMethod "loaddata", "" End Function Sub OnClick() pathName = SSProcess.SelectPathName( ) If pathName = "" Then Exit Sub End If SSProcess.CreateMapFrame frameCount = SSProcess.GetMapFrameCount() For i=0 To frameCount-1 SSProcess.GetMapFrameCenterPoint i, x, y SSProcess.SetCurMapFrame x, y, 0, "" frameID = SSProcess.GetCurMapFrame() mapNumber = SSProcess.GetObjectAttr( CLng(frameID), "[MapNumber]") If mapNumber <> "" Then fileName = pathName & mapNumber & ".DGN" ExportDgn fileName End If Next SSProcess.FreeMapFrame End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值