如何在 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 ***** 抱歉,我用错了密码。正确的代码是
acedInvoke(New result buffer(New typed value(lisp data type。Text,“c:GetVariableValue”),New TypedValue(LispDataType。正文,“aa”))
页:
[1]