如何利用DynamicWrapperX注册和使用API里的GetCursorPos函数并转换为CAD坐标

wwwliuyu

请教大家如何利用DynamicWrapperX插件注册和使用API里的GetCursorPos函数并转换为CAD坐标？

highflybird

(vl-load-com)

(defun c:test(/ dx lpoint retval PointX PointY curPos)
  (setq DX (vlax-create-object "DynamicWrapperX"))
  (vlax-invoke DX 'Register "MSVCRT" "calloc" "i=ll" "r=l")
  (vlax-invoke DX 'Register "MSVCRT" "free" "i=l" "r=l")
  (vlax-invoke DX 'Register "USER32" "SetCursorPos" "i=ll" "r=l")
  (vlax-invoke DX 'Register "USER32" "GetCursorPos" "i=l" "r=l")

  (setq lPoint (vlax-invoke DX 'calloc 2 4))
  (setq retval (vlax-invoke DX 'GetCursorPos lPoint))
  (setq PointX (vlax-invoke DX 'NumGet lPoint 0))        ; GetCursorPos 中的X位置
  (setq PointY (vlax-invoke DX 'NumGet lPoint 4))        ; GetCursorPos 中的Y位置
  (setq CurPos (GRREAD T 15 0))                           ; 在CAD中的位置
  (vlax-invoke DX 'free lPoint)                         ; 释放内存
  (vlax-release-object DX)
  (princ)
)

wwwliuyu

(vlax-invoke wrap 'Register "user32.dll" "SetCursorPos" "i=ll" "f=s" "r=l")
SetCursorPos函数能轻松注册，却不明GetCursorPos为何注册不了，求高手能出来帮忙解决，谢谢。

wwwliuyu

highflybird 发表于 2011-8-20 12:18
(vl-load-com)

(defun c:test(/ dx lpoint retval PointX PointY curPos)

非常感谢你的答案，要不我的程序无法继续写下去。