如何lisp程序中获取光标所在处点的绝对坐标(不用grread、getpoint等函数)?如果有高

lcad

如何lisp程序中获取光标所在处点的绝对坐标(不用grread、getpoint等函数)?如果有高手请告我知不胜感激[br]如何lisp程序中获取光标所在处点的绝对坐标(不用grread、getpoint等函数)?如果有高手请告我知,不胜感激

南子

The api_cursorpos function retrieves the cursor's position, in screen coordinates.

(api_cursorpos)



Parameters

none

Return Values

Success: a list of integers in the following form (x y)

Failure: nil

Remarks

The cursor position is always specified in screen coordinates and is not affected by the mapping mode of the window that contains the cursor.

Requirements

  Windows NT/2000: Requires Windows NT 3.1 or later.

  Windows 95/98: Requires Windows 95 or later.

lcad

南子

把winapi.arx放在Acad的支持路径下，然后八以下代码加入您的程序开头
(IF (NOT (MEMBER "winapi.arx" (ARX)))
    (if (= "winapi.arx not found"
(ARXLOAD "objectdcl.arx" "winapi.arx not found."))
        (exit))
  )