乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 110|回复： 7

圆弧标注程序 源码(JIG）

[复制链接]
j15tty

3

主题

31

帖子

5

银币

初来乍到

Rank: 1

铜币
43
发表于 2015-3-26 12:43:00 | 显示全部楼层 |阅读模式 
  1. 

  2. using System;

  3. using System.Collections.Generic;

  4. using System.Linq;

  5. using System.Text;

  6. using Autodesk..DatabaseServices;

  7. using Autodesk.AutoCAD.Geometry;

  8. using Autodesk.AutoCAD.EditorInput;

  9. using Autodesk.AutoCAD.Colors;

  10. using Autodesk.AutoCAD.Runtime;

  11. using Autodesk.AutoCAD.ApplicationServices;

  12. using System.ComponentModel;

  13. using System.Data;

  14. using System.Data.OleDb;

  15. using System.Text.RegularExpressions;

  16. using System.Collections;

  17. namespace YFBZ

  18. {

  19.     public class Class1

  20.     {

  21.         const int WM_RBUTTONDOWN = 516;

  22.         int flag = 0;

  23.         private void Application_PreTranslateMessage(object sender, PreTranslateMessageEventArgs e)

  24.         {

  25.             if (e.Message.message == WM_RBUTTONDOWN)

  26.             {

  27.                 flag = 1;

  28.             }

  29.         }

  30.         [CommandMethod("yfzj")]

  31.         public void yfbzj()

  32.         {

  33.             Database db = HostApplicationServices.WorkingDatabase;

  34.             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;

  35.             Editor ed = doc.Editor;

  36.         handle01:

  37.             PromptEntityOptions options = new PromptEntityOptions(" \n请选择圆弧");

  38.             options.SetRejectMessage("\n所选择实体不是圆弧，请重新选择");

  39.             options.AddAllowedClass(typeof(Arc), true);

  40.             PromptEntityResult per = ed.GetEntity(options);

  41.             ObjectId arced;

  42.             if (per.Status == PromptStatus.Cancel)

  43.             {

  44.                 return;

  45.             }

  46.             if (per.Status == PromptStatus.OK)

  47.             {

  48.                 arced = per.ObjectId;

  49.             }

  50.             else

  51.             {

  52.                 arced = per.ObjectId;

  53.                 return;

  54.             }

  55.             using (DocumentLock acLock = doc.LockDocument())

  56.             {

  57.                 using (Transaction tran = db.TransactionManager.StartOpenCloseTransaction())

  58.                 {

  59.                     Arc arc = tran.GetObject(arced, OpenMode.ForRead) as Arc;

  60.                     Point3d pt1 = arc.StartPoint;

  61.                     Point3d pt2 = arc.EndPoint;

  62.                     Point3d cen = arc.Center;

  63.                     Line line1 = new Line(cen, pt1);

  64.                     Line line2 = new Line(cen, pt2);

  65.                     line1.ColorIndex = 5;

  66.                     line2.ColorIndex = 5;

  67.                     double R = arc.Radius;

  68.                     double Length = arc.Length;

  69.                     double l = arc.GetDistanceAtParameter(Length / 2);

  70.                     Point3d pt = arc.GetPointAtDist(Length / 2);

  71.                     double cenRo = Math.Abs(arc.StartAngle - arc.EndAngle);

  72.                     double BottomRo = (Math.PI - cenRo) / 2;

  73.                     double xianLength = Math.Sqrt((pt1.X - pt2.X) * (pt1.X - pt2.X) + (pt1.Y - pt2.Y) * (pt1.Y - pt2.Y));

  74.                     double T = xianLength / 2 / Math.Sin(BottomRo);

  75.                     Point3d pt3 = xTextStyleTools.midPoint(cen, pt);

  76.                     db.AddToModelSpace(line1);

  77.                     db.AddToModelSpace(line2);

  78.                     for (; ; )

  79.                     {

  80.                         Point3d point1 = pt3;

  81.                         DBText text1 = new DBText();

  82.                         text1.TextString="R = "+R.ToString("0.000");

  83.                         ObjectId text1Id = db.AddToModelSpace(text1);

  84.                         DBText text2 = new DBText();

  85.                         //text1.Height = 3;

  86.                         text2.TextString="K = "+ Length.ToString("0.000");

  87.                         //text2.Height = 3;

  88.                         ObjectId text2Id = db.AddToModelSpace(text2);

  89.                         DBText text3 = new DBText();

  90.                         text3.TextString = "α = "+ xTextStyleTools.DFM(cenRo);

  91.                         ObjectId text3Id = db.AddToModelSpace(text3);

  92.                         DBText text4 = new DBText();

  93.                         text4.TextString = "T = " + T.ToString("0.000");

  94.                         ObjectId text4Id = db.AddToModelSpace(text4);

  95.                         YFBZ.EntYFJip pointBz = new YFBZ.EntYFJip(text1Id, text2Id, text3Id,text4Id, point1);

  96.                         PromptResult resJip = ed.Drag(pointBz);

  97.                         if (resJip.Status == PromptStatus.Cancel)

  98.                         {

  99.                             using (Transaction tr = db.TransactionManager.StartTransaction())

  100.                             {

  101.                                 text1 = (DBText)tr.GetObject(pointBz.m_text1, OpenMode.ForWrite);

  102.                                 text1.Erase();

  103.                                 text2 = (DBText)tr.GetObject(pointBz.m_text2, OpenMode.ForWrite);

  104.                                 text2.Erase();

  105.                                 text3 = (DBText)tr.GetObject(pointBz.m_text3, OpenMode.ForWrite);

  106.                                 text3.Erase();

  107.                                 text4 = (DBText)tr.GetObject(pointBz.m_text4, OpenMode.ForWrite);

  108.                                 text4.Erase();

  109.                                 tr.Commit();

  110.                             }

  111.                             break;

  112.                         }

  113.                         Autodesk.AutoCAD.ApplicationServices.Application.PreTranslateMessage += new PreTranslateMessageEventHandler(Application_PreTranslateMessage);

  114.                         if (flag == 1)

  115.                         {

  116.                             using (Transaction tr = db.TransactionManager.StartTransaction())

  117.                             {

  118.                                 text1 = (DBText)tr.GetObject(pointBz.m_text1, OpenMode.ForWrite);

  119.                                 text1.Erase();

  120.                                 text2 = (DBText)tr.GetObject(pointBz.m_text2, OpenMode.ForWrite);

  121.                                 text2.Erase();

  122.                                 text3 = (DBText)tr.GetObject(pointBz.m_text3, OpenMode.ForWrite);

  123.                                 text3.Erase();

  124.                                 text4 = (DBText)tr.GetObject(pointBz.m_text4, OpenMode.ForWrite);

  125.                                 text4.Erase();

  126.                                 tr.Commit();

  127.                             }

  128.                             break;

  129.                         }

  130.                         if (resJip.Status == PromptStatus.OK)

  131.                         {

  132.                             db.AddToModelSpace(pointBz.GetEntity());

  133.                             flag = 0;

  134.                             goto  handle01;

  135.                         }

  136.                     }

  137.                     flag = 0;

  138.                     tran.Commit();

  139.                 }

  140.             }

  141.         }

  142.     }

  143. }

  144. using System;

  145. using System.Collections.Generic;

  146. using System.Linq;

  147. using System.Text;

  148. using Autodesk.AutoCAD.EditorInput;

  149. using Autodesk.AutoCAD.Geometry;

  150. using Autodesk.AutoCAD.DatabaseServices;namespace YFBZ

  151. {

  152.     public class EntYFJip : EntityJig

  153.     {

  154.         private Point2d[] m_pts = new Point2d[3];

  155.         private Point3d m_peakPt;

  156.         private double length1, length2, length,length3,length4;

  157.         private Point3d firstPoint;

  158.         private Point3d m_textPt1;

  159.         private Point3d m_textPt2;

  160.         private Point3d m_textPt3;

  161.         private Point3d m_textPt4;

  162.         private Matrix3d m_mt = Matrix3d.Identity;

  163.         public ObjectId m_text1 = ObjectId.Null;

  164.         public ObjectId m_text2 = ObjectId.Null;

  165.         public ObjectId m_text3 = ObjectId.Null;

  166.         public ObjectId m_text4 = ObjectId.Null;

  167.         public EntYFJip(ObjectId text1, ObjectId text2, ObjectId text3, ObjectId text4, Point3d Point1)

  168.             : base(new Polyline())

  169.         {

  170.             Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;

  171.             m_mt = ed.CurrentUserCoordinateSystem;

  172.             //初始化引线

  173.             ((Polyline)Entity).AddVertexAt(0, Point2d.Origin, 0.0, 0.0, 0.0);

  174.             ((Polyline)Entity).AddVertexAt(1, Point2d.Origin, 0.0, 0.4, 0.4);

  175.             ((Polyline)Entity).AddVertexAt(2, Point2d.Origin, 0.0, 0.4, 0.4);

  176.             //参数传递

  177.             firstPoint = Point1;

  178.             m_text1 = text1;

  179.             m_text2 = text2;

  180.             m_text3 = text3;

  181.             m_text4 = text4;

  182.         }

  183.         protected override bool Update()

  184.         {

  185.             //throw new NotImplementedException();

  186.             Database db = HostApplicationServices.WorkingDatabase;

  187.             ((Polyline)Entity).SetPointAt(0, m_pts[0]);

  188.             ((Polyline)Entity).SetPointAt(1, m_pts[1]);

  189.             ((Polyline)Entity).SetPointAt(2, m_pts[2]);

  190.             ((Polyline)Entity).Normal = Vector3d.ZAxis;

  191.             ((Polyline)Entity).Elevation = 0.0;

  192.             //((Polyline)Entity).ConstantWidth = 0.4;

  193.             //((Polyline)Entity).TransformBy(m_mt);

  194.             using (Transaction tr = db.TransactionManager.StartTransaction())

  195.             {

  196.                 DBText dtext1 = (DBText)tr.GetObject(m_text1, OpenMode.ForWrite);

  197.                 dtext1.Position = m_textPt1;

  198.                 dtext1.Height = 3;

  199.                 dtext1.WidthFactor = 0.8;

  200.                 dtext1.ColorIndex = 80;

  201.                 //dtext1.TextString = "X=" + m_pts[0].Y.ToString("0.000");

  202.                 length1 = Autodesk.AutoCAD.Internal.Utils.GetTextExtents(m_text1, dtext1.TextString, 2.4).X;

  203.                 DBText dtext2 = (DBText)tr.GetObject(m_text2, OpenMode.ForWrite);

  204.                 dtext2.Position = m_textPt2;

  205.                 dtext2.Height = 3;

  206.                 dtext2.WidthFactor = 0.8;

  207.                 dtext2.ColorIndex = 80;

  208.                 //dtext2.TextString = "Y=" + m_pts[0].X.ToString("0.000");

  209.                 length2 = Autodesk.AutoCAD.Internal.Utils.GetTextExtents(m_text2, dtext2.TextString, 2.4).X;

  210.                 DBText dtext3 = (DBText)tr.GetObject(m_text3, OpenMode.ForWrite);

  211.                 dtext3.Position = m_textPt3;

  212.                 dtext3.Height = 3;

  213.                 dtext3.ColorIndex = 80;

  214.                 dtext3.WidthFactor = 0.8;

  215.                 length3 = Autodesk.AutoCAD.Internal.Utils.GetTextExtents(m_text3, dtext3.TextString, 2.4).X;

  216.                 DBText dtext4 = (DBText)tr.GetObject(m_text4, OpenMode.ForWrite);

  217.                 dtext4.Position = m_textPt4;

  218.                 dtext4.Height = 3;

  219.                 dtext4.ColorIndex = 80;

  220.                 dtext4.WidthFactor = 0.8;

  221.                 length4 = Autodesk.AutoCAD.Internal.Utils.GetTextExtents(m_text4, dtext4.TextString, 2.4).X;

  222.                 if (length1 >= length2)

  223.                 {

  224.                     length = length1;

  225.                 }

  226.                 else

  227.                 {

  228.                     length = length2;

  229.                 }

  230.                 if (length = 0 && curPt.Y - firstPoint.Y >= 0) || (curPt.X - firstPoint.X >= 0 && curPt.Y - firstPoint.Y 

  231.         /// 获取与定点指定角度与距离的点

  232.         /// 

  233.         /// 多段线对象

  234.         public static Point3d polarPoint(this Point3d point, double angle, double dist)

  235.         {

  236.             return new Point3d(point.X + dist * Math.Cos(angle), point.Y + dist * Math.Sin(angle), point.Z);

  237.         }

  238.         /// 

  239.         /// 弧度转度分秒

  240.         /// 

  241.         /// 弧度数组

  242.         public static string DFM(double Alpha)

  243.         {

  244.             string dfm;

  245.             dfm = "0.00";

  246.             double t = 180.0 * Alpha / 3.1415926;

  247.             int d = (int)t;

  248.             int m = (int)((t - d) * 60);

  249.             int s = (int)((t - d - m / 60.0) * 3600);

  250.             dfm = d.ToString() + "o" + m.ToString() + "\'" + s.ToString() + """;

  251.             return dfm;

  252.         }

  253.         /// 

  254.         /// 获取两点直线中点

  255.         /// 

  256.         /// 多段线对象

  257.         public static Point3d midPoint(Point3d point1, Point3d point2)

  258.         {

  259.             return new Point3d((point1.X + point2.X) / 2, (point1.Y + point2.Y) / 2, (point1.Z + point2.Z) / 2);

  260.         }

  261.     }

  262. }

z2gonco3b5w.gif

z2gonco3b5w.gif
回复

使用道具 举报

j15tty

3

主题

31

帖子

5

银币

初来乍到

Rank: 1

铜币
43
发表于 2015-3-28 16:56:00 | 显示全部楼层
自己顶一下
回复

使用道具 举报

mycad

110

主题

324

帖子

10

银币

中流砥柱

Rank: 25

铜币
764
发表于 2015-4-28 16:25:00 | 显示全部楼层
学习，谢谢！
回复

使用道具 举报

mycad

110

主题

324

帖子

10

银币

中流砥柱

Rank: 25

铜币
764
发表于 2015-4-28 16:35:00 | 显示全部楼层
编译错误，xTextStyleTools不存在，没有定义吗？能否把整个工程放上来供大家学习呢？谢谢！
回复

使用道具 举报

j15tty

3

主题

31

帖子

5

银币

初来乍到

Rank: 1

铜币
43
发表于 2015-4-29 08:58:00 | 显示全部楼层

我把度分秒函数给出来了的，你随便放到那个类里面不就可以了。xTextStyleTools.DFM，如果你新建一个类，类名假如为TOOLS ，并把DFM函数放进去，那么他的引用就是TOOLS.DFM；所以这个不影响你的。
回复

使用道具 举报

bluefires

15

主题

53

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
113
发表于 2020-3-4 18:30:00 | 显示全部楼层
这个代码真的很不错啊，参考后可以用于标注程序，实用性非常强，赞一个，顶起来！
回复

使用道具 举报

xiongdi6k

1

主题

13

帖子

2

银币

初来乍到

Rank: 1

铜币
17
发表于 2020-4-2 10:02:00 | 显示全部楼层
学习了
回复

使用道具 举报

mycad

110

主题

324

帖子

10

银币

中流砥柱

Rank: 25

铜币
764
发表于 2020-4-11 08:22:00 | 显示全部楼层
很好，谢谢！学习一下！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2024-11-22 01:09 , Processed in 0.215965 second(s), 71 queries .

© 2020-2024 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表