在CAD中画一组圆，坐标、半径从excel表中提取

dzy7252

我现在想在CAD中画一组圆，坐标、半径从excel表中提取，请问如何实现？？？？？？？？？？

meflying

参考一下这个：
http://www.mjtd.com/a2/list.asp?id=348

kevinchan

看不明白,请能帮忙提示一下: 我现在想在CAD中画一组圆，坐标、半径从excel表中提取，请问如何实现？？？？？？？？？？ 格式如下" X Y Radius
-38 0 0.0474054054054
-38 0.44 0.0474054054054
-37.6189488223 0.22 0.0476319763759
-38.3810511777 0.22 0.0471788344349
-37.6189488223 -0.22 0.0476319763759
-38.3810511777 -0.22 0.0471788344349

meflying

看不明白就没办法了，不是一两句话能说清楚的，需要各方面的知识，，，你只有叫别人帮你写，或者慢慢继续学习

kevinchan

说实话,我对lisp一点都不懂,可我现在急需要将文本格式的数据调到CAD里面画圆,请各位帮帮忙! 我愿意付费请哪位帮帮忙! 以下是数据的格式.其中"MaximumHeight"是没用的. X Y MaximumHeight Radius
-38 0 11110 0.0474054054054
-38 0.44 11110 0.0474054054054
-37.6189488223 0.22 11110 0.0476319763759
-38.3810511777 0.22 11110 0.0471788344349
-37.6189488223 -0.22 11110 0.0476319763759
-38.3810511777 -0.22 11110 0.0471788344349
-38 -0.44 11110 0.0474054054054
-38 0.88 11110 0.0474054054054
-37.56 0.76210235533 11110 0.047667027027
-38.44 0.76210235533 11110 0.0471437837838
-37.2378976447 0.44 11110 0.0478585473464
-38.7621023553 0.44 11110 0.0469522634644
-37.12 1.03087894124e-015 11110 0.0479286486486
-38.88 1.03087894124e-015 11110 0.0468821621622
-37.2378976447 -0.44 11110 0.0478585473464
-38.7621023553 -0.44 11110 0.0469522634644
-37.56 -0.76210235533 11110 0.047667027027
-38.44 -0.76210235533 11110 0.0471437837838
-38 -0.88 11110 0.0474054054054
-38 1.32 11110 0.0474054054054

龙龙仔

(defun C:TT (/ DATA FILE HOLDOSMODE)
(setq FILE (open (findfile "DATA.TXT") "r"))
(read-line FILE)
(setq HOLDOSMODE (getvar "osmode"))
(setvar "osmode" 0)
(while (setq DATA (read-line FILE))
(setq DATA (read (strcat "(" DATA ")")))
(command "_.circle"
(list (nth 0 DATA) (nth 1 DATA))
(last DATA)
)
)
(close FILE)
(setvar "osmode" HOLDOSMODE)
(princ)
)

kevinchan

运行后出现:; 错误: 参数类型错误: stringp nil


是什么原因?

oyxx1023

看一下要打开的文件路径对了没有。

oyxx1023

还没说完，6楼的主意不错，楼主可以把XLS文件存为TXT文档，然后LISP读起来就方便多了。以空格为标志区分。

xqyhome

用Vb编的画圆程序，用于AutoCAD2000。 安装压缩包下载地址：

www.jy-bearing.com/old/acad/circle.rar 运行circle.exe之前应先运行AutoCAD2000 版主的LISP读文本的程序，简单易用，水平很高。