vlax曲线getClosestPointTo问题

Jeff_M · 发表于 2006-12-3 11:34:29

您好-
我正在尝试在VBA和VLisp之间通信，以使用使用setlispvar和evallispexpression代码的vlax曲线函数。我似乎无法使代码正常工作。附件包含我的代码。代码试图从（0,0,0）到（100100,0）绘制一条线，然后找到距离（50,55,0）最近的点。问题似乎在于将点变量转换为点列表。任何帮助都将不胜感激，因为我感到非常沮丧和“；“脑死亡”；在这一点上，我知道我忽略了一些非常明显的事情或做了一些非常愚蠢的事情
提前谢谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Bryco · 发表于 2006-12-3 13:42:31

这里是#039；这是Frank Oquendo的一段代码#039；s VLAX。处理设置lisp符号的CLS。请注意，它与您的不同之处在于，他使用lisp函数来转换数据类型

copy

Public Sub SetLispSymbol(symbolName As String, value)
    Dim sym As Object, ret, symValue
    
    symValue = value
    Set sym = VLF.Item("read").funcall(symbolName)
    ret = VLF.Item("set").funcall(sym, symValue)
    EvalLispExpression "(defun translate-variant (data) (cond ((= (type data) 'list) (mapcar 'translate-variant data)) ((= (type data) 'variant) (translate-variant (vlax-variant-value data))) ((= (type data) 'safearray) (mapcar 'translate-variant (vlax-safearray->list data))) (t data)))"
    EvalLispExpression "(setq " & symbolName & "(translate-variant " & symbolName & "))"
    EvalLispExpression "(setq translate-variant nil)"
End Sub

Bryco · 发表于 2006-12-3 14:45:06

Bryco · 发表于 2006-12-5 20:05:18

谢谢大家
我很感激这些提示。我仍在努力解决这个问题。我已经尝试了曲线类并取得了一些成功。对于我的测试图形来说，它似乎工作得很好，在坐标值小于10000的坐标处只有几个Aecc点。我在一个更大的图形上尝试了它，在状态平面坐标为10000000（x）和3000000（y）的大约300个点上，它在不同的点上给出了错误消息，没有一致性。如果我将这些点转换为小于10000的值，那么对于300个点，它可以完美地工作。问题是用科学记数法表示某些值，因为我一直得到错误代码13吗
无论如何，我会继续玩下去。再次感谢您的帮助！！！

Bryco · 发表于 2006-12-5 21:21:11

当您离原点和vba太远时，Cad本身存在偏移问题；s低；精度不#039；没什么帮助
如果你只想要最近的点，我会发布一些我更喜欢的代码和数学。

vlax曲线getClosestPointTo问题

发表回复

精选推荐