aspxc 发表于 2007-7-26 18:27:00

请问各位工程师坐标.txt 用lisp 语句展点怎么编写?

<p>各位工程师:</p><p>&nbsp; 我在工作中,能有好多的坐标要在cad中显示,但我一个个输入太笨了,请大家</p><p>用lisp做个小程序,使它能够打开这个文本,直接在cad中显示出文本的坐标信息,还有点号</p><p>帮一下????</p><p>坐标格式如下,</p><p>1 508697.7,4559426.7<br/>2 508697.7,4559426.7<br/>3 508673.7,4559487.6<br/>4 508624.8,4559583.7<br/>5 508569.2,4559639<br/>6 508452.8,4559682.1</p>

王咣生 发表于 2007-7-26 21:07:00

lisp

本帖最后由 作者 于 2007-7-26 21:14:27 编辑 <br /><br /> 将<br/>1 508697.7,4559426.7<br/>2 508697.7,4559426.7<br/>3 508673.7,4559487.6<br/>4 508624.8,4559583.7<br/>5 508569.2,4559639<br/>6 508452.8,4559682.1<br/>存为c:\1.txt<br/><br/>lisp程序:<br/>(defun c:test ( / fi li pt)<br/>  (setq fi (open "c:\\1.txt" "r"))<br/>  (while (setq li (read-line fi))<br/>    (setq li (read (strcat "(" (vl-string-subst " " "," li) ")")))<br/>    (setq pt (list (nth 1 li) (nth 2 li)))<br/>    (command "point" pt)<br/>  );while<br/><br/>  (alert "ok")<br/>  (princ)<br/>)<br/><br/>

aspxc 发表于 2007-7-27 14:21:00

<p>谢谢工程师的解答.</p><p>我会继续关注明经网站的,因为他是我的老师,</p>

aspxc 发表于 2007-7-27 19:34:00

老师:
   你好,我用了,不能用呀
总提示:
错误: 参数类型错误: consp nil
请老师名见

tchen 发表于 2007-7-27 19:44:00

<p>因为工作需要,我个人写了一个展点的程序,支持EXCEL ,TXT格式 ,支持高程的小数位设置,,以及可以根据需要控制展点密度,我把效果截图上来了,不知道能否看到?</p><p>一下是简要:</p><p>;CAD和广州CASS模式自动识别， 自动识别是否带高程 ，自定义高程的小数位数，<br/>;支持展高程密度，支持XLS和TXT文件格式 TXT文件3D格式为**,**,**,**(全格式)或者,**,**,**(无点号)<br/>;2D格式为**,**,**(无高程) 或者 ,**,**(无点号无高程)<br/>;程序编写&nbsp; 陈挺&nbsp; </p><p></p><p>如果你需要的话我可以传上来</p>

aspxc 发表于 2007-7-27 19:46:00

<p>陈老师:</p><p>你好,很高兴以看到陈老师的代码,</p>

tchen 发表于 2007-7-27 19:50:00

<p>你需要源代码?</p><p>我发一个可执行文件给你 可以吗?</p><p>我的代码很乱&nbsp; 很难理出来</p><p>而且我写了几个方法的 </p><p>代码有22K </p><p>我就传可执行给你把</p>

aspxc 发表于 2007-7-27 19:53:00

陈老师:
    行,我以前从来没有接触过,我怕不会用,

可发到我的信箱中,

thank you

庞

tchen 发表于 2007-7-27 20:05:00

你QQ多少 +我 31636451 我传给你

aspxc 发表于 2007-7-27 20:14:00

我的QQ125514167,陈老师我加你了,
页: [1] 2
查看完整版本: 请问各位工程师坐标.txt 用lisp 语句展点怎么编写?