VL.应用中的几个问题

highflyingbird · 发表于 2011-7-24 01:27:42

我创建了一个MFC dll项目，我将为LISP调用创建一个计时器。
实际上，这不是一个ARX项目，所以我没有使用任何ARX函数。我不想用它们。
我用的是“vl.application”。
好了，项目已经编译好了，并且正在运行。有时候是不稳定的。
下面是我的问题:
1。我们如何向
" VL . application function "
传递参数，或者有人能告诉我如何使用

" VARIANT funcall(safe array * Arguments)"
？
这样:

copy

CDVlApplication vlisp ;
vlisp.CreateDispatch(_T("VL.Application.16"));
CDVlDocument vl_ActiveDocument =vlisp.get_ActiveDocument();
CDVlFunctions vl_Functions = = vl_ActiveDocument.get_Functions();
CDVlFunction vl_Function = = vl_Functions.get_Item(FuncName);

如果一个函数没有参数，我们可以使用:
VL _ Function . funcall(NULL)；
没关系。我测试过了。但是怎么才能调用带参数的函数呢？许多年前，Owen提到过类似的问题，但我没有得到答案。
2。为什么定时器会让CAD不稳定？如何避免？如何设置
“尝试...catch"
这是我的项目文件。和一些LISP代码:

copy

(defun callback()
  (setq newViewSize (getvar 'viewsize))
  (if (/= newViewSize OldViewSize)
    (progn 
      (setq oldViewSize NewViewSize)
      (princ "\nViewSize has been Changed!Now is: ")
      (princ NewViewSize)
      (princ)
    )
  )
)
(defun c:test()
  (setq obj (vlax-create-object "vlax.timers"))
  (setq oldViewSize (getvar 'ViewSize))
  (setq timer0 (vlax-invoke obj 'SetLispTimer 100  "callback"))
  (princ)  
)