excel列表数值转换进ACAD绘制图形

xsf102501

求教：

       如何用excel程序计算出的坐标值作为ACAD中样板曲线或pline线的连接节点绘制spline线或pline线，例如位于sheet1中E列（x坐标）F列（y坐标）？

        非常感谢！

     一个初学者

xyp1964

1. 如果用txt格式会更简单！

复制代码

1. 参考：(load "xyp_lib.vlx") ;版本 V.20060210
2. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
3. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
4. ★1·在acad.lsp中增加(load"xyp_lib")
5. ■2·在每个程序内增加(load"xyp_lib")
6. ■3·在command下，输入(load"xyp_lib")
7. ■4·在菜单.mnl中增加(load"xyp_lib")
8. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
9. [COLOR=red] ★通用函数下载地址：[/COLOR]
10. [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]
11. |;

复制代码

2. ;;;数据画线。数据格式与test065相匹配
3. (defun c:SJHX () (c:test141))
4. (defun c:test141 ()
5.   (cmdla0)
6.   (alert (strcat "数据格式:"  "\nX坐标 Y坐标 Z坐标"
7.    "\nX坐标 Y坐标 Z坐标" "\nX坐标 Y坐标 Z坐标"
8.    "\n..."  "\n..."
9.    "\n..."
10.   )
11.   )
12.   (prompt "\n稍候 : ")
13.   (MKLA "建筑-红线" 1)
14.   (while (not
15.     (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
16.   )
17.   )
18.   (setq fle    (findfile tn)
19. pt-lst '()
20.   )
21.   (if (not fle)
22.     (setq fle (getfiled "请选择坐标数据文件" "" "txt;dat;*" 8))
23.   )
24.   (if fle
25.     (progn
26.       (setq fn (open fle "r")
27.      n  0
28.       )
29.       (command "pline")
30.       (while (setq pt (read-line fn))
31. (setq pt     (read (strcat "(" pt ")"))
32.        pt-lst (cons pt pt-lst)
33.        n      (1+ n)
34. )
35. (command pt)
36. (princ ".")
37.       )
38.       (command "")
39.       (close fn)
40.       (jzhz)
41.       (MKLA "坐标" 3)
42.       (mapcar '(lambda (#pt) (xyp-zb #pt 1000 nil)) pt-lst)
43.       (princ "共输入和标注 ")
44.       (princ n)
45.       (princ " 个坐标点!")
46.     )
47.     (princ "\n未选择数据文件，退出")
48.   )
49.   (cmdla1)
50. )

;;;数据画线。数据格式与test065相匹配 (defun c:SJHX () (c:test141)) (defun c:test141 ()   (cmdla0)   (alert (strcat "数据格式:"  "\nX坐标 Y坐标 Z坐标"    "\nX坐标 Y坐标 Z坐标" "\nX坐标 Y坐标 Z坐标"    "\n..."  "\n..."    "\n..."   )   )   (prompt "\n稍候 : ")   (MKLA "建筑-红线" 1)   (while (not     (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))   )   )   (setq fle    (findfile tn) pt-lst '()   )   (if (not fle)     (setq fle (getfiled "请选择坐标数据文件" "" "txt;dat;*" 8))   )   (if fle     (progn       (setq fn (open fle "r")      n  0       )       (command "pline")       (while (setq pt (read-line fn)) (setq pt     (read (strcat "(" pt ")"))        pt-lst (cons pt pt-lst)        n      (1+ n) ) (command pt) (princ ".")       )       (command "")       (close fn)       (jzhz)       (MKLA "坐标" 3)       (mapcar '(lambda (#pt) (xyp-zb #pt 1000 nil)) pt-lst)       (princ "共输入和标注 ")       (princ n)       (princ " 个坐标点!")     )     (princ "\n未选择数据文件，退出")   )   (cmdla1) )