[求助]請問自動產生多邊形網面(AcDbPolygonMesh)各個頂點坐標的清單

kaixin119

好用,我用的2004

wangyue

那我運行錯了嗎，你怎麼運行的

meflying

wangyue发表于2004-2-6 19:29:00噢，知道了，看來是我錯了 用edgesurf这指令产生的多边形网面的各个顶点的坐标值 下面程序中10的值只有一个值(0,0,0 ) (defun GetVer(ent / pts ents) (while (/= (cdr (assoc 0 (

不知你是使用程序得出结果错误还是分析我的程序的出错误？ “下面程序中10的值”这句话也是很难理解，程序中怎么有10的值？程序只有得出结果对否，至于程序中10的值是指什么呢？而且上面有几位都使用得出正确结果了，，，，疑惑

wangyue

我這裡還不能用，我們是CAD2000系統，幫我看看是什麼原因啊，

kaixin119

Command: (getver (car(entsel)))


再选网格就好啦,是不是你的2000解密不好啊,换吧

meflying

冒昧问一下，你是否会用这个程序？


如果你想直接使用这个函数，在命令行输入：(getver (car (entsel)))后回车，选择对象。。。


如果不是以上情况，希望你能回答我的问题，我提了那么多问题，你一个都没回答，加上别人结果都正确，说明是你那的问题，你不说明一下你自己的情况，我怎么查原因？？？

wangyue

指令: (getver (car(entsel)))
選取物件: ; 錯誤: no function definition: GETVER 這是我運行的結果 我說的10是指這裡(assoc 10 ents)))))的10,我不知道怎麼稱呼，所以讓您不理解，對不起

meflying

你没有加载程序啊。


搞了半天，你没有加载程序，不知道你怎么用它的，又怎么得出结果不对的。


说明：


1、将以上代码存成*.lsp文件，文件名随便。


2、用appload命令，加载刚才保存的文件。


3、使用(getver (car(entsel)))

wangyue

感謝各位的耐心指教，我我太感動了 謝謝

wangyue

如果想將坐標輸出到TXT中，怎麼辦