广场竣工

therock005 · 发表于 2022-7-6 11:18:27

我正在寻找一个简单的例程，完成一个给定3点的正方形。

唯一的条件当然是相对的边长度相等且平行。

lpseifert · 发表于 2022-7-6 11:24:03

这三个点与正方形有什么关系？角？
根据定义，正方形有4条等长边和4个90度的内角。如果得到3分，这可能是不可能的。
如果你举个例子，可能会更清楚。

therock005 · 发表于 2022-7-6 11:25:25

对不起，我不是说一个四边和直角都相等的完美正方形。我指的是一个四边形，两边相等且平行（无论角度如何）。

编辑：好的，我的意思是这样的。这里有3点，这是你应该通过连接它们来创建的部分。红色的那一行是应该填写的缺失部分。因此，如果您以正确的顺序提供3个点，则此例程应该创建这个4边多边形。

lpseifert · 发表于 2022-7-6 11:31:01

这是一个快捷键。。。
我希望你学习并努力从中学习。

copy


(defun c:test (/ oldsnap pt1 pt2 pt3)
 (setq oldsnap (getvar "osmode"))
 (setvar "osmode" 0)
 (setq pt1 (getpoint "\nPick 1st point: ")
   pt2 (getpoint pt1 "\nPick 2nd point: ")
   pt3 (getpoint pt2 "\nPick 3rd point: "))
 (entmake
   (list
     (cons 0   "LWPOLYLINE")
     (cons 100 "AcDbEntity")
     (cons 100 "AcDbPolyline")
     (cons 90 4)
     (cons 70 1)
     (cons 10 pt1)
     (cons 10 pt2)
     (cons 10 pt3)
     (cons 10 (polar pt3 (angle pt2 pt1)(distance pt2 pt1)))
     )
   )
 (setvar "osmode" oldsnap)
 (princ)
 )