已经解决问题！谢谢

青春的滋味

      (setq n (1+ n))
    ) ;_ 结束if
  ) ;_ 结束repeat
  (ssget->list ss1)
  (setq        lst1_e lst2
        lst2 nil
  ) ;_ 结束setq
  (setq n 0)
  ;(setq mm (getint"\n 请指定起始编号:"))----
  (setq mm 1)
  (setq mm (1-(+ mm (length lst1_e))))
  (repeat (length lst1_e)
    (setq vla_en (vlax-ename->vla-object (setq e1 (nth n lst1_e))))
    (cond ((= (entype vla_en) "AcDbPolyline")
           (setq fengbi_tf (vla-get-closed vla_en))
           (if (= fengbi_tf :vlax-true)
             (progn
               (setq zhouchang (vla-get-length vla_en)
                     mianji    (vla-get-area vla_en)
           
                  (list        e1

  (if *height* (setq height (getdist(strcat "\n 请输入文字高度<"(rtos *height* 2 0)">:")))
  (setq heigh
       ;(REDRAW (cAr(nth n lst_zc&mj)) 3)
       (PRINC"\n根据亮显图元顺序插入!")
     ;(INITGET 1)
    (SETQ PT1 (GETPOINT"\n 请选择插入点："))
       ;(if *b
     (setq n(length lst_zc&mj))
     )
       )
     )
     )

  (initget 7 "Yes No
(setq key "Tu")
  ;;;;;;;全部写数据到EXCEL
(cond((= key "Yes")
(setq ff1 (getfiled "写出文件" "" "CSV" 1))
(setq ff2 (open ff1 "a"))
(princ (strcat "编号Q,""周长C(m),""面积S(m2)" "板厚H") ff2)

  (princ)
  )

(setq lst2_e lst2 lst2 nil)
(setq n 0)
(repeat (length lst2_e)
  (setq ssdata (cdr(assoc 1(entget (nth n lst2_e)))))
  (setq lst_ssdata (append lst_ssdata (list ssdata)))
  (setq n (1+ n ))
  )
;(setq lst_ssdata (reverse lst_ssdata ))
(fgb lst_ssdata)
(setq ff1
(princ (strcat "编号Q,""周长C(m),""面积S(m2)" "板厚H") ff2)
(pri
(print ff2)
(setq i (1+ i))      
)
(close ff2)
(alert (strcat "\n已经生成文件: " ff1))
(print)
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;将表内元素每4个进行分割重新组表;;;;;;;;;;;;;;;;;;;;;;;;;

  )

(defun c:we() (we))
(princ "\n 测量墙体面积周长并输出到excel，BY YJR111 2011-12-13 ，命令:ygq...重新统计命令：we!")