[...] var pPointOnLine: IPoint; rDistOnLine: Double; rDummy: Double; bDummy: WordBool; pTangent1: ILine; [...] begin pTangent1 := CoLine.Create as ILine; pPointOnLine := CoPoint.Create as IPoint; pCurve.QueryPointAndDistance(esriExtendTangents, pPoint, False, pPointOnLine, rDistOnLine, rDummy, bDummy); pCurve.QueryTangent(esriExtendTangents, rDistOnLine, False, 1.0, pTangent1); [...]
if (0.0 = rDistOnLine) then rDistOnLine := Math.MinDouble;
Signed in members can post, follow updates, and more. New here? Register a free account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.