lisp 三点矩形
程序说明
该程序使用户能够动态构造由三个提供的点定义的矩形。
该程序提供两个命令：3PR和3PRD，分别代表程序的标准和动态版本。
在AutoCAD命令行发出任一命令后，首先提示用户指定两个点，这两个点定义所得矩形的两对平行边之一。
在对这些提示的有效响应之后，然后提示用户第三点以确定第二对边缘的长度和方向，第二对边缘垂直于由前两个点限定的边缘构造。如果使用动态命令（3PRD），程序将显示生成的矩形的实时预览，同时提示用户输入第三个点。
用户可以随时按ENTER或在任何提示下单击鼠标右键退出程序 。
在有效指定所有三个点之后，程序将继续使用2D折线（LWPolyline）对象构造定义的矩形。
该程序的动态版本利用我的GrSnap实用程序在动态提示期间启用完整的对象捕捉功能。此外，该程序还可以在所有UCS和View设置下成功执行。
示范