[求助]：何实现应用ACAD用来显示坐标的状态栏?

小美菜

请问各位,用VBA如何实现应用ACAD用来显示坐标的状态栏?

雪山飞狐(lzh)

Function GetPoint()
'功能：返回当前鼠标状态
'Vlax类请小心使用，该函数可能使AutoCad崩溃
'返回值：一维数组
'返回0，0，－1表示按下鼠标左键
'返回0，0，1表示按下鼠标右键
'返回a，b，0表示当前鼠标坐标
On Error GoTo ErrClear
    Dim obj As VLAX
    Dim pRetVal(2) As Double, retVal
    Set obj = New VLAX
    obj.EvalLispExpression ("(setq a (grread t) b (car a) c (cadr a))")
    Select Case obj.GetLispSymbol("b")
    Case 3
        pRetVal(2) = -1
    Case 5
        retVal = obj.GetLispList("c")
        pRetVal(0) = retVal(0)
        pRetVal(1) = retVal(1)
    Case Else
        pRetVal(2) = 1
    End Select
    GetPoint = pRetVal
ErrClear:
    Set obj = Nothing
End Function

小美菜

可能我的描述有问题,我指的是把"提示信息"放到该位置去