[求助]敬请sailorcwx帮忙,取消汇总

njwtg

sailorcwx您好,在您编的程序中,我现在不需要其中的线段按图层线型汇总的命令,只需要能将线段的长度(带有图层线型的信息,您的程序中有这个功能的,这个功能不要取消)导出到excel就行了,请您修改一下,谢谢您

njwtg

sailorcwx您好,能否请您帮忙解决一下,谢谢了

sailorcwx

统计线形总长度

(vlax-put-property YH_s2_cells 'item YH_s2_column 1 (strcat "线型\"" YH_s2_linetype "\"线段长度合计"))
            (vlax-put-property YH_s2_cells 'item YH_s2_column 4 (strcat "=SUM(D" (itoa YH_s2_column1) ":D" (itoa (- YH_s2_column 1)) ")"))
                        (setq YH_s2_layerct (append YH_s2_layerct (list YH_s2_column))
                  YH_s2_column (1+ YH_s2_column)
                  )
统计图层总长度

 (setq YH_s2_sum (apply 'strcat (mapcar '(lambda(i) (strcat "D" (itoa i) "+")) YH_s2_layerct))
           YH_s2_sum (strcat "=" (substr YH_s2_sum 1 (- (strlen YH_s2_sum) 1)))
           )
         (vlax-put-property YH_s2_cells 'item YH_s2_column 1 (strcat "图层\"" YH_s2_layer "\"线段长度合计"))
         (vlax-put-property YH_s2_cells 'item YH_s2_column 4 YH_s2_sum)
         (setq YH_s2_tt (append YH_s2_tt YH_s2_layerct)
           YH_s2_column (1+ YH_s2_column)
           )
统计所有长度

(setq YH_s2_sum (apply 'strcat (mapcar '(lambda(i) (strcat "D" (itoa i) "+")) YH_s2_tt))
    YH_s2_sum (strcat "=" (substr YH_s2_sum 1 (- (strlen YH_s2_sum) 1)))
    )
  (vlax-put-property YH_s2_cells 'item YH_s2_column 1 "总计")
  (vlax-put-property YH_s2_cells 'item YH_s2_column 4 YH_s2_sum)
  (vlax-release-object YH_s2_excel)

njwtg

谢谢您,终于可以用了,

ruirui999

sailorcwx 你的管道系统昨样了喃？