带Jig效果的过一点绘制垂直于曲线的直线段

qjchen

这段代码主要是为了弥补LISP中grread较难实现捕捉的缺点
各位见笑了 :)

撰写此段代码的时候，学习了ahlzl兄和飞狐兄的相关代码，谢谢两位~

平台 : VS2008+CAD2007
命令 : JPE
效果 :如下

代码 :

2. 
   
3. using System;
   
4. using Autodesk.AutoCAD.ApplicationServices;
   
5. using Autodesk.AutoCAD.DatabaseServices;
   
6. using Autodesk.AutoCAD.EditorInput;
   
7. using Autodesk.AutoCAD.Geometry;
   
8. using Autodesk.AutoCAD.GraphicsInterface;
   
9. using Autodesk.AutoCAD.Runtime;
   
10. namespace JigPerToCurve
    
11. {
    
12.     public class Class0 : IExtensionApplication
    
13.     {
    
14.         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
15.         // 加载程序时的初始化操作
    
16.         void IExtensionApplication.Initialize()
    
17.         {
    
18.             ed.WriteMessage("**Write by [url=mailto:qjchen@gmail.com]qjchen@gmail.com[/url], To draw a line per to a curve, Command:JPE");
    
19.         }
    
20.         // 卸载程序时的清除操作
    
21.         void IExtensionApplication.Terminate()
    
22.         {
    
23.         }
    
24.     }
    
25.     public class Class1 : DrawJig
    
26.     {
    
27.         private Line ent;
    
28.         private Curve curve;
    
29.         [CommandMethod("jpe")]
    
30.         public void Createjigjdx()
    
31.         {
    
32.             Database db = HostApplicationServices.WorkingDatabase;
    
33.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
34.             PromptEntityOptions optEnt = new PromptEntityOptions("\n选择曲线:");
    
35.             PromptEntityResult resEnt = ed.GetEntity(optEnt);
    
36.             if (resEnt.Status == PromptStatus.OK)
    
37.             {
    
38.                 using (Transaction trans = db.TransactionManager.StartTransaction())
    
39.                 {
    
40.                     BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);
    
41.                     BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
    
42.                     curve = (Curve)(trans.GetObject(resEnt.ObjectId, OpenMode.ForWrite));
    
43.                     ent = new Line(Point3d.Origin, Point3d.Origin);
    
44.                     PromptResult resJig = ed.Drag(this);
    
45.                     if (resJig.Status == PromptStatus.OK)
    
46.                     {
    
47.                         btr.AppendEntity(ent);
    
48.                         trans.AddNewlyCreatedDBObject(ent, true);
    
49.                     }
    
50.                     trans.Commit();
    
51.                 }
    
52.             }
    
53.         }
    
54.         // Sampler函数用于检测用户的输入.
    
55.         protected override SamplerStatus Sampler(JigPrompts prompts)
    
56.         {
    
57.             Database db = HostApplicationServices.WorkingDatabase;
    
58.             JigPromptPointOptions optJigDis = new JigPromptPointOptions("\n请指定一个新的点");
    
59.             optJigDis.UserInputControls = UserInputControls.Accept3dCoordinates;
    
60.             PromptPointResult resJigDis = prompts.AcquirePoint(optJigDis);
    
61.             //curPt就是现在屏幕上鼠标位置点
    
62.             Point3d curPt = resJigDis.Value;
    
63.             //下面这句话很重要，不然会出错，必须保证这个点是在线上
    
64.             Point3d point = curve.GetClosestPointTo(curPt, false);
    
65.             if (resJigDis.Status == PromptStatus.Cancel)
    
66.             {
    
67.                 return SamplerStatus.Cancel;
    
68.             }
    
69.             Vector3d vtan = curve.GetFirstDerivative(point);
    
70.             Vector3d vnor0 = vtan.RotateBy(Math.PI / 2, Vector3d.ZAxis).GetNormal();
    
71.             Vector3d vnor1 = vtan.RotateBy(-Math.PI / 2, Vector3d.ZAxis).GetNormal();
    
72.             double vsize = (double)Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("VIEWSIZE");
    
73.             Point3d point_per0 = point + vnor0.MultiplyBy(vsize / 5.0);
    
74.             Point3d point_per1 = point + vnor1.MultiplyBy(vsize / 5.0);
    
75.             //判断当前点在曲线的哪边，若相等的时候取默认的
    
76.             if (point_per1.DistanceTo(curPt) < point_per0.DistanceTo(curPt))
    
77.             {
    
78.                 point_per0 = point_per1;
    
79.             }
    
80.             ent.StartPoint = point;
    
81.             ent.EndPoint = point_per0;
    
82.             return SamplerStatus.OK;
    
83.         }
    
84.         // WorldDraw函数用于刷新屏幕上显示的图形.
    
85.         protected override bool WorldDraw(WorldDraw draw)
    
86.         {
    
87.             // 刷新画面.
    
88.             draw.Geometry.Draw(ent);
    
89.             return true;
    
90.         }
    
91.     }
    
92. }
    
93. 
    

<br /> using System;<br /> using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Geometry;<br /> using Autodesk.AutoCAD.GraphicsInterface;<br /> using Autodesk.AutoCAD.Runtime;<br /> namespace JigPerToCurve<br /> {<br />     public class Class0 : IExtensionApplication<br />     {<br />         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />         // 加载程序时的初始化操作<br />         void IExtensionApplication.Initialize()<br />         {<br />             ed.WriteMessage("**Write by [url=mailto:qjchen@gmail.com]qjchen@gmail.com[/url], To draw a line per to a curve, Command:JPE");<br />         }<br />         // 卸载程序时的清除操作<br />         void IExtensionApplication.Terminate()<br />         {<br />         }<br />     }<br />     public class Class1 : DrawJig<br />     {<br />         private Line ent;<br />         private Curve curve;<br />         [CommandMethod("jpe")]<br />         public void Createjigjdx()<br />         {<br />             Database db = HostApplicationServices.WorkingDatabase;<br />             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />             PromptEntityOptions optEnt = new PromptEntityOptions("\n选择曲线:");<br />             PromptEntityResult resEnt = ed.GetEntity(optEnt);<br />             if (resEnt.Status == PromptStatus.OK)<br />             {<br />                 using (Transaction trans = db.TransactionManager.StartTransaction())<br />                 {<br />                     BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);<br />                     BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);<br />                     curve = (Curve)(trans.GetObject(resEnt.ObjectId, OpenMode.ForWrite));<br />                     ent = new Line(Point3d.Origin, Point3d.Origin);<br />                     PromptResult resJig = ed.Drag(this);<br />                     if (resJig.Status == PromptStatus.OK)<br />                     {<br />                         btr.AppendEntity(ent);<br />                         trans.AddNewlyCreatedDBObject(ent, true);<br />                     }<br />                     trans.Commit();<br />                 }<br />             }<br />         }<br />         // Sampler函数用于检测用户的输入.<br />         protected override SamplerStatus Sampler(JigPrompts prompts)<br />         {<br />             Database db = HostApplicationServices.WorkingDatabase;<br />             JigPromptPointOptions optJigDis = new JigPromptPointOptions("\n请指定一个新的点");<br />             optJigDis.UserInputControls = UserInputControls.Accept3dCoordinates;<br />             PromptPointResult resJigDis = prompts.AcquirePoint(optJigDis);<br />             //curPt就是现在屏幕上鼠标位置点<br />             Point3d curPt = resJigDis.Value;<br />             //下面这句话很重要，不然会出错，必须保证这个点是在线上<br />             Point3d point = curve.GetClosestPointTo(curPt, false);<br />             if (resJigDis.Status == PromptStatus.Cancel)<br />             {<br />                 return SamplerStatus.Cancel;<br />             }<br />             Vector3d vtan = curve.GetFirstDerivative(point);<br />             Vector3d vnor0 = vtan.RotateBy(Math.PI / 2, Vector3d.ZAxis).GetNormal();<br />             Vector3d vnor1 = vtan.RotateBy(-Math.PI / 2, Vector3d.ZAxis).GetNormal();<br />             double vsize = (double)Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("VIEWSIZE");<br />             Point3d point_per0 = point + vnor0.MultiplyBy(vsize / 5.0);<br />             Point3d point_per1 = point + vnor1.MultiplyBy(vsize / 5.0);<br />             //判断当前点在曲线的哪边，若相等的时候取默认的<br />             if (point_per1.DistanceTo(curPt) < point_per0.DistanceTo(curPt))<br />             {<br />                 point_per0 = point_per1;<br />             }<br />             ent.StartPoint = point;<br />             ent.EndPoint = point_per0;<br />             return SamplerStatus.OK;<br />         }<br />         // WorldDraw函数用于刷新屏幕上显示的图形.<br />         protected override bool WorldDraw(WorldDraw draw)<br />         {<br />             // 刷新画面.<br />             draw.Geometry.Draw(ent);<br />             return true;<br />         }<br />     }<br /> }<br /> <br />

雪山飞狐_lzh

点的计算也可以这样
var ver = (point - curpt).GetNormal() * vsize / 5.0;
ent.StartPoint = point;
ent.EndPoint = point + vec;
最近点与当前点的连线应该就是垂线吧
当然，如果相等还是应该按切向量的垂直方向
另外，还应该判断是否在曲线以外

qjchen

To 飞狐兄~
谢谢指导，直接连接curPt和point确实是好方法:)
刚才我又仔细想了一下
最近点与当前点的连线应该就是垂线吧==> 这个不一定，在端部的地方就不是这样
当然，如果相等还是应该按切向量的垂直方向，另外，还应该判断是否在曲线以外==> 确实如此

我上面的程序，假如不考虑Jig的画，那么编起来倒是简单些，只需要GetPoint就可以了，这样子得到的点肯定在曲线上，但是后来我加上了Jig之后，就发现

1. 
   
2. PromptPointResult resJigDis = prompts.AcquirePoint(optJigDis);
   
3.           //curPt就是现在屏幕上鼠标位置点
   
4.             Point3d curPt = resJigDis.Value;
   
5.             //下面这句话很重要，不然会出错，必须保证这个点是在线上
   
6.             Point3d point = curve.GetClosestPointTo(curPt, false);
   

复制代码

CurPt点只是鼠标当前位置点，并不保证在曲线上的，所以 .GetFirstDerivative会出错，而我的程序的目的是要完成 过曲线上一点做垂线的 ，而非过曲线外一点的（假如那样的画，用per捕捉即可），所以只好用了这个方法，所以就导致了后面 鼠标沿曲线走动的时候，若出了曲线区域，在端点的部分仍然采用垂线的做法。

这段程序的局限在于，其实Jig只是花哨用的，真正用捕捉取到曲线上点的时候，它无法正确画出用户需要的向曲线的哪边画垂线的目的。可能得修改一下，变成一个先确定取点，再Jig方向的程序（不过这个用Lisp可能更简单）。

谢谢飞狐兄的指导~

669423907

好程序！请问复制代码后该保存什么格式呢？

llikk_love

好程序啊。

gyl

不错的程序，有实用意义。

david.xw

不错的程序，收藏，收后参考用！

zhengjian211

请问楼主：能不能不需要去掉选择曲线这一句：
PromptEntityOptions optEnt = new PromptEntityOptions("\n选择曲线:");
PromptEntityResult resEnt = ed.GetEntity(optEnt);

能直接通过jig移动时的点来获取此曲线吗？这样只需要1步操作。
简单说就是 如何获取通过某点的曲线呢？
不知道我表达清楚没有。

凤在江湖

正需要学习呢

mapzq

什么格式这个代码？