根据上述函数改成一个在cad点击后获得点坐标的函数，并打印出来

下面是一个实现上述功能的函数：

(defun c:GETPOINT ()
  (setq pt (getpoint "\n选择一个点: "))
  (princ (strcat "\n选择的点坐标为：(" (rtos (car pt)) ", " (rtos (cadr pt)) ")"))
)

当在 CAD 中输入 `GETPOINT` 并按下 Enter 键后，会弹出一个提示框，提示用户选择一个点。选择完成后，函数会将该点的坐标打印出来。

相关问题

用where函数得到部分像素点坐标后用minAreaRect函数得到最小外接矩阵

好的，您的问题是如何使用where函数得到部分像素点坐标后用minAreaRect函数得到最小外接矩阵。下面是一个示例代码，供您参考：

import cv2
import numpy as np

# 读取图像并转换为灰度图像
img = cv2.imread('image.jpg')
gray = cv2.cvtColor(img, cv2.COLOR_BGR2GRAY)

# 阈值处理得到二值图像
thresh = cv2.threshold(gray, 127, 255, cv2.THRESH_BINARY)[1]

# 使用where函数得到部分像素点坐标
coords = np.column_stack(np.where(thresh == 255))

# 使用minAreaRect函数得到最小外接矩形
rect = cv2.minAreaRect(coords)
box = cv2.boxPoints(rect)
box = np.int0(box)

# 在图像上绘制最小外接矩形
cv2.drawContours(img, [box], 0, (0, 0, 255), 2)

# 显示图像
cv2.imshow('image', img)
cv2.waitKey(0)
cv2.destroyAllWindows()

在这个示例代码中，我们首先读取一张图像并将其转换为灰度图像，然后使用阈值处理得到二值图像。接着，我们使用where函数得到部分像素点坐标，然后使用minAreaRect函数得到最小外接矩形。最后，我们在图像上绘制最小外接矩形并显示图像。

怎么向一个构造函数传入两个坐标点

你可以向构造函数传入两个对象，每个对象包含一个坐标点。例如，可以使用以下代码创建两个对象并将它们传递给构造函数：

class MyClass {
  constructor(point1, point2) {
    this.point1 = point1;
    this.point2 = point2;
  }
}

let point1 = { x: 1, y: 2 };
let point2 = { x: 3, y: 4 };
let myObj = new MyClass(point1, point2);