摘要:
Dim L1 As New DatabaseServices.Line(P1, P3) Dim angle As Double = New DatabaseServices.Line(ppr1.Value, ppr2.Value).Angle - Math.PI / 4 Dim vector As 阅读全文
摘要:
Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Dim Lisp 阅读全文