如何在 AutoCAD 2007、2008 和 2009 中使用 acedInvoke

guohq · 发表于 2021-8-20 12:07:20

自AutoCAD 2011以来，提供了Application.Invoke方法，我想在Autocad 2007,2008和2009中实现这个函数，但是acedInvoke似乎不起作用。
_
Private Shared Function acedInvoke（ByVal args As IntPtr， ByRef结果As IntPtr）As Intger
End Function
这里是测试代码
（defunc： GetVariableValue（VarName）
（val（read VarName））
）
（Setq aa 1234321）
acedInvoke（New ResultBuffer（New TyedValue（LispDataType.Text，"GetVariableValue"）， New TyedValue（LispDataType.Text，"aa"））
上面的代码在AutoCAD2010中运行良好。

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

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

guohq · 发表于 2021-8-20 12:47:42

抱歉，我用错了密码。正确的代码是
acedInvoke(New result buffer(New typed value(lisp data type。Text，“c:GetVariableValue”)，New TypedValue(LispDataType。正文，“aa”))

如何在 AutoCAD 2007、2008 和 2009 中使用 acedInvoke

发表回复

精选推荐