В чем причина

[awean]

не пойму в чем дело почему все время выдает, что резьба внутренняя.
Все параметры для различных резьб правильные, а outside=false.

////////////////////////////////////////////////////////////////////////////////////////////
     ThreadDefinitioncollect := ksEntityCollection( part.EntityCollection(58) );
     if ThreadDefinitioncollect <> nil then
      begin
        for i := 0 to ThreadDefinitioncollect.GetCount - 1 do
         begin
          ThreadDef := ksThreadDefinition(ksEntity(ThreadDefinitioncollect.GetByIndex(i)).GetDefinition);
          bol:=ThreadDef.outside;
          p:= ThreadDef.p;
          dr:=ThreadDef.dr;
          length:=ThreadDef.length;
////////////////////////////////////////////////////////////////////////////////////////////////
В чем дело?