（lisp）两个求交点程序的对比。关于数组的问题

李彦春1

先感谢明经提供原码的同志。

第一个程序大多数情况下是可以取得交点的。

但选择图中的直线。为什么会出现下面提示的错误呢？第二个却在任何情况下都能得到正确结果：

错误: Automation 错误。 安全数组中的元素太少或总元素数目不是 3 的倍数

请高手指点。

附带个问题，在输入一个CAD命令之后再输入non是什么意思啊！

为什么二个程序中(if (> (vlax-safearray-get-u-bound intpoints 1) 0)

(if (> (vlax-safearray-get-u-bound (vlax-variant-value m_jdtab1) 1) 1)

的部分一个是大于0，一个是大于1，效果却一样呢。

我对数组这个知道的实在少，望高手指点。

UploadFile/2009-9/200992215483583726.lsp,viewFile.asp?ID=49680[/upload]

cocoorange

我也是新手，谢谢楼主分享