判断点和封闭曲线的位置关系（内、外，曲线上）

CSharpBoy

1. // 7:47 PM 6/29/2007 - LE! -
   
2.         // from the MgdDbg SLN by Jim Awe AutoDesk
   
3.         public static Database GetCurDwg()
   
4.         {
   
5.             Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
   
6.             return db;
   
7.         }
   
8. 
   
9.         // from the MgdDbg SLN by Jim Awe AutoDesk
   
10.         public static bool IsPaperSpace(Database db)
    
11.         {
    
12.             if (db.TileMode)
    
13.                 return false;
    
14.             Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
15.             if (db.PaperSpaceVportId == ed.CurrentViewportObjectId)
    
16.                 return true;
    
17.             return false;
    
18.         }
    
19. 
    
20.         // from the MgdDbg SLN by Jim Awe AutoDesk
    
21.         public static Matrix3d GetUcsMatrix(Database db)
    
22.         {
    
23.             Point3d origin;
    
24.             Vector3d xAxis, yAxis, zAxis;
    
25.             if (IsPaperSpace(db))
    
26.             {
    
27.                 origin = db.Pucsorg;
    
28.                 xAxis = db.Pucsxdir;
    
29.                 yAxis = db.Pucsydir;
    
30.             }
    
31.             else
    
32.             {
    
33.                 origin = db.Ucsorg;
    
34.                 xAxis = db.Ucsxdir;
    
35.                 yAxis = db.Ucsydir;
    
36.             }
    
37.             zAxis = xAxis.CrossProduct(yAxis);
    
38.             return Matrix3d.AlignCoordinateSystem(kOrigin, kXAxis, kYAxis, kZAxis, origin, xAxis, yAxis, zAxis);
    
39.         }
    
40. 
    
41.         // from the MgdDbg SLN by Jim Awe AutoDesk
    
42.         public static Point3d Ucs2Wcs(Point3d pt)
    
43.         {
    
44.             Matrix3d m = GetUcsMatrix(GetCurDwg());
    
45.             return pt.TransformBy(m);
    
46.         }
    
47. 
    
48.         // from the MgdDbg SLN by Jim Awe AutoDesk
    
49.         public static Point3d Wcs2Ucs(Point3d pt)
    
50.         {
    
51.             Matrix3d m = GetUcsMatrix(GetCurDwg());
    
52.             return pt.TransformBy(m.Inverse());
    
53.         }
    
54. 
    
55.         // by Luis Esquivel on June 29 2007
    
56.         // using the idea/algorithm by John F. Uhden,
    
57.         // one of the masters that use to frequent the customization ng of AutoDesk
    
58.         static void isPointInside(Point3d inPt, ObjectId objid)
    
59.         {
    
60.             Database db  = HostApplicationServices.WorkingDatabase;
    
61.             Document doc = acadApp.DocumentManager.MdiActiveDocument;
    
62.             Editor   ed  = doc.Editor;
    
63.             using (Transaction tr = db.TransactionManager.StartTransaction())
    
64.             {
    
65.                 Polyline pPoly = (Polyline)tr.GetObject(objid, OpenMode.ForWrite, false);
    
66.                 if (pPoly is Polyline)
    
67.                 {
    
68.                     if (!pPoly.Closed)
    
69.                     {
    
70.                         ed.WriteMessage("\n*** Curve is not closed. "); return;
    
71.                     }
    
72.                     Point3d P = new Point3d();
    
73.                     P = Ucs2Wcs(inPt);
    
74.                     Point3d ClosestPoint = pPoly.GetClosestPointTo(P, false); //true);
    
75.                     if (P.IsEqualTo(ClosestPoint))
    
76.                     {
    
77.                         ed.WriteMessage("\n*** Point is on curve. "); return;
    
78.                     }
    
79.                     Double ClosestParam, EndParam;
    
80.                     ClosestParam = pPoly.GetParameterAtPoint(ClosestPoint);
    
81.                     ClosestPoint = Wcs2Ucs(ClosestPoint);
    
82.                     EndParam = pPoly.EndParam;
    
83.                     Double Param1 = 0.0, Param2 = dVal, Deflection = 0.0, a2;
    
84.                     Point3d StartPT = pPoly.StartPoint;
    
85.                     StartPT = Wcs2Ucs(StartPT);
    
86.                     Double a1 = Math.Atan2(StartPT.Y - inPt.Y, StartPT.X - inPt.X);
    
87.                     while (Param2 <= EndParam)
    
88.                     {
    
89.                         Param2 = Math.Min(Param2, EndParam);
    
90.                         if (Param1 < ClosestParam && ClosestParam < Param2)
    
91.                         {
    
92.                             a2 = Math.Atan2(ClosestPoint.Y - inPt.Y, ClosestPoint.X - inPt.X);
    
93.                             Deflection = Deflection + delta(a1, a2);
    
94.                             a1 = a2;
    
95.                         }
    
96.                         bool test = true;                       
    
97.                         while (test)
    
98.                         {
    
99.                             try
    
100.                             {
     
101.                                 P = pPoly.GetPointAtParameter(Param2);
     
102.                                 Param2 = Param2 + dVal;
     
103.                             }
     
104.                             catch (System.Exception ex)
     
105.                             {
     
106.                                 ed.WriteMessage("\nERROR = " + ex.Message);
     
107.                             }
     
108.                             finally
     
109.                             {
     
110.                                 test = false;
     
111.                             }
     
112.                         }
     
113.                         P = Wcs2Ucs(P);
     
114.                         a2 = Math.Atan2(P.Y - inPt.Y, P.X - inPt.X);
     
115.                         Deflection = Deflection + delta(a1, a2);
     
116.                         a1 = a2;
     
117.                         Param1 = Param2;
     
118.                         Param2 = Param2 + dVal;
     
119.                     }
     
120.                     if (Math.Abs(Deflection) > 4)
     
121.                         ed.WriteMessage("\n*** Point is inside. ");
     
122.                     else
     
123.                         ed.WriteMessage("\n*** Point is outside. ");
     
124.                 }
     
125.                 tr.Commit();
     
126.             }
     
127.         }
     
128. 
     
129.         [CommandMethod("INSIDE")]
     
130.         static public void inside()
     
131.         {
     
132.             Database db = HostApplicationServices.WorkingDatabase;
     
133.             Document doc = acadApp.DocumentManager.MdiActiveDocument;
     
134.             Editor ed = doc.Editor;
     
135.             PromptEntityResult res = ed.GetEntity("\nSelect polyline: ");
     
136.             if (res.Status != PromptStatus.OK) return;
     
137.             PromptPointResult pt2Res = ed.GetPoint("\nPick internal point: ");
     
138.             if (pt2Res.Status != PromptStatus.OK) return;
     
139.             isPointInside(pt2Res.Value, res.ObjectId);
     
140.         }
     

// 7:47 PM 6/29/2007 - LE! -<br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br />         public static Database GetCurDwg()<br />         {<br />             Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;<br />             return db;<br />         }<br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br />         public static bool IsPaperSpace(Database db)<br />         {<br />             if (db.TileMode)<br />                 return false;<br />             Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />             if (db.PaperSpaceVportId == ed.CurrentViewportObjectId)<br />                 return true;<br />             return false;<br />         }<br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br />         public static Matrix3d GetUcsMatrix(Database db)<br />         {<br />             Point3d origin;<br />             Vector3d xAxis, yAxis, zAxis;<br />             if (IsPaperSpace(db))<br />             {<br />                 origin = db.Pucsorg;<br />                 xAxis = db.Pucsxdir;<br />                 yAxis = db.Pucsydir;<br />             }<br />             else<br />             {<br />                 origin = db.Ucsorg;<br />                 xAxis = db.Ucsxdir;<br />                 yAxis = db.Ucsydir;<br />             }<br />             zAxis = xAxis.CrossProduct(yAxis);<br />             return Matrix3d.AlignCoordinateSystem(kOrigin, kXAxis, kYAxis, kZAxis, origin, xAxis, yAxis, zAxis);<br />         }<br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br />         public static Point3d Ucs2Wcs(Point3d pt)<br />         {<br />             Matrix3d m = GetUcsMatrix(GetCurDwg());<br />             return pt.TransformBy(m);<br />         }<br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br />         public static Point3d Wcs2Ucs(Point3d pt)<br />         {<br />             Matrix3d m = GetUcsMatrix(GetCurDwg());<br />             return pt.TransformBy(m.Inverse());<br />         }<br /> <br />         // by Luis Esquivel on June 29 2007<br />         // using the idea/algorithm by John F. Uhden, <br />         // one of the masters that use to frequent the customization ng of AutoDesk<br />         static void isPointInside(Point3d inPt, ObjectId objid)<br />         {<br />             Database db  = HostApplicationServices.WorkingDatabase;<br />             Document doc = acadApp.DocumentManager.MdiActiveDocument;<br />             Editor   ed  = doc.Editor;<br />             using (Transaction tr = db.TransactionManager.StartTransaction())<br />             {<br />                 Polyline pPoly = (Polyline)tr.GetObject(objid, OpenMode.ForWrite, false);<br />                 if (pPoly is Polyline)<br />                 {<br />                     if (!pPoly.Closed)<br />                     {<br />                         ed.WriteMessage("\n*** Curve is not closed. "); return;<br />                     }<br />                     Point3d P = new Point3d();<br />                     P = Ucs2Wcs(inPt);<br />                     Point3d ClosestPoint = pPoly.GetClosestPointTo(P, false); //true);<br />                     if (P.IsEqualTo(ClosestPoint))<br />                     {<br />                         ed.WriteMessage("\n*** Point is on curve. "); return;<br />                     }<br />                     Double ClosestParam, EndParam;<br />                     ClosestParam = pPoly.GetParameterAtPoint(ClosestPoint);<br />                     ClosestPoint = Wcs2Ucs(ClosestPoint);<br />                     EndParam = pPoly.EndParam;<br />                     Double Param1 = 0.0, Param2 = dVal, Deflection = 0.0, a2;<br />                     Point3d StartPT = pPoly.StartPoint;<br />                     StartPT = Wcs2Ucs(StartPT);<br />                     Double a1 = Math.Atan2(StartPT.Y - inPt.Y, StartPT.X - inPt.X);<br />                     while (Param2 <= EndParam)<br />                     {<br />                         Param2 = Math.Min(Param2, EndParam);<br />                         if (Param1 < ClosestParam && ClosestParam < Param2)<br />                         {<br />                             a2 = Math.Atan2(ClosestPoint.Y - inPt.Y, ClosestPoint.X - inPt.X);<br />                             Deflection = Deflection + delta(a1, a2);<br />                             a1 = a2;<br />                         }<br />                         bool test = true;                        <br />                         while (test) <br />                         {<br />                             try<br />                             {<br />                                 P = pPoly.GetPointAtParameter(Param2);<br />                                 Param2 = Param2 + dVal;<br />                             }<br />                             catch (System.Exception ex) <br />                             {<br />                                 ed.WriteMessage("\nERROR = " + ex.Message);<br />                             }<br />                             finally <br />                             {<br />                                 test = false;<br />                             }<br />                         }<br />                         P = Wcs2Ucs(P);<br />                         a2 = Math.Atan2(P.Y - inPt.Y, P.X - inPt.X);<br />                         Deflection = Deflection + delta(a1, a2);<br />                         a1 = a2;<br />                         Param1 = Param2;<br />                         Param2 = Param2 + dVal;<br />                     }<br />                     if (Math.Abs(Deflection) > 4)<br />                         ed.WriteMessage("\n*** Point is inside. ");<br />                     else<br />                         ed.WriteMessage("\n*** Point is outside. ");<br />                 }<br />                 tr.Commit();<br />             }<br />         }<br /> <br />         [CommandMethod("INSIDE")]<br />         static public void inside()<br />         {<br />             Database db = HostApplicationServices.WorkingDatabase;<br />             Document doc = acadApp.DocumentManager.MdiActiveDocument;<br />             Editor ed = doc.Editor;<br />             PromptEntityResult res = ed.GetEntity("\nSelect polyline: ");<br />             if (res.Status != PromptStatus.OK) return;<br />             PromptPointResult pt2Res = ed.GetPoint("\nPick internal point: ");<br />             if (pt2Res.Status != PromptStatus.OK) return;<br />             isPointInside(pt2Res.Value, res.ObjectId);<br />         }<br />

dnbcgrass

谢谢分享！
是不是还差下面这些：
    const Double pi = Math.PI;
        public static Double dVal = 0.2;
        public static readonly Point3d kOrigin = new Point3d(0.0, 0.0, 0.0);
        public static readonly Vector3d kXAxis = new Vector3d(1.0, 0.0, 0.0);
        public static readonly Vector3d kYAxis = new Vector3d(0.0, 1.0, 0.0);
        public static readonly Vector3d kZAxis = new Vector3d(0.0, 0.0, 1.0);

        static Double delta(Double a1, Double a2)
        {
            Double ang;
            if (a1 > a2 + pi)
                ang = (a2 + pi + pi) - a1;
            else if (a2 > a1 + pi)
                ang = a2 - a1 - pi - pi;
            else
                ang = a2 - a1;
            return ang;
        }

gstwsjy06

谢谢分享，学习了

brainstorm

这个能改成lispfunction么
来自: 微社区

brainstorm

请教一下，我的写法怎么不能返回值给lisp，应该怎么写，谢谢，初学

2. {
   
3. 
   
4.         // 7:47 PM 6/29/2007 - LE! -
   
5. 
   
6.         // from the MgdDbg SLN by Jim Awe AutoDesk
   
7.         const Double pi = Math.PI;
   
8.         public static Double dVal = 0.2;
   
9.         public static readonly Point3d kOrigin = new Point3d(0.0, 0.0, 0.0);
   
10.         public static readonly Vector3d kXAxis = new Vector3d(1.0, 0.0, 0.0);
    
11.         public static readonly Vector3d kYAxis = new Vector3d(0.0, 1.0, 0.0);
    
12.         public static readonly Vector3d kZAxis = new Vector3d(0.0, 0.0, 1.0);
    
13. 
    
14.         static Double delta(Double a1, Double a2)
    
15.         {
    
16.             Double ang;
    
17.             if (a1 > a2 + pi)
    
18.                 ang = (a2 + pi + pi) - a1;
    
19.             else if (a2 > a1 + pi)
    
20.                 ang = a2 - a1 - pi - pi;
    
21.             else
    
22.                 ang = a2 - a1;
    
23.             return ang;
    
24.         }
    
25.         public static Database GetCurDwg()
    
26. 
    
27.         {
    
28. 
    
29.             Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
    
30. 
    
31.             return db;
    
32. 
    
33.         }
    
34. 
    
35. 
    
36.         // from the MgdDbg SLN by Jim Awe AutoDesk
    
37. 
    
38.         public static bool IsPaperSpace(Database db)
    
39. 
    
40.         {
    
41. 
    
42.             if (db.TileMode)
    
43. 
    
44.                 return false;
    
45. 
    
46.             Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
47. 
    
48.             if (db.PaperSpaceVportId == ed.CurrentViewportObjectId)
    
49. 
    
50.                 return true;
    
51. 
    
52.             return false;
    
53. 
    
54.         }
    
55. 
    
56. 
    
57.         // from the MgdDbg SLN by Jim Awe AutoDesk
    
58. 
    
59.         public static Matrix3d GetUcsMatrix(Database db)
    
60. 
    
61.         {
    
62. 
    
63.             Point3d origin;
    
64. 
    
65.             Vector3d xAxis, yAxis, zAxis;
    
66. 
    
67.             if (IsPaperSpace(db))
    
68. 
    
69.             {
    
70. 
    
71.                 origin = db.Pucsorg;
    
72. 
    
73.                 xAxis = db.Pucsxdir;
    
74. 
    
75.                 yAxis = db.Pucsydir;
    
76. 
    
77.             }
    
78. 
    
79.             else
    
80. 
    
81.             {
    
82. 
    
83.                 origin = db.Ucsorg;
    
84. 
    
85.                 xAxis = db.Ucsxdir;
    
86. 
    
87.                 yAxis = db.Ucsydir;
    
88. 
    
89.             }
    
90. 
    
91.             zAxis = xAxis.CrossProduct(yAxis);
    
92. 
    
93.             return Matrix3d.AlignCoordinateSystem(kOrigin, kXAxis, kYAxis, kZAxis, origin, xAxis, yAxis, zAxis);
    
94. 
    
95.         }
    
96. 
    
97. 
    
98.         // from the MgdDbg SLN by Jim Awe AutoDesk
    
99. 
    
100.         public static Point3d Ucs2Wcs(Point3d pt)
     
101. 
     
102.         {
     
103. 
     
104.             Matrix3d m = GetUcsMatrix(GetCurDwg());
     
105. 
     
106.             return pt.TransformBy(m);
     
107. 
     
108.         }
     
109. 
     
110. 
     
111.         // from the MgdDbg SLN by Jim Awe AutoDesk
     
112. 
     
113.         public static Point3d Wcs2Ucs(Point3d pt)
     
114. 
     
115.         {
     
116. 
     
117.             Matrix3d m = GetUcsMatrix(GetCurDwg());
     
118. 
     
119.             return pt.TransformBy(m.Inverse());
     
120. 
     
121.         }
     
122. 
     
123. 
     
124.         // by Luis Esquivel on June 29 2007
     
125. 
     
126.         // using the idea/algorithm by John F. Uhden,
     
127. 
     
128.         // one of the masters that use to frequent the customization ng of AutoDesk
     
129. 
     
130.         static ResultBuffer isPointInside(Point3d inPt, ObjectId objid)
     
131. 
     
132.         {
     
133. 
     
134.             Database db = HostApplicationServices.WorkingDatabase;
     
135. 
     
136.             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
     
137. 
     
138.             Editor ed = doc.Editor;
     
139.             //ResultBuffer resultBuffer = new ResultBuffer(); //初始化返回值链表  
     
140.             TypedValue[] tv = new TypedValue[1];
     
141. 
     
142.             using (Transaction tr = db.TransactionManager.StartTransaction())
     
143. 
     
144.             {
     
145. 
     
146.                 Polyline pPoly = (Polyline)tr.GetObject(objid, OpenMode.ForWrite, false);
     
147. 
     
148.                 if (pPoly is Polyline)
     
149. 
     
150.                 {
     
151. 
     
152.                     if (!pPoly.Closed)
     
153. 
     
154.                     {
     
155. 
     
156.                         ed.WriteMessage("\n*** Curve is not closed. ");
     
157. 
     
158.                     }
     
159. 
     
160.                     Point3d P = new Point3d();
     
161. 
     
162.                     P = Ucs2Wcs(inPt);
     
163. 
     
164.                     Point3d ClosestPoint = pPoly.GetClosestPointTo(P, false); //true);
     
165. 
     
166.                     if (P.IsEqualTo(ClosestPoint))
     
167. 
     
168.                     {
     
169. 
     
170.                         //ed.WriteMessage("\n*** Point is on curve. "); return;
     
171.                         //resultBuffer.Add(new TypedValue((int)LispDataType.Text, "0"));
     
172.                         tv[0] = new TypedValue((int)LispDataType.Int32, 0);
     
173. 
     
174.                     }
     
175. 
     
176.                     Double ClosestParam, EndParam;
     
177. 
     
178.                     ClosestParam = pPoly.GetParameterAtPoint(ClosestPoint);
     
179. 
     
180.                     ClosestPoint = Wcs2Ucs(ClosestPoint);
     
181. 
     
182.                     EndParam = pPoly.EndParam;
     
183. 
     
184.                     Double Param1 = 0.0, Param2 = dVal, Deflection = 0.0, a2;
     
185. 
     
186.                     Point3d StartPT = pPoly.StartPoint;
     
187. 
     
188.                     StartPT = Wcs2Ucs(StartPT);
     
189. 
     
190.                     Double a1 = Math.Atan2(StartPT.Y - inPt.Y, StartPT.X - inPt.X);
     
191. 
     
192.                     while (Param2 <= EndParam)
     
193. 
     
194.                     {
     
195. 
     
196.                         Param2 = Math.Min(Param2, EndParam);
     
197. 
     
198.                         if (Param1 < ClosestParam && ClosestParam < Param2)
     
199. 
     
200.                         {
     
201. 
     
202.                             a2 = Math.Atan2(ClosestPoint.Y - inPt.Y, ClosestPoint.X - inPt.X);
     
203. 
     
204.                             Deflection = Deflection + delta(a1, a2);
     
205. 
     
206.                             a1 = a2;
     
207. 
     
208.                         }
     
209. 
     
210.                         bool test = true;
     
211. 
     
212.                         while (test)
     
213. 
     
214.                         {
     
215. 
     
216.                             try
     
217. 
     
218.                             {
     
219. 
     
220.                                 P = pPoly.GetPointAtParameter(Param2);
     
221. 
     
222.                                 Param2 = Param2 + dVal;
     
223. 
     
224.                             }
     
225. 
     
226.                             catch (System.Exception ex)
     
227. 
     
228.                             {
     
229. 
     
230.                                 ed.WriteMessage("\nERROR = " + ex.Message);
     
231. 
     
232.                             }
     
233. 
     
234.                             finally
     
235. 
     
236.                             {
     
237. 
     
238.                                 test = false;
     
239. 
     
240.                             }
     
241. 
     
242.                         }
     
243. 
     
244.                         P = Wcs2Ucs(P);
     
245. 
     
246.                         a2 = Math.Atan2(P.Y - inPt.Y, P.X - inPt.X);
     
247. 
     
248.                         Deflection = Deflection + delta(a1, a2);
     
249. 
     
250.                         a1 = a2;
     
251. 
     
252.                         Param1 = Param2;
     
253. 
     
254.                         Param2 = Param2 + dVal;
     
255. 
     
256.                     }
     
257. 
     
258.                     if (Math.Abs(Deflection) > 4)
     
259. 
     
260.                         //ed.WriteMessage("\n*** Point is inside. ");
     
261.                         //resultBuffer.Add(new TypedValue((int)LispDataType.Text, "-1"));
     
262.                         tv[0] = new TypedValue((int)LispDataType.Int32, -1);
     
263.                     else
     
264. 
     
265.                         //ed.WriteMessage("\n*** Point is outside. ");
     
266.                         //resultBuffer.Add(new TypedValue((int)LispDataType.Text, "1"));
     
267.                         tv[0] = new TypedValue((int)LispDataType.Int32, 1);
     
268. 
     
269.                 }
     
270. 
     
271.                 tr.Commit();
     
272.                
     
273.                 ResultBuffer resb = new ResultBuffer(tv);
     
274.                 //ed.WriteMessage("\n*** Point is inside. ");
     
275.                 return resb;
     
276. 
     
277.             }
     
278. 
     
279.         }
     
280. 
     
281. 
     
282.         [LispFunction("INSIDE")]
     
283. 
     
284.         public static void inside(ResultBuffer rb)
     
285. 
     
286. 
     
287.         {
     
288. 
     
289.             Database db = HostApplicationServices.WorkingDatabase;
     
290. 
     
291.             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
     
292. 
     
293.             Editor ed = doc.Editor;
     
294.             TypedValue[] rbArr = rb.AsArray(); //Convoert to Array
     
295. 
     
296.             TypedValue entId = rbArr[0]; //取出第一个参数
     
297.             ObjectId objId = (ObjectId)entId.Value;
     
298.             TypedValue pt = rbArr[1]; //取出第二个参数
     
299.             Point3d pt1 = (Point3d)pt.Value;
     
300. 
     
301. 
     
302.             //PromptEntityResult res = ed.GetEntity("\nSelect polyline: ");
     
303.             ResultBuffer resultBuffer = new ResultBuffer(); //初始化返回值链表
     
304. 
     
305.             //if (res.Status != PromptStatus.OK) return;
     
306. 
     
307.             //PromptPointResult pt2Res = ed.GetPoint("\nPick internal point: ");
     
308. 
     
309.             //if (pt2Res.Status != PromptStatus.OK) return;
     
310. 
     
311.             //isPointInside(pt2Res.Value, res.ObjectId);
     
312.             isPointInside(pt1, objId);
     
313. 
     
314.         }
     
315. 
     
316.     }

{<br /> <br />         // 7:47 PM 6/29/2007 - LE! -<br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br />         const Double pi = Math.PI;<br />         public static Double dVal = 0.2;<br />         public static readonly Point3d kOrigin = new Point3d(0.0, 0.0, 0.0);<br />         public static readonly Vector3d kXAxis = new Vector3d(1.0, 0.0, 0.0);<br />         public static readonly Vector3d kYAxis = new Vector3d(0.0, 1.0, 0.0);<br />         public static readonly Vector3d kZAxis = new Vector3d(0.0, 0.0, 1.0);<br /> <br />         static Double delta(Double a1, Double a2)<br />         {<br />             Double ang;<br />             if (a1 > a2 + pi)<br />                 ang = (a2 + pi + pi) - a1;<br />             else if (a2 > a1 + pi)<br />                 ang = a2 - a1 - pi - pi;<br />             else<br />                 ang = a2 - a1;<br />             return ang;<br />         }<br />         public static Database GetCurDwg()<br /> <br />         {<br /> <br />             Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;<br /> <br />             return db;<br /> <br />         }<br /> <br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br /> <br />         public static bool IsPaperSpace(Database db)<br /> <br />         {<br /> <br />             if (db.TileMode)<br /> <br />                 return false;<br /> <br />             Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br /> <br />             if (db.PaperSpaceVportId == ed.CurrentViewportObjectId)<br /> <br />                 return true;<br /> <br />             return false;<br /> <br />         }<br /> <br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br /> <br />         public static Matrix3d GetUcsMatrix(Database db)<br /> <br />         {<br /> <br />             Point3d origin;<br /> <br />             Vector3d xAxis, yAxis, zAxis;<br /> <br />             if (IsPaperSpace(db))<br /> <br />             {<br /> <br />                 origin = db.Pucsorg;<br /> <br />                 xAxis = db.Pucsxdir;<br /> <br />                 yAxis = db.Pucsydir;<br /> <br />             }<br /> <br />             else<br /> <br />             {<br /> <br />                 origin = db.Ucsorg;<br /> <br />                 xAxis = db.Ucsxdir;<br /> <br />                 yAxis = db.Ucsydir;<br /> <br />             }<br /> <br />             zAxis = xAxis.CrossProduct(yAxis);<br /> <br />             return Matrix3d.AlignCoordinateSystem(kOrigin, kXAxis, kYAxis, kZAxis, origin, xAxis, yAxis, zAxis);<br /> <br />         }<br /> <br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br /> <br />         public static Point3d Ucs2Wcs(Point3d pt)<br /> <br />         {<br /> <br />             Matrix3d m = GetUcsMatrix(GetCurDwg());<br /> <br />             return pt.TransformBy(m);<br /> <br />         }<br /> <br /> <br />         // from the MgdDbg SLN by Jim Awe AutoDesk<br /> <br />         public static Point3d Wcs2Ucs(Point3d pt)<br /> <br />         {<br /> <br />             Matrix3d m = GetUcsMatrix(GetCurDwg());<br /> <br />             return pt.TransformBy(m.Inverse());<br /> <br />         }<br /> <br /> <br />         // by Luis Esquivel on June 29 2007<br /> <br />         // using the idea/algorithm by John F. Uhden, <br /> <br />         // one of the masters that use to frequent the customization ng of AutoDesk<br /> <br />         static ResultBuffer isPointInside(Point3d inPt, ObjectId objid)<br /> <br />         {<br /> <br />             Database db = HostApplicationServices.WorkingDatabase;<br /> <br />             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;<br /> <br />             Editor ed = doc.Editor;<br />             //ResultBuffer resultBuffer = new ResultBuffer(); //初始化返回值链表  <br />             TypedValue[] tv = new TypedValue[1];<br /> <br />             using (Transaction tr = db.TransactionManager.StartTransaction())<br /> <br />             {<br /> <br />                 Polyline pPoly = (Polyline)tr.GetObject(objid, OpenMode.ForWrite, false);<br /> <br />                 if (pPoly is Polyline)<br /> <br />                 {<br /> <br />                     if (!pPoly.Closed)<br /> <br />                     {<br /> <br />                         ed.WriteMessage("\n*** Curve is not closed. "); <br /> <br />                     }<br /> <br />                     Point3d P = new Point3d();<br /> <br />                     P = Ucs2Wcs(inPt);<br /> <br />                     Point3d ClosestPoint = pPoly.GetClosestPointTo(P, false); //true);<br /> <br />                     if (P.IsEqualTo(ClosestPoint))<br /> <br />                     {<br /> <br />                         //ed.WriteMessage("\n*** Point is on curve. "); return;<br />                         //resultBuffer.Add(new TypedValue((int)LispDataType.Text, "0"));<br />                         tv[0] = new TypedValue((int)LispDataType.Int32, 0);<br /> <br />                     }<br /> <br />                     Double ClosestParam, EndParam;<br /> <br />                     ClosestParam = pPoly.GetParameterAtPoint(ClosestPoint);<br /> <br />                     ClosestPoint = Wcs2Ucs(ClosestPoint);<br /> <br />                     EndParam = pPoly.EndParam;<br /> <br />                     Double Param1 = 0.0, Param2 = dVal, Deflection = 0.0, a2;<br /> <br />                     Point3d StartPT = pPoly.StartPoint;<br /> <br />                     StartPT = Wcs2Ucs(StartPT);<br /> <br />                     Double a1 = Math.Atan2(StartPT.Y - inPt.Y, StartPT.X - inPt.X);<br /> <br />                     while (Param2 <= EndParam)<br /> <br />                     {<br /> <br />                         Param2 = Math.Min(Param2, EndParam);<br /> <br />                         if (Param1 < ClosestParam && ClosestParam < Param2)<br /> <br />                         {<br /> <br />                             a2 = Math.Atan2(ClosestPoint.Y - inPt.Y, ClosestPoint.X - inPt.X);<br /> <br />                             Deflection = Deflection + delta(a1, a2);<br /> <br />                             a1 = a2;<br /> <br />                         }<br /> <br />                         bool test = true;<br /> <br />                         while (test)<br /> <br />                         {<br /> <br />                             try<br /> <br />                             {<br /> <br />                                 P = pPoly.GetPointAtParameter(Param2);<br /> <br />                                 Param2 = Param2 + dVal;<br /> <br />                             }<br /> <br />                             catch (System.Exception ex)<br /> <br />                             {<br /> <br />                                 ed.WriteMessage("\nERROR = " + ex.Message);<br /> <br />                             }<br /> <br />                             finally<br /> <br />                             {<br /> <br />                                 test = false;<br /> <br />                             }<br /> <br />                         }<br /> <br />                         P = Wcs2Ucs(P);<br /> <br />                         a2 = Math.Atan2(P.Y - inPt.Y, P.X - inPt.X);<br /> <br />                         Deflection = Deflection + delta(a1, a2);<br /> <br />                         a1 = a2;<br /> <br />                         Param1 = Param2;<br /> <br />                         Param2 = Param2 + dVal;<br /> <br />                     }<br /> <br />                     if (Math.Abs(Deflection) > 4)<br /> <br />                         //ed.WriteMessage("\n*** Point is inside. ");<br />                         //resultBuffer.Add(new TypedValue((int)LispDataType.Text, "-1"));<br />                         tv[0] = new TypedValue((int)LispDataType.Int32, -1);<br />                     else<br /> <br />                         //ed.WriteMessage("\n*** Point is outside. ");<br />                         //resultBuffer.Add(new TypedValue((int)LispDataType.Text, "1")); <br />                         tv[0] = new TypedValue((int)LispDataType.Int32, 1);<br /> <br />                 }<br /> <br />                 tr.Commit();<br />                 <br />                 ResultBuffer resb = new ResultBuffer(tv);<br />                 //ed.WriteMessage("\n*** Point is inside. ");<br />                 return resb;<br /> <br />             }<br /> <br />         }<br /> <br /> <br />         [LispFunction("INSIDE")]<br /> <br />         public static void inside(ResultBuffer rb)<br /> <br /> <br />         {<br /> <br />             Database db = HostApplicationServices.WorkingDatabase;<br /> <br />             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;<br /> <br />             Editor ed = doc.Editor;<br />             TypedValue[] rbArr = rb.AsArray(); //Convoert to Array<br /> <br />             TypedValue entId = rbArr[0]; //取出第一个参数<br />             ObjectId objId = (ObjectId)entId.Value;<br />             TypedValue pt = rbArr[1]; //取出第二个参数<br />             Point3d pt1 = (Point3d)pt.Value;<br /> <br /> <br />             //PromptEntityResult res = ed.GetEntity("\nSelect polyline: ");<br />             ResultBuffer resultBuffer = new ResultBuffer(); //初始化返回值链表<br /> <br />             //if (res.Status != PromptStatus.OK) return;<br /> <br />             //PromptPointResult pt2Res = ed.GetPoint("\nPick internal point: ");<br /> <br />             //if (pt2Res.Status != PromptStatus.OK) return;<br /> <br />             //isPointInside(pt2Res.Value, res.ObjectId);<br />             isPointInside(pt1, objId);<br /> <br />         }<br /> <br />     }

brainstorm

请教一下
1 打开事务管理器后，对图元进行坐标系转换，求最小包围盒结束后，如果不用tr.comit(),是否还有必要将图元转换为原来的坐标系

2 打开事务管理器后，在内存创建图元ent取得面积,如果不用tr.comit,是否用ent.dispose()直接销毁ent 即可，也等于释放内存了

我看您这里都用了commit,不太明白这个一定要用么
刚开始学习c#,很多问题不懂，希望能得到指点
来自: 微社区

xiongdi6k

码下留人