写一段CAD VBA代码,画出平面坐标系中的两点的连线的角平分线
时间: 2023-03-14 14:03:36 浏览: 209
答案:Sub drawAngleBisector()
Dim p1 As Variant, p2 As Variant
Dim line As AcadLine
p1 = Array(0, 0)
p2 = Array(2, 3)
Set line = ThisDrawing.ModelSpace.AddLine(p1, p2)
line.AngleBisector p1, p2
End Sub
阅读全文