[求助]版主帮忙调试一下曲线等分程序

mycad

又要麻烦版主了；我把vb.net(vb.net代码见本论坛的我的“关于曲率问题”)改写为c#的，调试时出现cad崩溃现象，不知哪里出了问题

帮吗调试一下，主要为了学习用，谢谢！！！见附件

我的系统：cad2008，vs2008

czlj2008@163.com

 

雪山飞狐_lzh

2.         [CommandMethod("DFX")]
3.         public void Test()
4.         {
5.             Database db = HostApplicationServices.WorkingDatabase;
6.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
7.             int n;
8.             string ts = "\r请选择线条（圆弧、直线或者多义线）：";
9.             PromptEntityOptions opt = new PromptEntityOptions(ts);
10.             //PromptEntityOptions opt = New PromptEntityOptions(ts);
11.             //opt.SetRejectMessage();
12.             //opt.SetRejectMessage(intCount & "只能线条");
13.             opt.SetRejectMessage("只能线条");
14.             opt.AddAllowedClass(typeof(Polyline), true);
15.             opt.AddAllowedClass(typeof(Arc), true);
16.             opt.AddAllowedClass(typeof(Line), true);
17.             PromptEntityResult res = ed.GetEntity(opt);
18.             if (res.Status != PromptStatus.OK)
19.             {
20.                 ed.WriteMessage("\r用户自行退出！");
21.             }
22.             else
23.             {
24.                 PromptIntegerOptions iop = new PromptIntegerOptions("指定等分段的数量：");
25.                 iop.DefaultValue = 10;
26.                 PromptIntegerResult irt = ed.GetInteger(iop);
27.                 if (irt.Status != PromptStatus.OK || irt.Value < 2)
28.                 {
29.                     return;
30.                 }
31.                 else
32.                 {
33.                     n = irt.Value;
34.                 }
35.                 using (Transaction trans = db.TransactionManager.StartTransaction())
36.                 {
37.                     Curve cv = (Curve)(trans.GetObject(res.ObjectId, OpenMode.ForWrite));
38.                     double len = cv.GetDistanceAtParameter(cv.EndParam);
39.                     int i;
40.                     for (i = 0; i <= n; i++)
41.                     {
42.                         Point3d p = cv.GetPointAtDist(i * len / n);
43.                         Vector3d kp = cv.GetFirstDerivative(cv.GetParameterAtDistance(i * len / n));
44.                         double ka = kp.GetAngleTo(Vector3d.XAxis) - Math.PI / 2;
45.                         AddText(p, "等分点" + i.ToString(), 3, ka, 1, 1);
46.                     }
47.                     trans.Commit();
48.                 }
49.             }
50.         }

        [CommandMethod("DFX")]         public void Test()         {             Database db = HostApplicationServices.WorkingDatabase;             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;             int n;             string ts = "\r请选择线条（圆弧、直线或者多义线）：";             PromptEntityOptions opt = new PromptEntityOptions(ts);             //PromptEntityOptions opt = New PromptEntityOptions(ts);             //opt.SetRejectMessage();             //opt.SetRejectMessage(intCount & "只能线条");             opt.SetRejectMessage("只能线条");             opt.AddAllowedClass(typeof(Polyline), true);             opt.AddAllowedClass(typeof(Arc), true);             opt.AddAllowedClass(typeof(Line), true);             PromptEntityResult res = ed.GetEntity(opt);             if (res.Status != PromptStatus.OK)             {                 ed.WriteMessage("\r用户自行退出！");             }             else             {                 PromptIntegerOptions iop = new PromptIntegerOptions("指定等分段的数量：");                 iop.DefaultValue = 10;                 PromptIntegerResult irt = ed.GetInteger(iop);                 if (irt.Status != PromptStatus.OK || irt.Value < 2)                 {                     return;                 }                 else                 {                     n = irt.Value;                 }                 using (Transaction trans = db.TransactionManager.StartTransaction())                 {                     Curve cv = (Curve)(trans.GetObject(res.ObjectId, OpenMode.ForWrite));                     double len = cv.GetDistanceAtParameter(cv.EndParam);                     int i;                     for (i = 0; i <= n; i++)                     {                         Point3d p = cv.GetPointAtDist(i * len / n);                         Vector3d kp = cv.GetFirstDerivative(cv.GetParameterAtDistance(i * len / n));                         double ka = kp.GetAngleTo(Vector3d.XAxis) - Math.PI / 2;                         AddText(p, "等分点" + i.ToString(), 3, ka, 1, 1);                     }                     trans.Commit();                 }             }         }

mycad

感谢lzh741206版主，这么晚了还帮忙调试程序，很感动！谢谢！！

提前给您以及MJTD.COM的各位版主拜个早年了，祝各位工作顺利，万事如意，身体健康，合家欢乐！！！

mycad

雪山飞狐_lzh版主您好，addtext的函数已经有了，好多年没有写代码了，忘记了。谢谢！