【转帖】麻烦高手们帮个忙!!!!!
 

麻烦高手们帮个忙!!!!!
www.dimcax.com
麻烦高手们帮个忙!!!!!
以前班主曾编了这样的程序:
(defun c:getpt( / ss i ents f filename str)
(defun getnum(i)
(if (< 10)
(setq val (strcat "j0" (rtos i)))
(setq val (strcat "j" (rtos i)))
)
val)

(setq ss (ssget '((0 . "lwpolyline"))))
(setq filename (getfiled "打开存放数据的excel电子表格文档" "e:\\wjh\\study\\autolisp\\zhongguola\\" "xls" 1))
(setq f (open filename "w"))
(setq i 0)
(repeat (sslength ss)
(setq ents (entget (ssname ss i)))
(setq ents (mapcar 'cdr (vl-remove-if-not '(lambda(e) (= (car e) 10)) ents)))
(setq i (1+ i))
)
(princ)
(setq i 0)
(repeat (length ents)
(setq item (nth i ents))
(if (> i 0)
(setq str (strcat (getnum i)"\t"(rtos (distance item (nth (1- i) ents)) 2 2) "\t"(rtos (cadr item) 2 3)"\t"(rtos (car item) 2 3)"\t""水泥"))
(setq str (strcat (getnum i)"\t""\t"(rtos (cadr item) 2 3) "\t"(rtos (car item) 2 3)))
)
(if (= (rem i 27) 0)
(write-line (strcat "\n点号""\t""距离""\t""纵坐标(x)""\t""横坐标(y)""\t""界桩材料""\t""备注") f)
)
;(princ "\n")
(write-line str f)
(setq i (1+ i))
)
(close f)
(princ)
)
我运行此程序将cad中的数据保存到电子表格中就成了如:电子表格样本(一)那样了,但是由于工作的需要,我需要的是电子表格(二)的样式,所一恳请编程的高手在这个程序的基础上在改编一下.
要求:和样本(二)的样式一样,行高,列宽都相同,且每个表格只能存放27个电的坐标值.(两个表格交接处距离一列的写入一定要留意)
麻烦各位高手了!
!!!!!

( 24 kb，已被下载 5 次 )
为什么这么久了，还没有一位高手肯站出来说句话呀？？？？？？？
看来你要寂寞相守了！！！！
还是忍着点儿吧！！！！！