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

njwtg

在下面的程序代码中有将线段的长度按图层,线型汇总的命令,现在我不需要汇总,请问怎么修改

(setq YH_s2_sheet (vla-add (vlax-get-property YH_s2_exlwbk 'worksheets))
 YH_s2_cells (vlax-get-property YH_s2_sheet 'cells)
 )
  (vla-put-name YH_s2_sheet (menucmd "M=$(edtime,$(getvar,date),YYMODDHHMMSS)"))
  (vlax-put-property YH_s2_cells 'item 1 1 "多段线索引")
  (vlax-put-property YH_s2_cells 'item 1 2 "图层")
  (vlax-put-property YH_s2_cells 'item 1 3 "线型")
  (vlax-put-property YH_s2_cells 'item 1 4 "颜色")
  (vlax-put-property YH_s2_cells 'item 1 5 "长度")
  (setq YH_s2_column 2
 YH_s2_tt '()
 )
  (mapcar '(lambda(x)
      (setq YH_s2_layer (car x)
     YH_s2_linetypes (cdr x)
     YH_s2_layerct '()
     )
      (mapcar '(lambda(y)
   (setq YH_s2_linetype (car y)
         YH_s2_lines (cdr y)
         YH_s2_column1 YH_s2_column
         )
   (mapcar '(lambda(z)
       (vlax-put-property YH_s2_cells 'item YH_s2_column 1 (nth 0 z))
       (vlax-put-property YH_s2_cells 'item YH_s2_column 2 YH_s2_layer)
       (vlax-put-property YH_s2_cells 'item YH_s2_column 3 YH_s2_linetype)
       (vlax-put-property YH_s2_cells 'item YH_s2_column 4 (nth 1 z))
       (vlax-put-property YH_s2_cells 'item YH_s2_column 5 (nth 2 z))
       (setq YH_s2_column (1+ YH_s2_column))
       )
    YH_s2_lines
    )
   (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)
         )
   )
       YH_s2_linetypes
       )
      (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)
     )
      )
   YH_s2_data
   )
  (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)
  )