- 博客(5)
- 资源 (6)
- 收藏
- 关注
原创 指定两点可算出最大点和最小点
如指定pt1和pt2两点,可得出最小点rectMin和最大点rectMax。Dim rectMin As New Point2d(Math.Min(pt1.X, pt2.X), Math.Min(pt1.Y, pt2.Y))Dim rectMax As New Point2d(Math.Max(pt1.X, pt2.X), Math.Max(pt1.Y, pt2.Y))
2013-05-29 09:31:51 603
原创 获取一点绕另一点旋转一定角度后的点坐标
点Org_minpoint(point3d)绕点acEntSS.Position(point3d)旋转角度RotationAng(double)后的点坐标为R_Org_minpoint 。Dim mt As Matrix3d = Matrix3d.Rotation(RotationAng, Vector3d.ZAxis, acEntSS.Position)Dim R_Org_m
2013-05-28 17:36:57 5565
转载 将当前坐标系设置为世界坐标系WCS
Database db = HostApplicationServices.WorkingDatabase;Document doc = Application.DocumentManager.GetDocument(db);doc.Editor.CurrentUserCoordinateSystem = Matrix3d.Identity;
2013-05-28 15:53:26 4279
转载 UCS和WCS之间的坐标互换
''' 从UCS转换到WCS。 ''' 要转换的点. Public Shared Function UcsToWcs(ByVal Pt As Point3d) As Point3d Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor Dim mt As
2013-05-28 15:44:46 7493 1
转载 添加ucs(用户坐标系)并设为当前
using System ;using System.Runtime.InteropServices;using Autodesk.AutoCAD.Interop;//添加Autocad(即com)引用using Autodesk.AutoCAD.Interop.Common;//添加axdblib(即dbx)引用using Autodesk.AutoCAD.Runtime;u
2013-05-15 15:20:09 1898
visual assist x crack 破解 补丁
2013-03-13
DCL对话框自学教程
2013-02-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人