[...] 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;
Membros conectados podem postar, seguir atualizações e mais. Novo aqui? Registre uma conta gratuita.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.