lisp代码根据点选区域绘制等宽指定高度的矩形

Question

#AUTOCAD中，如何用lisp代码，先获取点选区域宽度，绘制一个等宽，输入指定高度的矩形？

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

在AutoCAD中，可以使用LISP编程语言编写一个程序来实现这个功能。首先，你需要获取用户选择的区域的宽度，然后根据指定的高度绘制矩形。以下是一个简单的示例代码：

(defun c:DrawRectangle (/ pt1 pt2 width height)
  (setq pt1 (getpoint "
请输入矩形的第一个角点： "))
  (setq pt2 (getcorner pt1 "
请输入矩形的另一个角点： "))
  (setq width (abs (- (car pt2) (car pt1))))
  (setq height (abs (- (cadr pt2) (cadr pt1))))
  (command "rectangle" pt1 (list (+ (car pt1) width) (cadr pt1)) height)
  (princ)
)

将上述代码复制到AutoCAD的Visual LISP编辑器中，然后加载并运行。在命令行中输入DrawRectangle，按照提示选择矩形的两个对角点，然后输入指定的高度。程序将自动绘制一个等宽的矩形。