求教有没有函数是直接能获取鼠标所谓坐标位置

18989878581

求教有没有函数是直接能获取鼠标所谓坐标位置
getpoint 改成直接在鼠标光标位置画矩形


(defun c:yq_jx ()
        (princ "\n****矩形")
        (setq xy1 (getpoint "请选择矩形插入位置:")
                cd (getreal "请输入长度:")
                kd (getreal "请输入宽度:")
                xy2 (polar xy1 0 kd)
                xy3 (polar xy2 (angtof "90") cd)
                xy4 (polar xy1 (angtof "90") cd)
        )
        (command "pline" xy1 xy2 xy3 xy4 "c")
        (princ)
)