创建/绘制矩形
大家好！有人可以编写一个lisp，要求我输入四行的长度，然后根据该输入创建/绘制一个闭合矩形吗？
其他id
提前感谢！
谨致问候，
路易斯 OP没有回应？我同意rkmcswain的观点。REC命令确实做到了他想要的。因为矩形总是有两条相同的边。
运行REC命令选择第一个点。键入“D”作为尺寸（这是第一个长度，第二个长度）。指定长度后，移动光标并在需要旋转时单击。
我能想到的唯一一件事是，OP需要一个LISP，它正常运行rec命令，但会自动选择“dimension”选项，然后自动单击并设置矩形，然后退出，这样用户在运行过程中就不必与键盘进行太多交互。IDK只是我的2美分。除非他们回来澄清，否则我们永远不会知道。谢谢 可能是这样的。
(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))
请参阅第#3条。行为类似于矩形而不是多边形的矩形。 很抱歉我的回复太晚，但非常感谢！这是附件。
...谢谢steven-g的指导！
页:
[1]