创建/绘制矩形

Luis Ternou · 发表于 2022-7-7 13:16:10

大家好！

有人可以编写一个lisp，要求我输入四行的长度，然后根据该输入创建/绘制一个闭合矩形吗？
其他id

提前感谢！

谨致问候，
路易斯

rkmcswain · 发表于 2022-7-7 13:34:52

OP没有回应？我同意rkmcswain的观点。REC命令确实做到了他想要的。因为矩形总是有两条相同的边。

运行REC命令选择第一个点。键入“D”作为尺寸（这是第一个长度，第二个长度）。指定长度后，移动光标并在需要旋转时单击。

我能想到的唯一一件事是，OP需要一个LISP，它正常运行rec命令，但会自动选择“dimension”选项，然后自动单击并设置矩形，然后退出，这样用户在运行过程中就不必与键盘进行太多交互。IDK只是我的2美分。除非他们回来澄清，否则我们永远不会知道。谢谢

Luis Ternou · 发表于 2022-7-7 13:43:32

可能是这样的。

copy

(defun C:rectester(/ START LENGTH1 LENGTH2)
(setq start (getpoint "\nSpecify starting point of rectangle..."))
(setq length1 (getreal "\nSpecify first length..."))
(setq length2 (getreal "\nSpecify second length..."))
(command "_.rectang" start "D" length1 length2 start)
(princ))