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

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

自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中运行良好。
**** Hidden Message *****

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

抱歉,我用错了密码。正确的代码是
acedInvoke(New result buffer(New typed value(lisp data type。Text,“c:GetVariableValue”),New TypedValue(LispDataType。正文,“aa”))
页: [1]
查看完整版本: 如何在 AutoCAD 2007、2008 和 2009 中使用 acedInvoke