|
您好-
我正在尝试在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
[/code]
|
|