[...] 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;
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.