vlax-curve-getClosestPointTo问题
您好-我正在尝试在VBA和VLisp之间进行通信，以使用setlispvar和Evalispexpression代码使用vlax曲线函数。我似乎无法让代码正常工作。附件包含我的代码。代码尝试从（0,0,0）到（100100,0）绘制一条线，然后找到距离（50,55,0）最近的点。问题似乎在于将点变量转换为点列表。任何帮助都将不胜感激，因为此时此刻我感到彻底的沮丧和“脑死亡”，知道我忽略了一些非常明显的事情或做了一些非常愚蠢的事情list data))) (t data)))"
EvalLispExpression "(setq " & symbolName & "(translate-variant " & symbolName & "))"
EvalLispExpression "(setq translate-variant nil)"
End Sub
我用的是弗兰克的课，很容易用，做你需要的事
（我在2006年，我还没有在2007年试过）
“曲线”。cls v1.3（最新更新日期为2001年12月18日）
“版权所有2000，2001年由Frank Oquendo出版
谢谢各位。！
感谢您的提示。我仍在努力解决这个问题。我尝试过曲线课，取得了一些成功。对于我的测试图形，它似乎工作得很好，因为在坐标上只有几个值小于10，000的Aecc点。我在一张有大约300个点的较大的图上试了一下，x的状态平面坐标为10，000，000，y的状态平面坐标为3，000，000，它在不同的点给出了一个错误信息，没有一致性。如果我把点数转换成小于10，000的值，那么它对于300点来说是完美的。问题是不是因为我一直得到错误代码13，所以有些值用科学符号表示？
反正我会一直玩下去。再次感谢你的帮助！！！ 当你离原点太远的时候Cad本身就有抵消的问题，vba的低精度也没多大帮助。
如果您只想要最近的点，我将发布一些我更喜欢的带数学的代码。
页:
[1]