已经解决问题！谢谢
本帖最后由 青春的滋味 于 2015-8-29 16:19 编辑(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!")
页:
[1]
2