在CAD2004中可以实现等高线的绘制吗？？？

meflying

也是可以的?????


你到底是怎样的?看你的提问,感觉你并不怎么熟悉LISP,所以想教会你怎么做估计很麻烦,所以我想就帮你写出来(这是一个很容易的程序),可问题是这种问题是针对不用要求特定写的,你的要求都不确定,就不好写了...我可不想费了半天劲写出来你又要改这改那的...


关于这个问题,我不会再给你提任何问题了,如果你不再自己说明,,,就算拉倒了...我已经按你开始的要求写好了,如果你确定是这样的,我就给出来,否则,你自己看着办

kellyyang1

不是！！对LISP应该还比较的熟吧？？就照你说的那样写出来吧？？？谢谢了！！急

meflying

2. (defun c:test( / i strtmp pts fa fb fc stra strb strc)
3.    (setq fa (getfiled "Select X file" "e:\" "txt" 8))
4.    (setq fb (getfiled "Select Y file" "e:\" "txt" 8))
5.    (setq fc (getfiled "Select Z file" "e:\" "txt" 8))
6.    (setq fa (open fa "r"))
7.    (setq fb (open fb "r"))
8.    (setq fc (open fc "r"))
9.    (setq i 0 stra "" strb "" strc "")
10.    (while (setq strtmp (read-line fa))
11.        (if (/= (vl-string-trim " " strtmp) "")
12.            (setq stra (strcat stra " " strtmp))
13.        )
14.    )
15.    (close fa)
16.    (while (setq strtmp (read-line fb))
17.        (if (/= (vl-string-trim " " strtmp) "")
18.            (setq strb (strcat strb " " strtmp))
19.        )
20.    )
21.    (close fb)
22.    (while (setq strtmp (read-line fc))
23.        (if (/= (vl-string-trim " " strtmp) "")
24.            (setq strc (strcat strc " " strtmp))
25.        )
26.    )
27.    (close fc)
28.    (setq ptsa (read (strcat "(" stra ")")))
29.    (setq ptsb (read (strcat "(" strb ")")))
30.    (setq ptsc (read (strcat "(" strc ")")))
31.    (setq pts (mapcar 'list ptsa ptsb ptsc))
32.    (command "_.3dpoly")
33.    (mapcar '(lambda(e) (command e)) pts)
34.    (command "")
35.    (princ pts)
36. )

(defun c:test( / i strtmp pts fa fb fc stra strb strc)    (setq fa (getfiled "Select X file" "e:\" "txt" 8))    (setq fb (getfiled "Select Y file" "e:\" "txt" 8))    (setq fc (getfiled "Select Z file" "e:\" "txt" 8))    (setq fa (open fa "r"))    (setq fb (open fb "r"))    (setq fc (open fc "r"))    (setq i 0 stra "" strb "" strc "")    (while (setq strtmp (read-line fa))        (if (/= (vl-string-trim " " strtmp) "")            (setq stra (strcat stra " " strtmp))        )    )    (close fa)    (while (setq strtmp (read-line fb))        (if (/= (vl-string-trim " " strtmp) "")            (setq strb (strcat strb " " strtmp))        )    )    (close fb)    (while (setq strtmp (read-line fc))        (if (/= (vl-string-trim " " strtmp) "")            (setq strc (strcat strc " " strtmp))        )    )    (close fc)    (setq ptsa (read (strcat "(" stra ")")))    (setq ptsb (read (strcat "(" strb ")")))    (setq ptsc (read (strcat "(" strc ")")))    (setq pts (mapcar 'list ptsa ptsb ptsc))    (command "_.3dpoly")    (mapcar '(lambda(e) (command e)) pts)    (command "")    (princ pts) )

kellyyang1

谢谢拉！！我先回去细看看！！

kellyyang1

你写的程序我回去看了！！可能是你把我的意思给理解错了，你的程序好象是根据文本形成各点坐标，然后用3维多线段把各点连接起来。其实我是想根据已知的坐标点来得出等高线，就是在原始点形成的体中得出Z值相等的面，就是相当于做等压线的，明白我意思了吗？？呵呵

meflying

我前面说了那么多，让你把要求说清楚，可你好像就是不愿意，我问一点你说一点，要知道，不是每个人都是跟你搞同一个专业的，你不详细说明白，别人就无法明白，什么叫隔行如隔山。。。


就现在我还不能明白，原始点如何形成体?....

kellyyang1

呵呵！！说的对！！体的形成就是利用3维多线段的绘制来完成的。现在这样吧：就是随便给出一用多线段绘制出的图形，随便给定一Z值，怎么样在各线段上定出Z值相等的点，然后相连起来，但是不能相交。

meflying

这个是比较困难的，比如说，随便给出一些点（同一平面内），你要把它们连成多边形，是比较困难的，要用到编程以外的一些知识。。。我没有去研究过，现在还没有什么好的办法

kellyyang1

恩！！是比较的困难的啊！！