方形-矩形lisp

kdub · 发表于 2019-5-23 02:01:11

很好，这些信息就可以了。如果需要，您可以镜像/旋转矩形。
不如您开始编程，并在遇到困难时通知我们。

ronjonp · 发表于 2019-5-23 10:06:40

你已经走了一半了！让我们看看一些代码，也许我们可以帮忙。

domenicomaria · 发表于 2019-5-23 17:03:44

你想说这个吗？
(defun:GR(a)(* pi(/a 180.0))
(defun C:RCT(/ANG12 ANG1X ANG2X P1 P2 PXL PXR)
(setq P1(getpoint " \ n第一点:"))
(setq p2(getpoint P1 " \ n第二点:"))
(setq ang12(角度P1 p2)
ANG2X(+ANG12(:GR 120.0))
ANG1X(+ANG12()

domenicomaria · 发表于 2019-5-23 17:14:16

而这是针对SQUARE . . .
（defunc： SQR（/ANG12 ANG1X ANG2X P1 P2 PXL PXR）
（setq p1（getpoint"\nfirst point："））
（setq p2（getpoint p1"\n秒点："））
（setq ang12（角p1 p2）
ang2x（+ang12（： GR 135.0））
ang1x（+ang12（： GR 45.0））
）
（setq pxl（interstp2（极p2 ang2x 1.0）p1（极p1 ang1x 1.0））p1（极p1 ang1x 1.0）nil））
（setq pxr（interstp1（极p1（+ang2x pi）1.0）p2（极p2（+ang1x pi）1）
（vl-cmdf"pline"p1 pxr p2 pxl p1""）
）

domenicomaria · 发表于 2019-5-24 04:51:03

ANGDIR是ANTI-CLOCKWISE
和
2PI=360°
. . .
但是
对于RECTANGLE
有2种解决方案. . .

[编程交流] 方形-矩形lisp

发表回复

精选推荐