[...] 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;
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.